캐드(CAD) 작업시 치수가 특정 레이어(DIM)으로 자동으로 들어가게...

레이어를 자동으로 변경해 주는 리습이 있습니다.

여기를 참조하십시요. 레이어를 알아서 지정해 그리는 리습

​

치수 레이어를 빨간색으로 사용한다면 레이어 지정과 상관 없이

치수관리자에서 아예 빨간색으로 설정하면 치수만 기입하면 빨간색으로 기입 됩니다.

​

​

레이어를 먼저 DIM으로 선택해놓고,

치수를 넣으면 됩니다.

리습을 사용해야합니다.

첨부할수가 없어서 텍스트로 올립니다.

메모장여시고, 아래소스 복사해서 붙여넣기 하시고, 파일이름.LSP 로 저장하신다음

캐드에서 APPLAOD 치시고, 저장하신 리습파일 로드하시면 됩니다.

DT설환이라는 분이 작성하신거네요.

​

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;치수 명령어를 실행하면 치수 레이어로 자동생성 및 변경 되어 기입후 다시 원래 레이어로

;;BY DT설환 16.10.25

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:dd(/ layer ca);직선치수

(defun *error* (msg) (setvar "clayer" layer) (princ msg))

;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq ca "DIM");;" " 안의 문자를 원하는 레이어 명으로 바꿔 주세요

;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq layer(getvar "clayer"))

(if (= (tblsearch "layer" ca ) nil)

(command "layer" "m" ca "c" "1" "" "lt" "continuous" "" ""))

(setvar "clayer" ca)

(command "_dimlinear" pause pause pause)

(setvar "clayer" layer)

(princ)

)

(defun c:da(/ layer ca);사선치수

(defun *error* (msg) (setvar "clayer" layer) (princ msg))

;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq ca "DIM");;" " 안의 문자를 원하는 레이어 명으로 바꿔 주세요

;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq layer(getvar "clayer"))

(if (= (tblsearch "layer" ca) nil)

(command "layer" "m" ca "c" "1" "" "lt" "continuous" "" ""))

(setvar "clayer" ca)

(command "_.DIMALIGNED" pause pause pause)

(setvar "clayer" layer)

(princ)

)