길이합산 리습결과수치를 원하는 위치와 글자 크기를 만들고 싶습니다.

본문예제입니다.
아래내용중에 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)
)