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