defun cfe (/ en i d p1 ss en1)
(prompt "选择要偏离的目标:")
(setq en (ssget ) i 0 ss (sslength en))
(setq d (getstring "要偏离的距离:") p1 (getpoint "偏离的方向(所有目标)"))
(repeat ss
(setq en1 (ssname en i) i (+ i 1))
(command "offset" d en1 p1"""erase" en1 "")
)
)
以上LISP实现了批量编移..同时删除原对象的功能...但我还很需要同时实现批量偏移...同时删除原对象..和偏移后变色的功能...请帮帮忙..我工作十分需要这个LISP,,,,,,万分感谢
全部回复（3 ）
只看楼主 我来说两句-
lonnee
沙发
好不好用?一定得是线,不能是块什么的吗?
2008-10-09 09:20:09
赞同0
-
施工cad
板凳
看别人的程序源代码，是很累的，特别是对自己没有吸引力的那种。
2008-09-26 11:33:26
赞同0
加载更多回复 举报
我感觉你想要的功能，还要增加不少代码。
回复 举报