Private Sub Command1_Click()
Dim PN1(0 To 2) As Double
Dim PN2(0 To 2) As Double
Dim PN3(0 To 2) As Double
Dim PN4(0 To 2) As Double
Dim li1 As AcadLine
Dim ArcObj As AcadArc
Dim startPoint(0 To 2) As Double
PN1(0) = 10: PN1(1) = 10: PN1(2) = 0 '起点座标
PN2(0) = 30: PN2(1) = 10: PN2(2) = 0 '终点座标
PN3(0) = 10: PN3(1) = 15: PN3(2) = 0 '起点座标
PN4(0) = 30: PN4(1) = 15: PN4(2) = 0
'绘制直线
Set li1 = acadapp.ActiveDocument.ModelSpace.AddLine(PN1, PN2)
Set li2 = acadapp.ActiveDocument.ModelSpace.AddLine(PN3, PN4)
Set ArcObj = acadapp.ActiveDocument.ModelSpace.AddArc(startPoint, 20, 15, 30)
ZoomAll
End Sub