Excel vbaを使ってオートキャドにラインを描くには？

Question

excelvbaを使ってオートキャドに線を描きたい。 次のコードを試しましたが、最後の2行目に「オブジェクトがこのプロパティまたはメソッドをサポートしていません」と表示されるランタイムエラーが発生します。 これを解決してください。

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

あなただけの1つの変更を加える必要があります。

Set lineobj = AcadDwg.AddLine(point1, point2) 

：最後の行、変更の隣で

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