옵셋객체 거리값 계산시 소수점 오류

(defun c:t1( / pt1 pt2)
  (princ "n거리 0.2 차이값 검토")
  (setq pt1 (getpoint "n하단점 입력 : "))
  (setq pt2 (getpoint pt1 "n상단점 입력 :")) 
  (setq aa (- (- (cadr pt2) (cadr pt1)) 0.2))
  (princ (strcat "n 차이값 : " (vl-princ-to-string aa)))
  (princ)
  )

(defun c:t2( / pt1 pt2)
  (princ "n거리 0.2 차이값 검토")
  (setq pt1 (getpoint "n하단점 입력 : "))
  (setq pt2 (getpoint pt1 "n상단점 입력 :")) 
  (setq aa (- (distance pt1 pt2) 0.2))
  (princ (strcat "n 차이값 : " (vl-princ-to-string aa)))
  (princ)
  )

명령: t1
거리 0.2 차이값 검토
하단점 입력 :
상단점 입력 :
 차이값 : 2.83107e-15

명령:
명령: t2
거리 0.2 차이값 검토
하단점 입력 :
상단점 입력 :
 차이값 : 2.83107e-15


예를 들어 객체를 옵셋을 0.2 했을때

getpoint로 포인트점 선택후 거리 계산시

위와 같이 소수점 차이값이 납니다

_$ (- (cadr pt2) (cadr pt1))
0.2
_$ (- (- (cadr pt2) (cadr pt1)) 0.2)
2.83107e-15
_$

_$ (distance pt1 pt2)
0.2
_$ (- (distance pt1 pt2) 0.2)
2.83107e-15
_$

이런식으로요 이거 시스템변수 문제 인지 아니면 자체 오류 인지요? 도면에 문제가 있는건지

지금 모든 도면에서 오류가 나는거 같습니다

해결 방법 아시는분 답변 부탁 드립니다.