请朋友们出手相助！

434939575 · 发表于 2013-12-14 23:20

本帖最后由 Gu_xl 于 2014-8-7 18:47 编辑

有多种半径的圆。希望把半径大于100的圆移到。坐标0，0位置。其余的修改为红色。我想用REPEAT处理。做不出来。太菜了。谢谢各位朋友了。

llsheng_73 · 发表于 2013-12-15 00:11

本帖最后由 llsheng_73 于 2013-12-15 00:18 编辑

你可以参考下这个
ssget 后跟mode 的部分理解(不断更新)
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=84736&fromuid=202795
然后估计你自己也能搞定

(if (setq s1(ssget "x"'((-4 . ">")(40 . 100))))
(repeat(setq m -1 n(sslength s1))
(entmod(setq a(entget(ssname s1(setq m(1+ m))))
a(subst'(10 0 0 0)(assoc 10 a)a)))))
(if (setq s1(ssget "x"'((-4 . "<=")(40 . 100))))
(repeat(setq m -1 n(sslength s1))
(entmod(setq a(entget(ssname s1(setq m(1+ m))))
a(append(vl-remove(assoc 62 a)a)'((62 . 1)))))))

434939575 · 发表于 2013-12-15 11:11

llsheng_73 发表于 2013-12-15 00:11
你可以参考下这个
ssget 后跟mode 的部分理解(不断更新)
http://bbs.mjtd.com/forum.php?mod=viewthread& ...

谢谢朋友的帮助。

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

[已解答] 请朋友们出手相助！