lzg8877 发表于 2012-5-4 06:00:58

求个代码 画圆 选中心点 选任意距离 向圆心偏移10mm 到中心！

希望高手出来帮助一下先是 选中心点 随意距离 画圆 然后向内 偏移 每格里 标上 1.0 1.1 1.2 1.3 ……。
   先谢

wowan1314 发表于 2012-5-4 16:17:48

青年节第一帖，帮你顶

wowan1314 发表于 2012-5-4 16:56:15

本帖最后由 wowan1314 于 2012-5-4 16:59 编辑

给你个参考，就差往圆之间写字了。 你再改改吧
(DEFUN C:T11 (/ EN WW-XIN WW-BANJ);
(COMMAND ".CIRCLE" PAUSE)
(COMMAND PAUSE)
(SETQ EN (ENTLAST))
(SETQ WW-XIN (CDR (ASSOC 10 (ENTGET EN))));圆心
(SETQ WW-BANJ (CDR (ASSOC 40 (ENTGET EN))));半径
(WHILE (AND WW-BANJ (> (- WW-BANJ 10) 10))
(SETQ WW-BANJ (- WW-BANJ 10))
(COMMAND ".CIRCLE" WW-XIN WW-BANJ))
(PRINC))

lzg8877 发表于 2012-5-5 05:23:13

wowan1314 发表于 2012-5-4 16:56 static/image/common/back.gif
给你个参考，就差往圆之间写字了。 你再改改吧
(DEFUN C:T11 (/ EN WW-XIN WW-BANJ);
(COMMAND ".CIRCLE" ...

wowan1314谢谢呀 很强大呀

hohoqin 发表于 2014-2-28 22:31:45

wjnnan 发表于 2014-3-4 13:27:35

这是什么啊，楼主什么行业啊

清风明月名字 发表于 2014-3-5 22:21:09

谢谢楼主！又学一招。
页: [1]
查看完整版本: 求个代码 画圆 选中心点 选任意距离 向圆心偏移10mm 到中心！