캐드 길이합산 리습이 2015버전에 사용이 안됩니다.

안녕하세요  리습이 안되서 문의 드립니다.
기존 캐드 2011버전에서는 문제없이 길이 합산이 나왔으나,
이번에 윈도우10 버전 캐드 2015 버전에서는 이 리습이 길이합산이 명기가 안되고 있습니다.
이점 문의 드립니다.

—————–  이렇게 나오면서 안나옵니다 —————-
객체 선택: 1개를 찾음
객체 선택:
현재 길이: 14799
***** 선택 객체수 = 1 길이합계 = 14.80
문자 시작점 :
문자 크기:250
수치 거리를 요구함, 두 점, 또는 옵션 키워드.
; 오류: 함수가 취소되었습니다
전체 길이 또는 [각도(A)] 지정 <1>: *취소*

  —————–  리습내용입니다 —————-
(defun c:QA ()
 (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 diss (/ dis 1000))
 )
 (prompt (strcat "n***** 선택 객체수 = "(rtos n)" 길이합계 = " (rtos diss 2 2)))
 (setq xx (getpoint "n문자 시작점 :"))
 (setq save
  (cond
   (save (cond ((getreal (strcat "n문자 크기<" (vl-princ-to-string save) ">:"))) (save)))
   ((getreal "n문자 크기:"))
  )
 )
 (command "text" xx save "" (strcat (rtos diss 2 2) "(m)" ))

  (repeat (setq i (sslength ent))
   (redraw (ssname ent (setq i (- i 1))) 2)
  )
 
 (setvar "cmdecho" 0)
 (princ)
)