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