[lisp] 두개의 레이어를 켜고 싶을때 리습명령어

(DEFUN C:L0 () (command "clayer" "0"))
(DEFUN C:LNCT () (command "clayer" "NCT"))
(DEFUN C:Lmagenta () (command "clayer" "MCO"))
(DEFUN C:LHIDDEN2 () (command "clayer" "HIDDEN2"))

(defun C:L1 (/ lo cla)
       (setvar "cmdecho" 0) 
       (princ " = LAYER OFF")
       (setq lo (entsel))
       ;(setq lo (car lo)) 
       ;(setq lo (cdr (assoc 8 (entget lo))))
       (if lo
          (setq lo (cdr (assoc 8 (entget (car lo)))))
          (setq lo (strcase (getstring
                            "\n>> If not, Type Layer Name :")))
       );;if
       (setq cla (getvar "clayer"))
       (if (= cla lo)
          (command ".LAYER" "s" "0" "")
       );;if
       (command ".LAYER" "off" (setq lo lo) "")
       (setvar "cmdecho" 1)
       (prin1)
)

(defun C:L2 (/ L2)
       (setvar "cmdecho" 1)
       (princ " = LAYER ALL OFF")
       (setq af (entsel))
       (princ af)
       (princ)
       (setq af (car af))
       (princ af)
       (princ)  
       (setq af (cdr (assoc 8 (entget af))))
       (princ af)
       (princ)  
       (command ".LAYER" "s" af "")
       (command ".LAYER" "off" "*" "" "")
       (setvar "cmdecho" 1)
       (prin1)
)

(defun C:L3 (/ L3)  
       (setvar "cmdecho" 0)
;;;       (princ " = LAYER ALL OFF")
;;;       (setq af (entsel))
;;;       (princ af)
;;;       (princ)
;;;       (setq af (car af))
;;;       (princ af)
;;;       (princ)  
;;;       (setq af (cdr (assoc 8 (entget af))))
;;;       (princ af)
;;;       (princ)  
       (command ".LAYER" "s" "NCT" "")
       (command ".LAYER" "off" "*" "" "")
       (setvar "cmdecho" 1)
       (prin1)
)

(defun c:L4 (/ an)
       (setvar "cmdecho" 0)
       (princ "= LAYER ALL ON")
       (command ".LAYER" "on" "*" "")
       (setvar "cmdecho" 1)
       (prin1)
)



(defun C:L5 (/ e eo el nla no )
       (setvar "cmdecho" 1)
       (prompt "\n>> Select Entities to Change :")
       (setq eo (ssget))
;;;       (prompt "\n>> To what Entity?(or ENTER for Type) :")
;;;       (setq el (entsel))
       (if (= nil el)
           (setq nla (strcase (getstring
               "\n>> If not, Type Layer Name (or ENTER for Current Layer) :")))
           (setq nla (cdr (assoc 8 (entget (car el))))))
       (if (= nla "")
           (setq nla (getvar "clayer"))
       );;if
       (setq no 0)
;       (command ".CHANGE" eo "" "p" "la" nla "")
       (command ".CHANGE" eo "" "p" "la" "0" "")   ; nla -> 바꿀레이어이름
       (while  
           (setq e (ssname eo no))
           (setq no (1+ no)))
       (setvar "cmdecho" 1)
       (prin1)
  (L3)    ; NCT 레이어만 보기
;;;(setq doc (vla-get-activedocument (vlax-get-acad-object)))
;;;(vla-sendcommand doc (strcat l3 " "))  
)

(defun C:L6 (/ L6)  
       (setvar "cmdecho" 0)
;;;       (princ " = LAYER ALL OFF")
;;;       (setq af (entsel))
;;;       (princ af)
;;;       (princ)
;;;       (setq af (car af))
;;;       (princ af)
;;;       (princ)  
;;;       (setq af (cdr (assoc 8 (entget af))))
;;;       (princ af)
;;;       (princ)  
       (command ".LAYER" "s" "레이져" "")
       (command ".LAYER" "off" "*" "" "")
       (setvar "cmdecho" 1)
       (prin1)
)


 (defun c:q3 () (command "laylck"))      ; 레이어 잠금
 (defun c:q33 () (command "layulk"))     ; 레이어 잠금해제
;
(defun c:q2 () (command "layiso"))      ; 선택레이어외 모두 잠금
(defun c:q22 () (command "layuniso"))   ; layiso 해제
;
(defun c:q4 () (command "layoff"))      ; 레이어 끔 
(defun c:q44 () (command "layon"))      ; 레이어 켬 
;

위의 리습명령을 이용해서 
L7  명령어를 만들려고 하는데,

L7명령은 "레이져" layer와 "visibleLine"을 화면에 보이게 하는 코드이다.

 

리스프 명령어를 정의할 때, 다른 기존 명령어들을 참조하거나 결합하여 사용할 수 있습니다.

여기서 `C:L7` 명령어를 정의하여 "레이져" 레이어와 "visibleLine" 레이어를 화면에 보이게 하려면 다음과 같은 절차를 따르면 됩니다:


1. 모든 레이어를 꺼놓습니다. 2. "레이져" 레이어와 "visibleLine" 레이어만 켭니다.

위의 절차를 반영하여 `C:L7` 함수를 다음과 같이 정의할 수 있습니다: ```

lisp (defun C:L7 () (setvar "cmdecho" 0) ; 명령어 출력을 숨김 (command ".LAYER" "OFF" "*" "") ; 모든 레이어를 꺼놓음 (command ".LAYER" "ON" "레이져" "") ; "레이져" 레이어를 켬 (command ".LAYER" "ON" "visibleLine" "") ; "visibleLine" 레이어를 켬 (setvar "cmdecho" 1) ; 명령어 출력을 복원 (princ) ) ```

이제 AutoCAD에서 `L7` 명령어를 입력하면 "레이져" 레이어와 "visibleLine" 레이어만 화면에 보이게 됩니다.

(defun C:L7 ()
    (setvar "cmdecho" 0)        ; 명령어 출력을 숨김
    (command ".LAYER" "OFF" "*" "")  ; 모든 레이어를 꺼놓음
    (command ".LAYER" "ON" "레이져" "") ; "레이져" 레이어를 켬
    (command ".LAYER" "ON" "visibleLine" "") ; "visibleLine" 레이어를 켬
    (setvar "cmdecho" 1)        ; 명령어 출력을 복원
    (princ)
)

 

두개의 레이어를 켤 경우 위의 사항을 따르면 됩니다.