치수 레이어를 자동으로 바꿔주는 리습

;이 리습은 치수뽑을때 자동으로 도면층이 사용자가 지정한  치수 레이어로 바뀝니다. 치수기입 끝나면 복귀...
;리습 로딩은 APPLOAD 명령으로 하시거나 메뉴-도구-오토리습-응용프로그램 로드 하시면 됩니다.
;주의하실 점은  경로지정된 폴더 안에 넣으시면 됩니다.
;아래 내용중 (setq laynam "치수선") 이부분은 사용자의 치수선 도면층 이름으로 넣으시면 됩니다.
;메모장에 아래 복사하셔서 저장하면 됩니다.확장자는 [ 아무이름.LSP ]

 

(vl-load-com)
(vlr-command-reactor nil '((:vlr-commandWillStart . start_Dimm)))
(vlr-command-reactor nil '((:vlr-commandEnded . end_Dimm)))
(vlr-command-reactor nil '((:vlr-commandCancelled . cancel_Dimm)))
(defun start_Dimm (calling-reactor start_DimmInfo / the_Dimmstart)
(setq OldLayer (getvar "CLAYER"))
(setq laynam "0")  ;;; "0" 치수레이어명
(cond ((= (wcmatch (nth 0 start_DimmInfo) "*DIM*") T) (setvar "CLAYER" laynam)))
(princ)
)
(defun end_Dimm (calling-reactor end_DimmInfo / the_Dimmend)
(cond ((= (wcmatch (nth 0 end_DimmInfo) "*DIM*") T) (setvar "CLAYER" OldLayer)))
(princ)
)
(defun cancel_Dimm (calling-reactor cancel_DimmInfo / the_Dimmcancel)
(cond ((= (wcmatch (nth 0 cancel_DimmInfo) "*DIM*") T) (setvar "CLAYER" OldLayer)))
(princ)
)
(princ)