리습 수정 부탁드립니다. (오스냅관련)

; =================================================================================
;두 지점의 중심점을 잡아서 Line을 그릴수 있게 한다.
(defun C:ff (/ *error* pt1 pt2 mx my mz mp pros )
  (defun *error* (msg)(princ “nerror:”)(princ msg)
   (setvar ‘OSMODE pros)
   (princ)
 )
   (setq pt1 (getpoint “nSelect the first point:”))
   (setq pt2 (getpoint “nSelect the second Point:”))
   (setq mx (/ (+ (car pt1) (car pt2)) 2))
   (setq my (/ (+ (cadr pt1) (cadr pt2)) 2))
   (setq mz (/ (+ (caddr pt1) (caddr pt2)) 2))
   (setq mp (list mx my mz))
             (setq pros (getvar “OSMODE”))
             (setvar “OSMODE” 0)
   (command “Line” mp Pause “”)
   (setvar “OSMODE” pros)
   (prin1))
; =================================================================================