고수님들 도와주세요 ㅠㅠㅠ 갑자기 안되네요.

(defun c:Dst (/ ent n dis ent_l #a #ad #as )
(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))
)
(setq txs(getint "nIn Put Text Size:")) ; 텍스트 사이즈
 (setq #a(strcat (rtos (* 0.001 dis) 2 0)))
(prompt (strcat "n" #a))
(vl-load-com)
(setq #ad(vla-get-activedocument(vlax-get-acad-object)))
(setq #as
(if (> (vla-get-activespace #ad) 0)
(vla-get-modelspace #ad)
(vla-get-paperspace #ad)
);;if
);;setq
(vla-addtext #as #a (vlax-3d-point(getpoint "n≫≫≫Pick text point:")) txs)
(mapcar 'vlax-release-object (list #as #ad))
(princ)
(setvar "cmdecho" 1)
)

—————————————————————————————————-

현재 길이: 65327.8613
In Put Text Size:
65
≫≫≫Pick text point:1000
; 오류: ActiveX Server에서 오류를 반환함: 필수 매개 변수입니다
전체 길이 또는 [각도(A)] 지정 <1.0000>:  두 번째 점을 지정:
변경할 객체 선택 또는 [명령 취소(U)]: dst
*유효하지 않은 선택*
점을 예상하거나 또는 울타리(F)/명령 취소(U)]:
변경할 객체 선택 또는 [명령 취소(U)]:
명령:  DST
객체 선택: 1개를 찾음
객체 선택:
현재 길이: 65327.8613
In Put Text Size:2
65
≫≫≫Pick text point:65
1
전체 길이 또는 [각도(A)] 지정 <3321.7903>:  두 번째 점을 지정: *취소*
명령: *취소*

잘되다가 갑자기 이렇게 뜨는데 ㅠㅠㅠ 도와주세요