AUTOLISP將所有圖層關閉只留下選取之圖層

這支程式是前面開關圖層的進階版
用看看就知道了~~
標題寫很清楚~~
內行人一看就知道


(defun C:tom8 (/ a b b1 c n c2 index )
(setvar "cmdecho" 0)
(command"-layer""ON""*""")
   (setq a (ssget))
(setq n(sslength a))
(setq c(ssname a 0))
(setq b1 (entget c))
;(entmod b1)


;(setq b1(entget (ssname a index)))
     ; (setq index (1+ index))
      (setq b(assoc 8 b1))
     (setq c1(cdr b))
(command"-layer" "OFF" "*" "Y" "")
(command"-layer" "ON" c1 "" "")


)

AUTOLISP將所有圖層關閉

將所有圖層關閉

(defun C:RSHOFF ()
(command"-layer" "OFF" "*" "Y" ""))

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 "")



)