phil_vsd

Fallait pas me montrer çà...

Bonjour tous, Je repose une question que j'ai posé en forum AutoCAD 2006 et j'ai même eu une super réponse de Gile avec routine clef en main (Encore merci à lui) dans le domaine du Lisp. Je sais maintenant que les champs dynamiques sont pilotables en Lisp et j'aimerai savoir si on peut les piloter en VBA. En gros : cliquer sur une polyligne et cela insèrerai un texte contenant un champs renseigné par l'aire de la polyligne. Je connais un peu mieux le VBA que le Lisp (Non c'est pas vrai, le Lisp je connait rien du tout...) , je me sens plus à l'aise en VBA pour pondre de routines. J'aimerai donc en faire rapidement en VBA avant de plonger dans le lisp car on a des dossiers urgents au bureau. Donc vos réponses sont les bienvenues. Merci d'avance. PS: Message à Gile, promis je me met au lisp bientôt... :P :D

Gile tu es un chef ! Y'a pas de doute tu maîtrise le lisp. Ta routine est exacetement ce que je recherche à faire, je vais la décortiquer pour l'adapter. Ensuite les champs seront copiés dans un tableau pour une addition de surfaces d'appartement. Maintenant que je sais que les champs sont pilotables en lisp c'est super motivant, surtout quand on se base sur une routine déjà existante. J'ai acheté le livre "Programmer Autocad" c'est pas mal mais il y a des fautes de frappes dans les routines et parfois ça ne marche pas... Comme je ne les détecte pas au premier coup d'oeil, je traîne un peu, je me pose des questions. En attendant je vais continuer à pomper des routines dans les forums et à implorer votre pitié de temps en temps... :P A très bientôt !

Merci Gile et Patrick 35 Pas mal ce lisp ça me motive pour apprendre le lisp, va falloir que je me mette un coup de pied au cul, mais un gros alors parce que cette syntaxe... on est pas copain elle et moi !

Merci Richard ! Nos dessins vont avoir plus de classe maintenant ! Nos projets vont être vendeurs. Tu m'as donné une idée : je vais faire une Aston Martin... Et n'oublie pas, pas plus de 2OO sur les nationales... A+

Bonjour tous, Je voudrai savoir, car j'ai cherché et je n'ai pas trouvé, si l'on peut insérer et piloter, soit par VBA soit par du Lisp, les champs dynamiques dans un objet "texte" ou "mtexte". Exemple d'application : je clique sur une surface, puis apparait un texte avec un champs lié à la polyligne qui renseignerait sur son aire. Merci à vous !

Bonjour tous, Je me suis aperçu dans les forums que plusieurs personnes utilisaient su des traceurs HP des drivers qui ne sont pas dédiés à la série. Un driver de 1050 sur du 800, un 500 sur du 450... Nous avons un HP 430 avec un driver 4.67 que nous faisons fonctionner uniquement en noir et blanc, quel driver dois-je télécharger pour optimiser les impressions ? Quel est l'avantage d'avoir un driver d'une machine supérieure en gamme ? Merci d'avance.

'jour tous ! Merci Gile pour ton lisp, je teste ça tout à l'heure et je reposte.... Le lisp... Faut que je m'y mette ! :cool: A++

Bonsoir tous, Merci pour vos rapides réponses. j'utilise en effet deux fichiers .pat que j'ai récupéré sur le net pour avoir un peu plus d'hachures. Je me suis posé la question lors du téléchargement "Pourquoi deux fichiers avec la même terminaison .pat ?". Les normes doivent être les même puisque le changement s'opère à l'intérieur d'un même dessin, sans même passer d'un dwg à l'autre. En même temps je reprend la question de François, je ne sais pas encore sélectionner un .pat plutôt qu'un autre, si qq'un connait un lien... En attendant j'écume l'aide et les forums. Dès que je trouve je reviens poster la solution. Encore merci à tous ! A très vite.

Bonjour tous, J'ai cherché et pourtant... Lorsque j'insère des hachures dans un dessin et que ce dessin est ré-ouvert plus tard, lorsque j'insère de nouvelle hachure en "Copiant les propriétés" des hachures déjà existantes, l'échelle des nouvelles n'a rien à voir avec celles d'origine. Donc pour un même rendu d'hachure nous avons des échelles différentes dans ce dessin. Et c'est toujours dans ces cas là que le patron passe par là et demande : "Et pourquoi ?" alors je lui parle de métaphysique, de concordance entre les ascendants et Saturne en Gémaux, de plaques tectoniques... Bref... Il me répond "Arrangez-moi çà !". Ai-je loupé une variable ? Help-me please. Phil

Salut, Pour ta question 1 je travail sur un projet , je te la passe dès que fini. Mais je ne te garantit pas les délais... J'attend des réponses sur des forums pour avancer. A bientôt...

Salut tous, Patrick, ta phrase sonne juste. Peut-être connais-tu le texte "Allégorie de la caverne" écrit par Platon ? Tu vas aimer. http://www.virtualistes.org/platon.htm A+

Bonjour, Une première partie de ta réponse serai d'hachurer la polyligne "en fonction" d'une propriété AVEC DES "IF" et des "THEN" mais cela incluerai de montrer par clik l'objet déterminant à savoir ta valeur d'attribut. Si tes polyligne sont sur un calque précis, DRH ou COMPTA, tu peux hachurer en fonction du calque. Je te propose une routine pour insérer des hachure dans un objet sélectionné : Public Sub HachurePicking() start: On Error GoTo scape Dim returnObjH As AcadObject 'C'est l'objet piqué par sélection ' Tableau d'entité qui sera passé à la méthode AppendOuterLoop ' de l'objet hachures Dim Frontiere(0 To 0) As AcadEntity ' Objet hachures Dim ObjetHachures As AcadHatch ' Pour piquer l'objet **** ThisDrawing.Utility.GetEntity returnObjH, basePnt, "Sélectionnez un objet SVP" ' On place la polyligne dans le tableau d'entités AutoCAD Dim ObjetFrontiere(0 To 0) As AcadEntity Set ObjetFrontiere(0) = returnObjH ' On crée la hachure dans le calque précis, mais avant on sauvegarde le calque courant Dim currLayer As AcadLayer Dim newLayer As AcadLayer Set currLayer = ThisDrawing.ActiveLayer 'sauvegarde le calque courant Set newLayer = ThisDrawing.Layers.Add("Hachures Jardin") 'Ajoute ou passe dans le calque concernant la hachure ThisDrawing.ActiveLayer = newLayer Set ObjetHachures = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "texture", False) 'La valeur false fait que la hachure n'est pas associative ' On défini la frontière de l'objet hachures ObjetHachures.AppendOuterLoop (ObjetFrontiere) ' On change l'échelle d'hachurage ObjetHachures.PatternScale = 1 ' On demande à AutoCAD de calculer les intersections des hachures ' et de la frontière ObjetHachures.Evaluate ' Retourne sur le calque d'avant l'insertion ThisDrawing.ActiveLayer = currLayer ' Zoom étendu (méthode de l'objet Application) ZoomExtents GoTo start scape: End Sub Cette routine doit être mixée avec celle-là : ' Récupère le nom du calque de l'objet choisi Calqueobjet = returnObj.Layer If Calqueobjet = "SHAB" Then GoTo alpha Else MsgBox "Ce n'est pas une Surface SHAB !", vbInformation, "Attention..." Dans ce cas, la petite routine indique que l'objet choisi ne fait pas partie des calques "SHAB" et déclenche un message d'erreur. Là où j'ai mis les 4* il y aura un embranchement, il faut bidouiller le tout pour dire un truc du style : If objetsélectionné appartient au calque COMPTA alors hachure = ANSI 131 If objetsélectionné appartient au calque DRH alors hachure = ANSI 132 etc... C'est peut être pas le meilleur moyen mais fait moi signe si t'arrive pas. phil_vsd@yahoo.fr

Salut tous, Attention Le Decapode, la petite routine postée n'est pas dynamique, cela implique que le dessinateur doit lui-même lors de chaque mise à jour effacer l'ancien texte inséré et relancer la routine afin d'en insérer un à jour. Cela peut être un peu dangereux si l'on oubli de le faire on se retrouve avec deux plans différents dans le temps ayant un tampon équivalent. Après on joue au jeu des erreurs... Mais bon, c'est mieux que rien.

Bonsoir ! Merci à vous tous pour vos aides, on va potasser tout cela...

Salut tous ! Je vais passer ton info au peigne fin. Merci pour l'astuce tyrese69_ ! En même temps je fais tout pour éviter le lisp... :casstet: hé hé ! A très vite !

Bonjour, En effet les champs dynammiques sont une mines d'or ! Merci mille fois !

C'est encore moi... Didier et Patrick m'ont aiguillé sur les champs dynamiques, ce sont des merveilleuses machines ! Mais cela ne résoud pas le problème des régions pour extraire les périmètres... Le champs dynamiques doivent être étudiés, c'est incontournable... Allez... zou...

Salut Didier ! Effectivement avec les champs dynamiques et un bon réglages des variable ça roule. En plus j'ai découvert les champs dynamiques depuis hier grâce à Patrick pour une autre histoire de routine et je n'ai pas eu le temps de les essorer pour voir leur potentiel... Toute mes routines VBA deviennent obsolètes avec le temps... Et que de temps passé ! Je ne regrette rien cela m'a donné le goût pour le VBA. Les champs dyn sont une pièce maîtresse pour la productivité. J'ai trouvé un autre truc pour le périmètre, on applique le Champ sur une région... Cela ouvre des horizons ! Merci encore mais ne t'en vas pas si vite on a besoin de toi dans : "Accueil du Forum > VBA et VB > centroid d'une polyligne fermée" car même si cela résout une partie du problème, il faut créer automatiquement des régions dans une selectionset... on a pas envie de se les créer une par une à cliquer partout... (On est pas fainéants, on est rentables...) Excuse nous si on t'a pourri ton week-end... :P

Re... Sub Select_SHAB_to_RED_and_region() 'Sélection manuelle de tout le dessin et passe la couleur des SHAB en DuCalque et création de région sur les polylignes de la sélectionset ' Création du nouveau jeu de sélection Dim SelectSetSHAB As AcadSelectionSet Set SelectSetSHAB = ThisDrawing.SelectionSets.Add("NewSelectH") 'Parametrage des filtres par calque SHAB et par polyligne Dim Filtertype(0) As Integer Dim Filterdata(0) As Variant Filtertype(0) = 8 ' Le 8 est le code DXF des calques Filterdata(0) = "SHAB" 'Ici on indique quel le calque en question sera le SHAB 'Selection à l'écran des objets SelectSetSHAB.SelectOnScreen Filtertype, Filterdata SelectSetSHAB.Highlight True 'allume la sélection Dim Polyligneselected As AcadEntity ' Polyligneselected devient une entité For Each Polyligneselected In SelectSetSHAB 'Tous les objets élus deviennent des entités Polyligneselected.color = acByLayer 'Les onjets élus changent de couleurs Next ' Create the region-******Les problemes commencent... For Each Polyligneselected In SelectSetSHAB Dim regionObj As Variant regionObj = ThisDrawing.ModelSpace.AddRegion(SelectSetSHAB) Next SelectSetSHAB.Highlight False 'Eteind la sélection SelectSetSHAB.Delete 'Vide la sélection End Sub C'est lors de la création des régions sur les polylignes sélectoinnées que ça ne marche pas... Si qq'un a une idée de ce que l'on met dans : regionObj = ThisDrawing.ModelSpace.AddRegion(SelectSetSHAB) car c'est là que le message d'erreur apparaît. On y est presque les gars ! Une fois les régions créées on pourra extraire les centroid pour inserer du texte (Aire et périmètre). A +

Suite de l'histoire... Voilà une partie de la routine pour créer la région sur l'objet sélectionné. Sub Region() Dim choixOBJ(0) As AcadObject 'C'est l'objet piqué par sélection ' Pour piquer l'objet pour la région ThisDrawing.Utility.GetEntity choixOBJ(0), basePnt, "Sélectionnez un objet SVP" ' Create the region Dim regionObj As Variant regionObj = ThisDrawing.ModelSpace.AddRegion(choixOBJ) ZoomAll End Sub Dans mon prochain post, je vous demanderai comment transformer tous les objets d'une collection en région... Je sèche... Merci a vous.

Bonjour, Merci tyrese69_ pour ton aide, je vais récupérer le code pour le machouiller un peu et l'arranger à notre sauce. Délais non garantis... Je teste et je reposte... Merci encore... A+

Bonjour, Je voudrai savoir comment finaliser un sujet lorsque l'on est satisfait des réponse. J'ai cru le voir l'autre fois sur le site mais je ne sais plus où... Merci

Re ! C'est vrai que tu peux faire un pdf de la fenêtre pour la rebasculer mais la c'est tout ton dessin qui est figé : Si tu retourne en Espace Objet les modifications ne se répercuteront pas... T'inquiète, on va trouver. Moi aussi ça m'intéresse car j'ai des collègue de travail que je dois "maîtriser" ha ha (Salut à vous les gars !). Je vais essayer de dégager du temps pour la créer la routine, mais je ne te garantis pas les délais... A ++

Bonjour à tous, Merci pour vos réponses rapides. Depuis le temps que je le vois je vais effectivement essayer le Compilo. Je vais essayer de déclarer le chemin le fichier dans le Support pour voir si tout le monde reviens. Je teste et je reposte... A très vite.