將選取的所有0層物件切換至圖層「Stu_temp」

(defun c:move0(/ ss)
(princ "\n 將選取的所有0層物件切換至圖層「Stu_temp」...")
(setq ss (ssget "x" '((8 . "0"))))
(command "change" ss "" "p" "la" "Stu_temp" "")
(princ (strcat "\n 完成切換至圖層「Stu_temp」!共" (rtos (sslength ss) 2 0) "個."))
(princ)
);end movetemp