cadpolo

Salut ...SERGE.. Désolé ton code marche sans probleme "" erreur de saisie """"""". Tchao

sakut.... j'ai enfin trouvez le temps pour regarder tes quelques lignes, cela marche pas, correctement car quand je clique sur mon premier point ok et le deuxieme point ok il me trace la mline du permier point vers le point 0,0,0,..... alors je cherche à comprendre, mais impossible de trouver pourquoi ...... Donc si tu peux m'eclairer la lanterene .... merci ...... :casstet:

SALUT........ POUR L'ACHAT A PARIS DU BOUQUIN DE TALHEIM CHEZ L'EDITEUR QUEBECOIS DE PARIS .... CE N'EST PAS LA PEINE CELA FAIT UN MOMENT QU'ILS NE TRAVAILLLENT PLUS ENSEMBLE .... CAR J'AI COMMANDE CE BOUQUIN EN PDF ET JE L'AI EST APPELLE ET VOILA ... MAIS PASSE TA COMMANDE VIA SON SITE [surligneur] http://pages.videotron.ca/thalheim/[/surligneur] ET COMMANDE MAIS CELA PREND UN PEU DE TEMPSSSS...... ET TU L'AURAS ....... CA VAUT LE COUP ET [surligneur] BCP[/surligneur] DE BOULOT JE SUIS EN PLEIN DEDANS ...................

salut steph911 et à tous ...... va voir dans dans l'aide d'autocad pour " devellopers...." .... Il existe un tutorial vba qui explique le dessin d'un sentier, tu n'est pas obligé de tout faire ... mais cela peux t'expliqué comment dessiner un rectangle qui pourrait etre un mur, et aussi comprendre comment ça marche ..... au faite qu'est que sendcommand ???????. salut.....

salut serge ..... je te remercie pour ce code .... :) si j'ai bien compris ReDim Preserve vertexList(2) ' on garde en memoire le 1 et 2° point ou sommet For i = 0 To 2: [surligneur] ( on renvois ces points a la commande addmline )[/surligneur] ..vertexList(i) = returnPnt(i) vertices = 1 ' à quoi il sert ????? ensuite---- [surligneur] on traite les messages d'erreur[/surligneur] [surligneur] puis on passe à la boucle si l'on veur en rajouter d'autres points [/surligneur].... Mais la aussi :casstet: ................ReDim Preserve vertexList(UBound(vertexList) + 3) ............For i = 0 To 2: vertexList(UBound(vertexList) - 2 + i) = returnPnt(i): Next i ............vertices = vertices + 1 Si t'as le temps de répondre merci d'avance mais c'est déja très sympa de m'avoir ecrit ce code ...... Salut .........

bonjour a tous.... Voila je continue toujours ma petite formation sur le vba pour autocad et surtout sur le vb car très important pour la suite dans autocad ...pas evident..... Bon j'ai un probleme. ....... je veux utiliser mline pour dessiner des murs ou poutres etc..... mais cette commoande addmline n'accepte que des points pas comme line qui accepte deux points '"" Getpoint pour le point dep et getpoint point final ""... mais addmline n'accepte que des points, alors si j'ai bien compris il faudrait que j'utilise la commande dim pour demarer et ensuite redim pour creer un nombre de points à ajouter à points pour creer cette fameuse mline .... Aussi avec VBA peux t'on lire le fichier le fichier mln pour lire le type de mline que l'on veut inserer .....

Salut .... Peux t'on creer deux calque dfferent dans un même code .. 1° ---Layers.Add (" ff ") est creer puis activer .. code.....et action .... ensuite 2°---Layers.Add ( " 22 " ) n'est pas creer et il y a une erreur ou pour l'eviter le code On Resume Next ... et en ajouter du txt autre que la méthode AddText "..." car on peut pas y mettre une variable .... txt = " ftg " Add.Text ( txt.....) mais ça txt = Getinteger ( " xx" ) Add.Text ( txt ) ne marche pas ....

effectivement mais la commande multiligne est limitée .... on ne pas y ajouter du txt , y mettre des hachures ni la renseigner ... faire du vba n'est pas seulement dessiner il y a aussi de l'échange avec d'autre soft bd ex ... ça améliore le boulot qu'on ne fait que ça ... il y a plusiers d'autres raisons ...... et toi cela t'interresse t'il ????

salut ... j'ai procedé differement en tracant une ligne et ensuite la décalé .... bon c'est un début ..... mais merci pour ton tes lignes je vaie l' éssayé .. Private Sub CommandButton1_Click() Dim lineObj As AcadLine Dim sp(0 To 2) As Double Dim ep(0 To 2) As Double Dim offsetObj As Variant Dim di As Double Dim layerObj As AcadLayer 'creer un calque pour y mettre la ligne Set layerObj = ThisDrawing.Layers.Add("toto") ThisDrawing.ActiveLayer = layerObj UserForm1.Hide varRet = ThisDrawing.Utility.GetPoint(, " pt dep ") sp(0) = varRet(0) sp(1) = varRet(1) sp(2) = varRet(2) varRet = ThisDrawing.Utility.GetPoint(, " pt fin ") ep(0) = varRet(0) ep(1) = varRet(1) ep(2) = varRet(2) Set lineObj = ThisDrawing.ModelSpace.AddLine(sp, ep) di = ThisDrawing.Utility.GetDistance(, "entrer la distance = ") offsetObj = lineObj.Offset(di) End Sub

effectivement deux lignes paralleles 2D en utilisant Getpoint ... car la mline est en 3D et .... ex pour tracer un mur en cliquant sur son axe on a de part et d'autre de cet axe deux lignes paralleles ..... j'ai l'impression qu'autocad ne le permet pas comme la double ligne sur la LT ... ou il faut ruser

alors si c'est tres easy comment ???? je t'explique pourquoi il s'agit de creer une double ligne en y mettant une hachure et du txt au dessus ....

que veux-tu dire par donation ???? je débute en faire je ne connais pas grand chose du vba , mais efectivement si j'y arrive je le mettrai sur le forum pour tout le monde ........

j'utilise depuis peux advance gamme beton de chez graitec .. j'aimerais savoir si parmis vous bcp le connaissent et l'utilisent... mon avis il est pas trop mal mais c'est different de la conception habituelle en 2D il faut a mon avis une organisation de dessin totalement differente .. la creation de bcp de calques et cela reprend le travaille en 3D ....

Est'il si difficille de creer une double ligne en vba ...

salut ... j'aimerias savoir comment creer une double ligne en cliquant à partir de l'axe de ces deux... ex creer un mur en cliquant pt1 et pt 2 ... car j'ai cru comprendre que la multiligne demande des sommets .... merci ....

bon je vais m'y mettre .... effectivement sur l'aide il y a une rubrique pour le diesel mais ça ne dit pas cette fameuse syntaxe aussi je regarde le lisp .... mais pareil on n'a toute l'info .. des commandes autocad ....

bon je vais m'y mettre .... effectivement sur l'aide il y a une rubrique pour le diesel mais ça ne dit pas cette fameuse syntaxe aussi je regarde le lisp .... mais pareil on n'a toute l'info .. des commandes autocad ....

salut a tout le monde j'aimerais creer des macros j'ai pu voir que l'on ne peut tout faire avec .. donc j'aimerais me mettre au diesel .. ou puis - je trouvez des info notament comment ça marche la syntaxe ...... merci