(defun c:xx (/ #ap #ad #as #a #b #sn #sz #c #index #d #e)
(vl-load-com)
(setq #ap(vlax-get-acad-object))
(setq #ad(vla-get-activedocument #ap))
(setq #as
(if(> (vla-get-activespace #ad) 0)
(vla-get-modelspace #ad)
(vla-get-paperspace #ad)
);;if
);;setq
(setq #a(ssget ‘((0 . “line”))))
(setq #b(sslength #a) #index -1)
(setq #sn(getint “≫≫≫Start number<1>:”))
(if (not #sn)(setq #sn 1))
(setq #sn(1- #sn))
(if(not(setq #sz (getreal (strcat “글자크기 <” (rtos(getvar “textsize”)) “>:”))))
(setq #sz(getvar “textsize”))
(setvar “textsize” #sz)
);;if
(repeat #b
(setq #c(cons(vlax-ename->vla-object (ssname #a (setq #index (1+ #index))))#c))
);;repeat
(foreach #x #c
(if (vl-catch-all-error-p(setq #d(vl-catch-all-apply ‘vlax-curve-getdistatparam (list #x (vlax-curve-getendparam #x)))))
(progn
(vlax-release-object #x)
(exit)
);;progn
(progn
(vla-addtext #as (itoa(setq #sn(1+ #sn)))(vla-get-startpoint #x)#sz)
(vla-addtext #as (itoa(setq #sn(1+ #sn)))(vla-get-endpoint #x)#sz)
(setq #e(cons(list (itoa(1- #sn)) “-” (itoa #sn)(chr 32)(chr 9)(rtos #d)(chr 10))#e))
);;progn
);;if
);;foreach
(if #e(vla-addmtext #as (vlax-3d-point(getpoint “Pick point:”))(* #sz 20)(apply ‘strcat(mapcar ‘(lambda (x)(apply ‘strcat x))(reverse #e)))))
(princ)
);;defun