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

[原创]SendCommand--三点划弧

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

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

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

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

谢谢分享~~~

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

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

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

改写一下啊addarc方法

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

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

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

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