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

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

希望高手出来帮助一下先是选中心点随意距离画圆然后向内偏移每格里标上 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
给你个参考，就差往圆之间写字了。你再改改吧
(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

谢谢楼主！又学一招。

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

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

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

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