vb实时错误424，怎么办？

[jadjedhj]

Private Sub Command1_Click()
Dim marc As AcadArc
Dim mcen(2) As Double
Dim mr As Double
Dim mstaga As Double
Dim menag As Double

mcen(0) = Val(Text1.Text)
mcen(1) = Val(Text2.Text)
mcen(2) = Val(Text3.Text)
mr = Val(Text4.Text)
mstag = Val(Text5.Text) * 3.1415926 / 180
menag = Val(Text6.Text) * 3.1415926 / 180

（此行标黄）Set marc = acaddoc.ModelSpace.AddArc(mcen, mr, mstag, menag)

marc.Update
ZoomAll
End Sub

[Domilike]

实时错误'424': 要求对象是因为所使用的对象没有定义，看标黄的那行是不是有对象没有在前面定义，从新定义就行。

[Domilike]

你有这样定义吗？ Public acadApp As AcadApplication Public acaddoc As AcadDocument Set acaddoc = acadApp.ActiveDocument