Just guessing, but according to your later numerical interpretation, maybe it should look like this :
; Define local FUNCTIONs
(defun dist_half ( x_refl y_refl ) ;; UCS distance X to Point
(/ (sqrt (+ (expt x_refl 2.0) (expt y_refl 2.0))) -2.0) ;; SquareRoot of X^2 + Y^2 = Hypotenuse
)
(defun distz-hgt ( fo_hgt_z reflhgtz ) ;; UCS distance Y to Point
(- fo_hgt_z reflhgtz)
)
;; TESTing 20160911
; Create UCS "ReflNN_1" tipped towards Point
(setq point2 (list (dist_half 20.8125 20.8125) (distz-hgt 63.0 0.625) 0.0));; use FUNCTION of distance : from UCS 'horizonatally' to the
(command "_.ucs" "_3p" "_non" '(0.0 0.0 0.0) "_non" point2 "_non" '(0.0 0.0 1.0)) ;; UCS Origin , Positive X Axis , Positive Y Orientation _ the Refel Center , Tip the UCS towards THE Point , UCS Positive Z direction unit ; still need to 'flip '
(command "_.ucs" "_na" "_s" "Refl25_1_TEST")
;; end_TESTing 20160911
And I would set point2 variable at the end to nil or localize point2 variable inside main function that haven't yet been defined...
HTH, M.R.