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

ppqqmsn

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

雪山飞狐_lzh

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

ppqqmsn

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

wyj7485

用SendCommand Sub test()
Dim pn(0 To 2) As Double
Dim R
pn(0) = 0: pn(1) = 0: pn(2) = 0
R = 5 ThisDrawing.SendCommand "polygon" & vbCr & "6" & vbCr & "(setq p(list " & pn(0) & " " & pn(1) & "))" & vbCr & "I" & Str(R) & vbCr
End Sub

ppqqmsn

万分感谢啊!! wyj7485 你写的 就是我想要的!!!
要在sengcommand中 发送变量!!! 而不仅仅是字符!!
当然还要一并感谢lzh741206的关注 .