请朋友们出手相助！
本帖最后由 Gu_xl 于 2014-8-7 18:47 编辑有多种半径的圆。希望把半径大于100的圆移到。坐标0，0位置。其余的修改为红色。我想用REPEAT处理。做不出来。太菜了。谢谢各位朋友了。
本帖最后由 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))))))) llsheng_73 发表于 2013-12-15 00:11 static/image/common/back.gif
你可以参考下这个
ssget 后跟mode 的部分理解(不断更新)
http://bbs.mjtd.com/forum.php?mod=viewthread& ...
谢谢朋友的帮助。
页:
[1]