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

lzg8877

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

wowan1314

青年节第一帖，帮你顶

wowan1314

给你个参考，就差往圆之间写字了。 你再改改吧
(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

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

wowan1314  谢谢呀 很强大呀

hohoqin

wjnnan

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

清风明月名字

谢谢楼主！又学一招。