Comment créer une ligne en VBA AutoCad

Sub AjoutLigne()

    ' Définition du point de départ x=5, y=5 , z=0

    Dim PtDep(0 To 2) As Double

    PtDep(0) = 5: PtDep(1) = 5: PtDep(2) = 0#

     ' Définition du point d'arrivée x=15, y=20 , z=0

    Dim PtFin(0 To 2) As Double

    PtFin(0) = 15: PtFin(1) = 20: PtFin(2) = 0#

     ' Création de la ligne dans l'espace Objet

    Dim MaLigne As AcadLine

    Set Maligne = ThisDrawing.ModelSpace.AddLine(PtDep, PtFin)

    ThisDrawing.Application.ZoomAll

End Sub

Retour à la liste