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

[原创]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

英雄无敌 发表于 2008-5-11 08:26:00

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

lijiayin110 发表于 2016-10-18 15:12:00

谢谢分享~~~

nslove44202489 发表于 2017-8-23 20:42:00

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

nslove44202489 发表于 2017-8-23 20:43:00

改写一下啊addarc方法

zzyong00 发表于 2017-8-23 23:10:00

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

pengfei2010 发表于 2017-10-7 19:24:00

回帖是一种美德！感谢楼主的无私分享 谢谢
页: [1]
查看完整版本: [原创]SendCommand--三点划弧