안녕하세요? CAD 리습 수정관련해서 질문드려요~ㅠ
문자크기를 지정하는 것이 필요하기는 한데..
매번 지정해야 하다보니 어려워서 그러는데..
제가 초보라 다른 리습 봐서 수정해보려고 했는데..
아무나 하는게 아닌가봐요~ ㅠㅠ
처음 사용 할때 지정해주면, 변경하기 전까지
계속 문자 크기가 유지되게 할수 있을까요?? ㅠㅠ
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(defun c:ll ()
(setvar “cmdecho” 0)
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
(setq n 0 dis 0)
(repeat (sslength ent)
(setq ent_l (ssname ent n))
(command “lengthen” ent_l “”)
(setq dis (+ dis (GETVAR “PERIMETER”)))
(setq n (1+ n))
(setq diss (/ dis 1000))
)
(prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계 = ” (rtos diss 2 2)))
(setq xx (getpoint “n문자 시작점 :”))
(setq yy (getreal “n문자 크기 :”))
(command “text” xx yy “” (strcat (rtos diss 2 2) “(m)” ))
(setvar “cmdecho” 0)
(princ)
)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~