728x90 레이어3 레이어 만들기 리습 ;레이어만들기 ;아래에 같은 형식으로 여러개 추가해서 만드세요 (defun C:ML () (if (= nil (tblsearch "layer" "T"))(COMMAND "layer""m""T""c""3""""l""continuous""""")) ;;T레이어명이 없으면 T레이어명 만들기, 3색상, continuous라인형태(실선) (if (= nil (tblsearch "layer" "C"))(COMMAND "layer""m""C""c""1""""l""center""""")) (if (= nil (tblsearch "layer" "H"))(COMMAND "layer""m""H""c""2""""l""hidden""""")) (setvar "clayer" "0") ;; 작업 완료 후 해당 레이어(0)를 현재로.. 2023. 2. 14. 치수 레이어를 자동으로 바꿔주는 리습 ;이 리습은 치수뽑을때 자동으로 도면층이 사용자가 지정한 치수 레이어로 바뀝니다. 치수기입 끝나면 복귀... ;리습 로딩은 APPLOAD 명령으로 하시거나 메뉴-도구-오토리습-응용프로그램 로드 하시면 됩니다. ;주의하실 점은 경로지정된 폴더 안에 넣으시면 됩니다. ;아래 내용중 (setq laynam "치수선") 이부분은 사용자의 치수선 도면층 이름으로 넣으시면 됩니다. ;메모장에 아래 복사하셔서 저장하면 됩니다.확장자는 [ 아무이름.LSP ] (vl-load-com) (vlr-command-reactor nil '((:vlr-commandWillStart . start_Dimm))) (vlr-command-reactor nil '((:vlr-commandEnded . end_Dimm))) (vlr-co.. 2023. 2. 14. 레이어 변경 리습 (없으면 만들기) (defun c:CE() ; 메인 함수 (CE 는 캐드상에서 명령어로 사용- c: 부호가 없으면 (CE) 로 명령) (ssget) ; 객체선택을 요구함 ssget-다중선택가능, entsel-단일선택 (setq ly (tblsearch "layer" "center")) ; 레이어 테이블에서 CENTER 라는 레이어 이름 찾아서 ly라는 함수로 기억시킴 (if (= ly nil) ; (조건식) 만약 ly 로 기억시킬 CENTER라는 레이어가 없을 때 아래 라인 수행(있다면 if는 수행치 않음) (command "layer" "m" "center" "lt" "center" "" "c" "1" "" "" )) ; 조건식 if 끝 ;CENTER 레이어 만듬 ;....layer-명령어, m-만들기, center-레.. 2023. 2. 14. 이전 1 다음 728x90