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