홈/ 질문/Q 113725
다음
진행 중
Lv.0
등록일: 2022-04-12T10:46:49+09:00 카테고리:

혹시 색상으로 레이어를 on/off 할 수 있는 리습이 있을까요?

안녕하세요.

리습 관련해서 문의 사항이 있어서 질문 드립니다.
 
sf라는 리습처럼 선택한 레이어를 on/off 하듯,
 
선택한 색상의 레이어만 on/off할 수 있는 리습이 있는지 궁금합니다. 
(Dream이라는 프로그램에 있는 기능으로 알고 있는데
현재 사용 중인 Gstar CAD는 Dream이 지원되지 않는다고 하여
혹시 같은 기능의 리습이 있을지 해서 문의 드려요.)
공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. Lv.3

      고캐드 검색해보니 비슷한 게 있긴한데 맞는지는 모르겠네요.

      • 0
    3. Lv.3

      구글가니까 다 있네요.

      • 0
    4. Lv.3

      검색해서 찾은 최종 리습파일

      테스트해봤는데 잘 됩니다. 오토캐드에서는..
      (defun c:COF (/ ss ss1 k co index ent old62)
        (prompt “n>>색상별 OFF 하기…”)
        (setq ss (ssget “x”))
        (setq k 0)
        (if ss
          (progn
          (setq ss1 (ssget))
          (repeat (sslength ss1)
            (prompt “n OFF될 색상선택 : “)
            (setq ss2 (ssname ss1 k))
            (setq co (getcolor (entget ss2)))
            (if co
              (progn
                (setq index 0)
                (vl-load-com)
                (repeat (sslength ss)
                  (setq ent (ssname ss index))
                  (setq old62 (getcolor (entget ent)))
                  (if (= co old62)
                    (vla-put-visible (vlax-ename->vla-object ent) 0)
                  )
                  (setq index (1+ index))
                )
              )
            )
           (setq k (1+ k))
           );repeat
          );progn
        );if
        (princ)
      );defun
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      (defun c:COO (/ ss co index ent old62)   
        (prompt “n>>색상선택 반전 OFF 하기…”)  
        (setq ss (ssget “x”))   
        (if ss   
          (progn   
            (setq ss2 nil)  
            (while (= ss2 nil)  
      ;;;          (setq ss2 (ssget “n 남길 색상 선택 : “)) -> 아래 2줄로 변경
                (princ “n 남길 색상 선택 : “) 
                (setq ss2 (ssget))   
               (if (= ss2 nil) (prompt “n다시선택해주세요 : “))  
            )   
            (if ss2   
        (progn  
         (setq co (list (getcolor (entget (ssname ss2 0))))) 
         (setq i 1)   
         (repeat (- (sslength ss2) 1)   
           (setq coss2 (getcolor (entget (ssname ss2 i)))) 
      ;;;     (setq co (append co coss2)) -> 요줄 아래로 변경
           (setq co (append co (list coss2))) 
           (setq i (1+ i))   
         ) 
      ;;;      )  -> 요줄 삭제
            (if co   
              (progn   
                (setq index 0)   
                (vl-load-com)   
                (repeat (sslength ss)   
                  (setq ent (ssname ss index))   
                  (setq old62 (getcolor (entget ent))) 
      ;;;             (if (not (member (list old62) co))  -> 요줄 아래로 변경
                   (if (not (member old62 co))   
      ;;;              (vla-put-visible (vlax-ename->vla-object ent) 1)  -> 요줄 아래로 변경
                    (vla-put-visible (vlax-ename->vla-object ent) 0)   
                  )  
                  (setq index (1+ index))   
                )   
              )   
            )   ;end (if co
          )   
        )   ;end (if ss2
        )   ;-> 요줄추가
        )  ;end (if ss -> 요줄추가
        (princ)   
      ) 
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      (defun c:CON (/ entall)
        (vl-load-com)
        (setq entall (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
        (vlax-map-collection entall ‘(lambda(x) (vla-put-visible x -1)))
        (princ)
      )
      (defun getcolor (ent / temp l_color lay)
        (if (assoc 62 ent)
          (setq l_color (cdr (assoc 62 ent)))
          (progn
            (setq lay (cdr (assoc 8 ent)))
            (setq l_color (cdr (assoc 62 (tblsearch “layer” lay))))
          )
        )
        l_color
      )
      • 0
    5. Lv.19

      https://cafe.naver.com/autocats/740

      특정 색상의 객체만 선택하는 기능입니다~
      위 기능이랑 “LOF” 명령어 같이 사용하면 될 듯합니다.
      • 0

    6. 감사합니다~

      • 0