(defun c:lle ()
(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 3)))
(setq xx (getpoint “n문자 시작점 :”))
(setq yy (getreal “n문자 크기 :”))
(command “text” xx yy “” (strcat “길이(m) : “(rtos diss 2 3)))
(setvar “cmdecho” 0)
(princ)
)
현재는 캐드상 문자크기를 지정하라고 명령창에 뜨는데….
문자크기를 리습에서 쓸수있게 할 수 있을까여?
제가 리습언어는 몰라서 눈대중으로 조금식 바꿔서 사용하는 실력이라서…
저 yy 부분에 직접 숫자를 집어 넣는걸 물어보신건가요
네~문자값은 명령창에서 기입하는데 그냥 저yy문자값을 지정하고 싶어서….