AUTOLISP-關閉圖層

身為機械業的我不外乎最常見的就是常常在關閉及打開圖層
這些惱人的動作讓人枯燥
所以小唐寫了一個簡單不過的幾句語法來克服這些煩躁的動作
有需要的網友可以載入試看看


(defun c:closelayer(/ g)
(setvar "cmdecho" 0)
(setvar "OSMODE" 0)
(command "clayer" "0")
(setq a(ssget ))
(setq b(ssname a 0))
(setq c(entget b))
(setq d(assoc 8 c))
(setq e(cdr d))
(command "-layer" off e "")



)