제가 가지고있는 리습이 선택한 레이어를 제외한 모든 레이어 동결하는 리습입니다.
;
;+ISOLATE + Set a layer by entity selection and freezes all others
; ACADemy User Group, Portland, OR
;
;Sets a layer that the user picks from the drawing by way of
; selecting an entity on that layer and then freezes all the other layers.
;
(defun C:11 (/ ent mlayer echo)
(setq echo (getvar “CMDECHO”))
(setvar “CMDECHO” 0)
(setq ent (entsel “nSelect an entity on the layer to isolate: “))
(if (NULL ent); Make sure an object was selected
(while (NULL ent)
(princ “nTry again or press ^C to quit: “)
(setq ent (entsel))
); While
): If
(setq ent (entget (car ent)))
(setq mlayer (cdr (assoc 8 ent)))
(COMMAND “LAYER” “S” MLAYER “f” “*” “”)
(setvar “CMDECHO” echo)
(princ)
); Defun 4
다시 전체 동결 해지 시키려면 어떻게 해야하는지 모르겠네요 ㅠ
방법을 혹시 알고 계신분 계신가요?
공유