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
uj5u.com熱心網友回復：
你有這樣定義嗎？Public?acadApp?As?AcadApplication
Public?acaddoc?As?AcadDocument
Set?acaddoc?=?acadApp.ActiveDocument
uj5u.com熱心網友回復：
實時錯誤'424': 要求物件是因為所使用的物件沒有定義，看標黃的那行是不是有物件沒有在前面定義，從新定義就行。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/11964.html
標籤：VB基礎類
上一篇：有關access錯誤的問題