폴리라인길이구하기 수정좀 부탁드립니다.

안녕하세요~
리습 질문이있어 이렇게 글을올립니다.
제가 간단하게 쓰는 폴리라인 길이 입력하는 리습 입니다.
조금 수정을 하고 싶은데 너무 어렵습니다.

길이표시위치 수정
현재리습 위치에서 위로 10mm
                               우측 10mm
길이 표시
예) 동축케이블 39m

부탁 드립니다.

(defun c:lp(/ ss n tx1 tx2 val p1 len o edp dst hfp TEXT TEXT2)(vl-load-com)
(defun Text (pt str)
  (entmakex (list (cons 0 “TEXT”)
                  (cons 10 pt)
                  (cons 11 pt)
                  (cons 40 300.0)
                  (cons 1  (rtos (+ (/ str 1000.) 5) 2 0))
                  (cons 72 4))
                  )
 )
(defun Text2 (pt str)
  (entmakex (list (cons 0 “TEXT”)
                  (cons 10 pt)
                  (cons 40 300.0)
                  (cons 7 “TEXTSTYLE”)
                  (cons 1  str)
            )
  )
 )
 (setq ss(ssget) n 0 tx2 “” val 0)
 ; (setq p1 (getpoint “n문자 선택 점:”))
 (setq len(sslength ss))
 (repeat len
 (setq o(vlax-ename->vla-object(ssname ss n)))
  (setq edp(vlax-curve-Getendparam o))
  (setq dst(vlax-curve-getdistatparam o edp))
  (setq hfp(vlax-curve-getPointAtParam o ( / (- edp 0.0) 2)))
  (Text hfp dst)
  (if(= n 0)(setq tx2(strcat tx2(rtos dst 2 2)))(setq tx2(strcat tx2 “+” (rtos dst 2 2))))
  (setq val(+ val dst))
  (setq n(1+ n))
  )
  ;(setq tx1(strcat “선택 객체수 = “(itoa len)” 길이 합계 = “(rtos val 2 2)” = “tx2))
  ;(Text2 p1 tx1)
  (princ)
 )
 (princ “n :: 길이합계 (LP) ::”)(princ)