帮助：Lisp向前移动对象
我对lisp非常陌生，正在努力自学。（顺便说一句，这个网站帮了我很大的忙！谢谢！）谁能帮帮我吗。我试图找出如何从层“0”抓取所有对象，并将其移动到一个称为“Old\u 0”的新层。 这里有一种方法。
(defun C:mvlay ( / sset)
; if the layer OLD_0 does not exist, then create it (i am making it blue)
(if (not (tblsearch "LAYER" "OLD_0"))
(command "._LAYER" "_N" "OLD_0" "_C" "5" "OLD_0" "" "")
)
; grab everything on layer 0
(setq sset (ssget "_X" '((8 . "0"))))
; change it to layer OLD_0
(command "._change" sset "" "_P" "_LA" "OLD_0" "")
(princ)
)
哇，有那么简单吗？谢谢，效果很好！
页:
[1]