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.
