치수와 다중지시선 SCALE 같게 하는 LISP :: 2013. 8. 3. 16:13
기계CAD에서 치수와 지시선의 SCALE를 자주 변경하게 되는데,
그럴때 마다 DIMSCALE와 MLEADERSCALE를 변경하다보면
헷갈릴때도 있고해서
이 LISP를 만들게 되었다.
원리는 간단하다.
값을 입력하면 입력한 값으로 동일하게 변경되는것이다.
그러므로, 미리 STYLE가 동일하게 정해져 있어야할것이다.
화살표의 크기와 문자의 크기는 같은게 보기도 좋다.
(defun c:dms ()
(setq dwgscal (getvar "dimscale"))
(setq sdwgscal (rtos dwgscal 2 2))
(setvar "mleaderscale" dwgscal)
(setq num (getreal (strcat"\n치수Scale에 대한 새 값 입력 <" sdwgscal ">:")))
(if (= nil num) (setq num dwgscal))
(setvar "dimscale" num)
(setvar "mleaderscale" num)
(princ)
)
명령어 : DMS (DimscaleMleaderScale)
본 LISP은 2009버전부터 사용가능합니다.
mleaderscale 변수는 2009버전부터 지원됩니다.