CabinetD

C'est qu'à chaque sommet de la polyligne, j'aimerais écrire le numéro du sommet (Pt) Pour faire la relation entre le tableau 1 X=456.65 Y= 132.22 2 X=456.21 Y= 134.22 3 X=451.65 Y= 136.22 4 X=...... 5 X=...... Et la polyligne Merci encore...

Ok, voici la macro ( je suis en train de la faire, alors la mise en forme n'est pas faite ) Public Sub nbPoints() Dim objPoly As AcadLWPolyline Dim basePnt As Variant Dim nbPoints, Pt As Integer Dim Tableau(200) As String Dim MtextObj As AcadMText a = 0: Pt = 1 ThisDrawing.Utility.GetEntity objPoly, basePnt, "Selectionner une polyligne :" For Each Coordinate In objPoly.Coordinates Tableau(nbPoints) = Coordinate nbPoints = nbPoints + 1 Next 'MsgBox "Cette polyligne à : " & nbPoints / 2 & " pts(x,y)" Do While Tableau(a) <> "" Texte = Texte & "\P" & Pt & " X=" & Tableau(a) & " Y=" & Tableau(a + 1) ' Set MtextObj = ThisDrawing.ModelSpace.AddMText([surligneur]**ICI**[/surligneur] , 200, Texte) Pt = Pt + 1 a = a + 2 Loop Texte = "Tableau des coordonnées\P" + Texte 'Saisie du point d'insertion returnPnt = ThisDrawing.Utility.GetPoint(, "Cliquez le coin Haut Gauche du Cadre :") 'Insert le texte au point d'insertion Set MtextObj = ThisDrawing.ModelSpace.AddMText(returnPnt, 200, Texte) MtextObj.Height = 3 ' MtextObj.StyleName = "Time" MtextObj.Update End Sub J'aimerai mettre **ICI** les coordonnées du point pour écrire le matricule du point aux sommets de la polyligne Merci...

Bonour à tous... J'ai fais une petite macro qui sélectionne une polyligne.... Le première fois, tout est ok, mais quand je la relance, AutoCAD me répond : Aucune commande n'est en cours dans AutoCAD et rien n'est sélectionné... Quelqu'un à une idée ? Merci...

Bonjour, Je cherche à faire un tableau de coordonnées avec justement des polylignes comme entités... Mais je ne vois pas trop comment faire... Merci...

Bonsoir à tous... Je me permet juste un petit mot, j'utilise maintenant de Bonuscad... Mais modifié, car mon SCU n'est jamais conforme à l'écran... Mais mon curseur l'est... J'ai modifier comme suit : (defun c:lambda ( / pt rot) (setq pt (getpoint (strcat "\nPoint de départ <" (rtos (car (getvar "lastpoint"))) "," (rtos (cadr (getvar "lastpoint"))) "," (rtos (caddr (getvar "lastpoint"))) ">: "))) (if (null pt) (setq pt (getvar "lastpoint"))) (setq rot (getorient pt (strcat "\nOrientation du texte <" (angtos 0) ">: "))) (if (not rot) (setq rot [surligneur] (getvar "snapang")[/surligneur] )) ; valeur en radian et dans le sens trigo (command "_.text" "_none" pt 0.5 "_none" (polar pt rot 10) "C'est toujours dans le bon sens") ) Et c'est toujours horizontal.... Sans aucune rotation du SCU (ce qui ne me plaisait pas...) CabinetD... (LogIn du perso : DenisH..)