dist 리습

(defun NEW_ERR (msg)
     (princ (strcat "n " msg)) ;if you like
     (alert (strcat "nError: " msg "nnResetting Variables."))
     (setvar "cmdecho" ce)
     (setvar "orthomode" ort)
     (setvar "blipmode" bm)
     (setvar "osmode" os)
     (setq *error* old_err)
     (princ)
)

(defun C:D (/ ce ort bm os DIST_1 dist_x dist_y dp1 ep1 dp2 ep2 POINT1 POINT2 old_err)
     (setq old_err *error* *error* new_err)
     (setq ce (getvar "cmdecho"))
     (setq ort (getvar "orthomode"))
     (setq bm (getvar "blipmode"))
     (setq os (getvar "osmode"))
     (setvar "cmdecho" 0)
     (setvar "orthomode" 0)
     (setvar "blipmode" 1)
     (setvar "osmode" 191)
     (setq POINT1 (getpoint "nDistance from point …"))
     (setq dp1 (car POINT1)
           ep1 (cadr POINT1)
     )
     (setvar "osmode" 191)
     (setq POINT2 (getpoint POINT1 " to point"))
     (setq dp2 (car POINT2)
           ep2 (cadr POINT2)
     )
     (setq DIST_1 (distance POINT1 POINT2))
     (setq DIST_x (- dp1 dp2))
     (setq DIST_y (- ep1 ep2))
     (alert (strcat "거리:nn" "X축 거리 ->           "  (rtos DIST_x 2 3)
                           "nn" "Y축 거리 ->           "  (rtos DIST_y 2 3)
                           "nn" "두점사이의 거리->   "(rtos DIST_1 2 3)))
     (prompt (strcat "nLength: X축 거리 ->         " (rtos DIST_x 2 3)
                     "n        Y축 거리 ->         " (rtos DIST_y 2 3)
                     "n        두점사이의 거리 ->  " (rtos DIST_1 2 3)))
     (command "redraw")
     (setvar "cmdecho" ce)
     (setvar "orthomode" ort)
     (setvar "blipmode" bm)
     (setvar "osmode" os)
     (setq *error* old_err)
     (princ)
)
(princ)
——————————————————————————-?????????????????
   위에 것이 잘쓰던 리습인데 마이다스 아키디자인 캐드에서 " 에러:거부된 함수 " 이래 나오네요…쓸수있게 수정안될까요?