ppqqmsn 发表于 2005-5-24 10:37:00

[求助] 已知一个圆的圆心坐标和半径如何画它的外接正六边形? 急!!

如题, 急啊 , 高手请指点!!! 多谢了!!<br>

雪山飞狐_lzh 发表于 2005-5-24 10:54:00

先按圆心和半径求各点的值，再用多义线连接

ppqqmsn 发表于 2005-5-24 11:47:00

万分感谢,可是不能直接调用 CAD 中的polygon       命令来画吗?<br>
这样不用计算啊, 我是菜鸟 不会调用CAD 中的 命令阿!! <br>
请帮帮我啊!! <br>

wyj7485 发表于 2005-5-24 16:38:00

用SendCommand


Sub test()<BR>Dim pn(0 To 2) As Double<BR>Dim R<BR>pn(0) = 0: pn(1) = 0: pn(2) = 0<BR>R = 5


ThisDrawing.SendCommand "polygon" &amp; vbCr &amp; "6" &amp; vbCr &amp; "(setq p(list " &amp; pn(0) &amp; " " &amp; pn(1) &amp; "))" &amp; vbCr &amp; "I" &amp; Str(R) &amp; vbCr<BR>End Sub

ppqqmsn 发表于 2005-5-30 21:05:00

万分感谢啊!!                               <font><b><a name="33837"><font color="#000066"><b>wyj7485</b></font></a></b></font>       你写的 就是我想要的!!!<br>
要在sengcommand中 发送变量!!! 而不仅仅是字符!!<br>
当然还要一并感谢<a name="33747"><font color="#990000"><b>lzh741206的关注 .<br>
</b></font></a>
页: [1]
查看完整版本: [求助] 已知一个圆的圆心坐标和半径如何画它的外接正六边形? 急!!