Dim marc As AcadArc
Dim MCEN (2) As a 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
The yellow (visit) the Set marc.=acaddoc ModelSpace. AddArc (MCEN, Mr, mstag, menag)
Marc. The Update
ZoomAll
End Sub
CodePudding user response:
Do you have such a definition?The Public? AcadApp? The As? AcadApplication
The Public? Acaddoc? The As? AcadDocument
The Set? Acaddoc?=? AcadApp. ActiveDocument
CodePudding user response:
Real-time error '424' : request object because of the use of object is not defined, look at the yellow line have object is not defined in front, the new definition,