[求助]autolisp needed layer (on, off, freeze, lock, isolate, thaw)

sachindkini

 

Dear all

autolisp needed layer (on, off, freeze, lock, isolate, thaw)

I WANT ADVANCE LAYER ON OF UTILITY

I’m using

(defun cTT () (command "layer" "th" "*" ""))

(defun cFF () (command "layer" "f" "*" ""))

(defun con () (command "layer" "on" "*" ""))

(defun coF () (command "layer" "off" "*" "" ""))

&

(defun cof ()

  (setq ss (entsel "\n Select Entity Layer to Off :"))

  (setq el (entget (car ss)))

  (setq la (cdr (assoc 8 el)))

  (command "layer" "off" la "")

  (PRINC)

)