Wie zeichnet man eine Linie in AutoCAD mit Excel VBA?

Question

Ich möchte eine Linie in AutoCAD mit Excelvba zeichnen. Ich habe versucht, den folgenden Code, aber es gibt einige Laufzeitfehler Anzeige "Objekt unterstützt diese Eigenschaft oder Methode" in der vorletzten Zeile. Bitte helfen Sie mir, das zu beheben.

Dim point1(1 To 3) As Double 
Dim point2(1 To 3) As Double 
Dim lineobj As Object 
Dim myapp As Object 
Dim AcadDwg As AcadDocument 

Sub access_autocad() 
On Error GoTo ERRORHANDLER 
Set myapp = GetObject(, "autocad.application") 

ERRORHANDLER: 
    If Err.Description <> "" Then 
    Set myapp = CreateObject("autocad.application") 
    End If 
    myapp.Visible = True 
Set AcadDwg = myapp.ActiveDocument 
point1(1) = 0: point1(2) = 0 
point2(1) = 1: point2(2) = 1 
Set lineobj = AcadDwg.AddLine(point1, point2) 

End Sub 

Answer 1

Sie benötigen nur eine Änderung vornehmen. Auf der vorletzten Zeile ändern:

Set lineobj = AcadDwg.AddLine(point1, point2) 

An:

Set lineobj = AcadDwg.ModelSpace.AddLine(point1, point2)