선길이 구하는 리습 수정좀 부탁드립니다

;************길이 합 계 구 하 기*****************
 (defun c:ll ( / ep d n ss)
    (if (not (tblsearch “style” “ko-gul”))
        (command “style” “ko-gul” “굴림” “0” “1” “0” “N” “N”))
    (vl-load-com)
    (setq ss (ssget ‘((0 . “lwpolyline,polyline,line,arc,ellipse,spline,circle”))))
    (setq n -1 d 0)
    (repeat (sslength ss)
      (setq n  (1+ n)
            e  (vlax-ename->vla-object (ssname ss n))
            ep (vlax-curve-getEndParam e)
            d  (+ d (vlax-curve-getDistAtParam e ep))
      )
    )
    (setq SUMM (rtos D 2 0))
    d
    SUMM
       (setq pt1 (getpoint “n>>> Point : “))
       (command “text” “S” “ko-gul” pt1 300 “0” SUMM)
  )

 

선길이 구하는 리습인데 현재 단위가 mm로 되어있는데 이걸 m 로 바꿀수 있을까요 ….???