(defun c:1()
(setvar “cmdecho” 0)
(setq ent (ssget))
(command “change” ent “” “p” “la” “O_D” “c” “bylayer” “lt” “bylayer” “” )
(setvar “cmdecho” 1))
간단한 레이어 변경 리습입니다!
tblsearch 응용하여 선택된 객체가 없으면 현재 레이어를 변경하고 싶습니다!
도움 부탁드립니다!
오형석Lv.0
레이어 변경 리습 관련 명령어 질문입니다!
공유
1. 선택객체가 없으면 이라는 뜻이 (setq ent(ssget))에 선택된 객체가 없으면 이라는 뜻입니까??
2 .테이블 검색 함수를 응용하는 이유가 뭡니까?? 간단하게 ent가 nil 이면 (setvar ‘layer “원하는 레이어”) 이렇게
하셔도 되요
수야12님 도움 주셔서 정말 고맙습니다!
선택객체가 없으면 이라는 뜻이 (setq ent(ssget))에 선택된 객체가 없다는 것이 맞습니다
테이블 검색 함수를 응용하려는 이유는 생성된 레이어가 없을 경우 레이어 생성을 하려고 의도하였으나
답변 주신대로 ent가 nil 이면 레이어를 변경하도록 간단하게 수정 할 수 있었습니다
다만, (setvar ‘layer “원하는 레이어”) 가 제 캐드 버전에서는 레이어 창만 띄우기에
(command “LAYER” “S” “레이어” “”)로 해결하였습니다
덕분에 많은 공부가 되었습니다!
좋은 하루 되세요!
제가 간만에 리습을 해서 헛갈렸네요
(setvar ‘clayer “원하시는 레이어”) 입니다
clayer 가 캐드 시스템 명령으로 현재 레이어(Current layer)라는 뜻입니다