Calculate @ Relative Coordinates XYZ

상대좌표 계산하는 함수입니다. dp delta point (x y z) --> @x,y,z

;;;;;; @@@@@@@;
(defun KM:@ ( _p1 _p2 / ) ; Calculate @ Relative Coordinates XYZ 
(setq po _p1 dp _p2) ; po Point Origin XYZ; dp Delta Point XYZ 
(setq RE_P
  (list (+ (car po) (car dp)) ; x
         (+ (cadr po) (cadr dp)) ; y
         (+ (caddr po) (caddr dp)))) ; z
;(princ RE_P) ; Return Relative Point Coordinates
)
;;;;;;; @@@@@@@

ex)
(setq ins11 '(740.721 196.75 0.0) ins12 '(774.673 196.75 0.0) ins13 '(810.452 196.75 0.0))
(setq dxyz '(-100 -50 0.0)) ;@-100,-50,0
(setq rp11 (KM:@ ins11 dxyz))