Sub Ch2_AddLineVB()
 On Error Resume Next

 ' Connect to the AutoCAD application
 Dim acadApp As AcadApplication
 Set acadApp = GetObject _
 (, "AutoCAD.Application.18")
 If Err Then
 Err.Clear
 Set acadApp = CreateObject _
 ("AutoCAD.Application.18")
 If Err Then
 MsgBox Err.Description
 Exit Sub
 End If
 End If

 ' Connect to the AutoCAD drawing
 Dim acadDoc As AcadDocument
 Set acadDoc = acadApp.ActiveDocument

 ' Establish the endpoints of the line
 Dim lineObj As AcadLine
 Dim startPoint(0 To 2) As Double
 Dim endPoint(0 To 2) As Double
 startPoint(0) = 1
 startPoint(1) = 1
 startPoint(2) = 0
 endPoint(0) = 5
 endPoint(1) = 5
 endPoint(2) = 0
 ' Create a Line object in model space
 Set lineObj = acadDoc.ModelSpace.AddLine _
 (startPoint, endPoint)
 ZoomAll
 acadApp.visible = True
End Sub

Procedure Ch2_AddLine()
 acadApp est un objet automation "AutoCAD.Application.18"

 Si InfoObjet(acadAPP) = Null Alors
   Erreur("Impossible d'initialiser l'objet AutoCAD")
   Retour
 Fin

 acadDoc est un objet automation dynamique
 acadDoc = acadApp>>ActiveDocument()

 LineObj est un objet automation dynamique
 startPoint est un tableau dynamique de 3 réels
 endPoint est un tableau dynamique de 3 réels
 startPoint[1] = 1
 startPoint[2] = 1
 startPoint[3] = 0
 endPoint[1] = 5
 endPoint[2] = 5
 endPoint[3] = 0

 lineObj = acadDoc>>ModelSpace>>AddLine(ConstruitVariantAutomation(startPoint), ConstruitVariantAutomation(endPoint))

 //ZoomAll  : cette ligne pose un probleme !!!!
 acadApp>>Visible = True

AddLine(startPoint, endPoint)

AddLine(ConstruitVariantAutomation(startPoint), ConstruitVariantAutomation(endPoint))