캐드 분류
캐드 색상변경 리습관련 문의드립니다…
컨텐츠 정보
- 230 조회
- 4 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요 어떤 대단하신분이 만드신 리습 중에 조금 수정을 하려는데 몰라서 문의드립니다.
색상변경 리습인데
객체가 잠겨있을때 잠긴객체는 선택이 되지 않도록 하고싶습니다.
객체를 잠궜는데 잠긴객체까지 선택이 되어서 예를들어 외부참조나 블럭이 잡힐경우 굉장히 느려지는 경우가 생기더라고요.
무브나 다른 기본명령어들은 잠긴객체는 선택되어지지 않는데 리습은 선택이 되어지는 경우가 종종 있어서 고수분들께 여쭤보고 싶습니다. 감사합니다.
(DEFUN C:ZA()(COMMAND "ZOOM" "A" )(PRIN1))
(DEFUN C:ZZ()(COMMAND "ZOOM" "P" )(PRIN1))
(DEFUN C:zd()(COMMAND "ZOOM" "d" )(PRIN1))
(DEFUN C:zw()(COMMAND "ZOOM" "w" )(PRIN1))
(DEFUN C:c1()(COMMAND "COLOR" "1″ "")(PRIN1))
(DEFUN C:c2()(COMMAND "COLOR" "2″ "")(PRIN1))
(DEFUN C:c3()(COMMAND "COLOR" "3″ "")(PRIN1))
(DEFUN C:c4()(COMMAND "COLOR" "4″ "")(PRIN1))
(DEFUN C:c5()(COMMAND "COLOR" "5″ "")(PRIN1))
(DEFUN C:c6()(COMMAND "COLOR" "6″ "")(PRIN1))
(DEFUN C:c7()(COMMAND "COLOR" "7″ "")(PRIN1))
(DEFUN C:c8()(COMMAND "COLOR" "bylayer" "")(PRIN1))
(DEFUN C:c30()(COMMAND "COLOR" "30″ "")(PRIN1))
(DEFUN C:c40()(COMMAND "COLOR" "40″ "")(PRIN1))
(DEFUN C:CB()(COMMAND "COLOR" "bylayer" "")(PRIN1))
(DEFUN C:C1 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "1″ ""))
(DEFUN C:C2 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "2″ ""))
(DEFUN C:C3 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "3″ ""))
(DEFUN C:C4 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "4″ ""))
(DEFUN C:C5 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "5″ ""))
(DEFUN C:C6 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "6″ ""))
(DEFUN C:C7 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "7″ ""))
(DEFUN C:C8 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "bylayer" ""))
(DEFUN C:C9 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "9″ ""))
(DEFUN C:C10 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "10″ ""))
(DEFUN C:C30 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "30″ ""))
(DEFUN C:C40 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "40″ ""))
(DEFUN C:C11 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "11″ ""))
(DEFUN C:C12 ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "12″ ""))
(DEFUN C:Cb ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "C" "BYLAYER" ""))
(DEFUN C:lb ()
(SETQ DD (SSGET))
(COMMAND "CHprop" DD "" "lt" "BYLAYER" ""))
);defun
관련자료
댓글 4
nnxx님의 댓글
제가 쓰는 리습인데 도움이 되길 바랍니다. ;;================================= ;; 색상 자동변경(흰색) ;;================================= (defun c:cw () (prompt "n>> 색상을 변경할 객체를 선택하세요… ") (setq se (ssget)) (command "change" se "" "p" "c" "7″ "") (prompt (strcat "n>> 7번 색상으로 변경되었습니다." )) (princ)) (princ "nt 선택객체 색상변경. Command: cw " ) (princ)
;;================================= ;; 색상 자동변경(빨강) ;;================================= (defun c:cr () (prompt "n>> 색상을 변경할 객체를 선택하세요… ") (setq se (ssget)) (command "change" se "" "p" "c" "1″ "") (prompt (strcat "n>> 1번 색상으로 변경되었습니다." )) (princ)) (princ "nt 선택객체 색상변경. Command: cw " ) (princ)