[原创]SendCommand--三点划弧

兰州人

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

英雄无敌

高，不过这种三点的方法我很少用，我还是喜欢指定中心点的。

lijiayin110

谢谢分享~~~

nslove44202489

自己写一个三点画弧的函数不就可以吗

nslove44202489

改写一下啊addarc方法

zzyong00

SendCommand 的缺点是命令栏里显示一大堆文字，
而且取得画完的对象，还得用其它的方法

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢