....求LISP高手...关于OFFSET命令的LISPdefun 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))
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,,,,,,万分感谢
