[编程交流] 帮助：Lisp向前移动对象

[color=blue][font="Courier New"]
(defun C:mvlay ( / sset)
 [color="green"]; if the layer OLD_0 does not exist, then create it (i am making it blue)[/color]
 (if (not (tblsearch "LAYER" "OLD_0"))
   (command "._LAYER" "_N" "OLD_0" "_C" "5" "OLD_0" "" "")
 )
 [color="green"]; grab everything on layer 0[/color] 
 (setq sset (ssget "_X" '((8 . "0"))))
[color="green"]  ; change it to layer OLD_0[/color]
 (command "._change" sset "" "_P" "_LA" "OLD_0" "")
 (princ)
)
[/font][/color]