본문예제입니다.
아래내용중에 mm를 미터로 변경까진 했는데 …
리습 사용하면 데이타들은 정상적으로 수치는 잘 나오는데요,, 이게 글씨크기를 조정을 잘 못하겠습니다.
리습프로그램은 만들줄은 모르구요, 이놈 많이 사용하는 건데.. 매번 쓰기가 불편하네요..
1. 글자 크기와 각도를 마우스 포인트로 조정할수 있게끔 내용을 추가하면 좋겠구요,
2. 글자 입력포인트를 정하는 리습도 추가해주시면 안될까요?
(defun c:ds1 ()
(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))
)
(prompt (strcat “n***** 선택 객체수 = “(rtos n)” 길이합계(mm) = ” (rtos (* 0.001 dis) 2 3) “M”))
(setq pp (getpoint “nInsert Text Point?: “) dis (rtos (* 0.001 dis) 2 3))
(command “text” “j” “bc” pp “” “0” dis); 도대체 이놈은 뭐하는 옵션인지… 알수 없는게 있네요..
(princ)
(setvar “cmdecho” 1)
)