홈/ 질문/Q 112528
다음
진행 중
손상디
Lv.0
등록일: 2020-08-13T17:21:18+09:00 카테고리:

특정 레이어만 남기고 모두 숨기는 리습있을까요?

안녕하세요~! 궁금한게있어 질문남깁니다.

예를 들어 도면에 여러가지 레이어가 존재합니다.

예시로 [QR]이라고 명령어를 입력하면

여러가지 레이어중 특정레이어(Red)라는 레이어만 남기고 모두 숨기는 리습이 있을까요

* QR이라는 명령어를 침 -> 수만은 레이어중 “특정레이어 red”라는 레이어만 남기고

모두 전구표시 끄는 사라지게 하는 숨기는 리습 ㅠ

고수분들 ㅠㅠ 좀 도와주세요…

공유나… 만드는법좀알려주세여ㅠ

공유

    관련 있는 질문들

    9 답변

    1. aalan
    2. Lv.0

       

      (defun c:aa(/ OS var8 nn1 n11 nn2);선택한 레이어만 ON;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

      (defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” os) (princ) )
      (setq os (getvar “osmode”))

      (setq var8 (getvar “clayer”))
      (setq nn1 (entsel “n선택객체의 레이어를 켭니다. – 객체를 선택하세요. <ENTER = ALL> “))

      (if (/= nn1 nil)
          (progn
             (setq n11 “”)
                 (while nn1
                     (setq nn2 (car nn1))
                     (setq n1 (cdr (assoc 8 (cdr (entget nn2)))))
                     (setq n11 (strcat n11 “,” n1))
                     (setq nn1 (entsel “n선택객체의 레이어를 켭니다. – 객체를 선택하세요. <ENTER = ALL> “))
                 );while end
                 (command “layer” “off” “*” “y” “”)
                 (command “layer” “on” n11 “”)
          );progn end
          (progn
                   (command “layer” “on” “*” “”)     ;;nil이면 모든 객체 보기
          );progn end
      );if end 
            (princ “n선택객체의 레이어만 보기”)
            (PRINC)
      );DEFUN END

      • 0
    3. Lv.23

      layiso

      • 0
    4. Lv.0

      ㅠㅠ layiso 기능은 알고있습니다… 저는 마우스로 red라는 레이어를 선택 안하고
      명령어만 쳐도 red라는 레이어만 남기고 모두 숨기고 싶습니다..

      • 0
    5. Lv.0

      감사해요ㅠㅠㅠㅠ 힘들게 작성해주셨는데..
      저는 선택한 레이어만 남기고 끄는 리습은 있습니다ㅠㅠㅠ
      요점만 말하면 마우스로 레이어를 선택 안하고
      aa를 치면 aa레이어만 남기고 모두 숨기고싶어요….
      선택 안하고도 할 수 있는 따로 방법은 없을까요 ?
      마우스 선택조차 안하는..편리함을 추구하는건 욕심일까요 ㅠ

      • 0

    6. 제가 사용 잘 하겠습니다. 감사합니다.♡♡♡♡♡

      • 0
    7. Lv.0

      (defun c:af ( / LAYN )

                (setq LAYN “red”)   ;보이게 할 레이어 이름         
                (command “layer” “off” “*” “y” “”)

                (command “layer” “on” LAYN “”)
      )  ;DEFUN END

       ;;;원하시는게  이건가요 ???


      • 0
    8. Lv.0
      참고로 , 아래에 첨부한 코드처럼 레지스트리를 이용하면, 
      훨씬 편리하게 사용할 수 있습니다.
      “Nck-MM” 이라는 레이어를 만드신후에 테스트한번 해보세요. 
      추천드리는 리습입니다.
      (defun c:AMM(/ OS nn1 n11 nn2 AMMv)  ;; MM 레이어만 보기
      (defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” os) (princ) )
      (setq os (getvar “osmode”))
      (setq AMMv (vl-registry-read “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\LAYER” “AMMv”) )
      (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\LAYER” “LayerVision” “Nck-MM”) 
      (IF (= AMMv NIL)
         (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\LAYER” “AMMv” “1”) ;;;
      )  ;IF END
        
      (IF (= AMMv “1”)
        (PROGN
         (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\LAYER” “AMMv” “0”) ;;;
         (command “layer” “off” “*” “y” “”)
         (command “layer” “on” “Nck-MM” “”)
            (princ “nTY 레이어만 보기”)
            (PRINC)
        );PROG NEND 
        (PROGN
         (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\LAYER” “AMMv” “1”) ;;;
         (command “layer” “on” “*” “”)
         (princ “n모든 레이어 보기”)
         (PRINC)
        );PROG NEND 
      )  ;IF END
      ) ;DEFUN END
      • 0
    9. Lv.0

      맞아요!!! 감사합니다 ㅠㅠ 근데 혹시 여기서
      af라는 명령어를 치고. red라는 레이만 남은 후 확인을 다 했어요
      근데 컨트롤+z 누르면 명렁어 취소니까 이전으로 돌아가 다시 레이어 다 보여야하는데
      하나도 안보이는 결과가 나오는데.. 어떻게 하면 컨트롤+z 했을 때 다시 다 보일까요?

      • 0
    10. Lv.0

      감사합니다 !! 레지스트리를 이용하라는 말씀하셨는데 잘몰서..
      코드 복사해서 메모장에 옮긴 후 lsp 확장자로 바꿔서
      쓰고있습니다 ㅠㅠ 감사해요!!

      • 0