캐드 분류
특정 레이어 on off 토글 리습
컨텐츠 정보
- 16 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
특정 레이어 마우스로 키고 끄는게 번거로워
단축키로 켜고 꺼지는 리습을 만들고 있는데요,
일단 명령어를 나눠서 해놨는데
이걸 토글형태로 바꾸려면 어떻게 해야될까요?
(defun c:aa()
(command “-layer” “on” “ggg” “”)
)
(defun c:bb()
(command “-layer” “off” “ggg” “”)
)
관련자료
댓글 2
/ 1 페이지
penpen07님의 댓글
(Defun c:aa (/ layername layerdata layercolor)
(setq layername "ggg")
(if (not (tblobjname "layer" layername))
(progn
(princ (strcat "₩n" layername " Layer does not exist₩n"))
(exit)
)
(setq layerdata (entget (tblobjname "layer" layername)))
)
(setq layercolor (assoc 62 layerdata))
(entmod (subst (cons 62 (* -1 (cdr layercolor))) layercolor layerdata))
(if (< (cdr layercolor) 0)
(princ (strcat "₩n" layername " Layer is ON"))
(princ (strcat "₩n" layername " Layer is OFF"))
)
(princ)
)
게시판에 글을 쓸 때에 역슬래쉬를 쓰면 표시가 안되네요.
₩를 역슬래쉬로 바꿔서 쓰세요