반응형 @1 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.. 2025. 5. 23. 이전 1 다음 반응형