선길이 구하는 리습

안녕하세요

여기 게시판에서 선길이 구하는 리습을 다운받아 사용하고 있는데요

;;선택된 Line의 길이을 모두 쓰기
(defun c:lp (/ ss en n n1 k tot dis dis1)
(prompt “nCommand: Line Plus…”)
(prompt “n line을 선택-> “)
(setq d_ts (getvar “textsize”)
os (getvar “osmode”)
dlf (getvar “dimlfac”)
)
(setq ht d_ts)

(setq ss (ssget))
(setq n1 (sslength ss))
(setq n n1
k 0
)
(setq tot 0
dis 0
dis1 0
)
(while (<= 1 n)
(setq en (ssname ss k))
(setq stype (cdr (assoc 0 (entget en))))
(if (= stype “LINE”)
(progn
(setq spt (cdr (assoc 10 (entget en))))
(setq ept (cdr (assoc 11 (entget en))))
(setq dis1 (distance spt ept))
(setq dis (/ dis1 1000))
(prin1 dis)

(setq tot (rtos dis 2 2))
(setq p1 spt)
(command “text” “j” “m” p1 ht “0” tot)
(setq n (- n 1))
(setq k (+ k 1))

)
)
))


여기에서 삽입되는 텍스트의 위치정보를 가지고 있는것이 어떤 건지 알고싶어서요
예를 들어 지금은 선 위쪽에 텍스트가 삽입되지만
선의 시작점이나 끝점에 위치하도록 하고 싶거든요
 감사합니다