dessiner une polyligne en vba autocad

[johaynamedeb90@gmail.com]

Bonjour,

je cherche code VBA autocad permet de dessiner une polyligne à partir de deux points donnés et en suivant un chemin spécifique (une autre polyligne) sinon les 2 polylignes seront superposées.

j'ai dejà ecris ce code mais ne fonction pas correctement:

Sub dessiner_polyline()

Dim lineobj As AcadLine

Dim entite As AcadEntity

Dim ptd As Variant

Dim pta As Variant

 

ThisDrawing.Utility.GetEntity entite, ptClique, "Cliquer sur le chemin choisis"

 

ptd = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT DEPART")

pta = ThisDrawing.Utility.GetPoint(, "ENTRER LE POINT ARRIVER")

 

Set lineobj = ThisDrawing.ModelSpace.AddPolyline(entite, ptd, pta)

 

ZoomExtents

 

End Sub

 

Je vous remercie par avance de vôtre aide. Cordialement.