yang686526

help me !关于偏移为当前图层的问题！
www.dimcax.com

用offset命令，然后用entlast获得偏移后的图元，然后用change也好，subst也好，都可以将新图元置于当前图层上
d
看这个程序是不是你要的效果
;偏移并将新对象改变到当前层
(defun cfu (/ of1 of2 va1 en2 pt1) (princ)
(setvar "cmdecho" 0)(command "undo" "be")
(princ "偏移并将新对象改变到当前层")
(setq cm (princ (strcat "\n" (getvar "clayer"))))
;确定偏移距离
(setq of1 (getvar "offsetdist"))
(setq of2 (strcat "\n偏移距离 <"(rtos of1 2)">: "))
(setq va1 (getstring of2))
;
(setq en2 (entsel "\n选择偏移对象:"))
(setq pt1 (getpoint "\n选择偏移方向:"))
(while (/= pt1 nil)
(command "offset" va1 en2 pt1 "")
(setq dz (entlast))
(command "change" dz "" "p" "la" cm "")
(setq en2 (entsel "\nselect object to offset:"))
(setq pt1 (getpoint "\nside to offset:"))
)
(princ)(setvar "cmdecho" 1)(command "undo" "e")
)
d