홈/ 질문/Q 184745
다음
진행 중
걍고
Lv.0
등록일: 2023-05-12T15:14:28+09:00 카테고리:

특정 레이어 on off 토글 리습

특정 레이어 마우스로 키고 끄는게 번거로워

단축키로 켜고 꺼지는 리습을 만들고 있는데요,

일단 명령어를 나눠서 해놨는데

이걸 토글형태로 바꾸려면 어떻게 해야될까요?

(defun c:aa()
(command “-layer” “on” “ggg” “”)
)

(defun c:bb()
(command “-layer” “off” “ggg” “”)
)

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    2 답변

    1. aalan
    2. Lv.17

      (defun c:aa()
      (if (= sw nil) (setq sw “on”))
      (cond ((= sw “on”)
      (setq sw “off”)
      )
      ((= sw “off”)
      (setq sw “on”)
      )
      )
      (command “-layer” sw “ggg” “”)
      )

      • 0
    3. Lv.23
      (수정됨)

      (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)
      )

       

       

      게시판에 글을 쓸 때에 역슬래쉬를 쓰면 표시가 안되네요.

      ₩를 역슬래쉬로 바꿔서 쓰세요

       

      • 0