[原创]SendCommand--三点划弧

兰州人 · 发表于 2008-5-10 23:23:00

Sub ls()
  Dim aa As AcadArc
  Dim pp(0 To 2) As Double, ppp(0 To 2) As Double, pppp(0 To 2) As Double
  pp(0) = 100: pp(1) = 10: pp(2) = 0
  ppp(0) = -10: ppp(1) = 100: ppp(2) = 0
  pppp(0) = -200: pppp(1) = -110: pppp(2) = 0
  ThisDrawing.SendCommand "_arc (list " & pp(0) & " " & pp(1) & " " & pp(2) & ")" & vbCr _
   & "(list " & ppp(0) & " " & ppp(1) & " " & ppp(2) & ")" & vbCr _
   & "(list " & pppp(0) & " " & pppp(1) & " " & pppp(2) & ")" & vbCr
End Sub