((lambda (a) (equal (sin a) (fix (sin a)) (sin (/ pi 60))))
(vla-get-Angle Obj)
)
I think there's a mistake, except if
a equals pi/2 or 3pi/2 (fix (sin a)) will always return 0.0.
Example: if a equals pi/120 radians (very closed to 0.0°), it works
_$ (setq a (/ pi 120))
0.0261799
_$ (sin a)
0.0261769
_$ (fix (sin a))
0
_$ (equal (sin a) (fix (sin a)) (sin (/ pi 60)))
T
But, if a is pi/2 + pi/120 radians (very closed to 90.0°), it don't work.
_$ (setq a (+ (/ pi 2) (/ pi 120)))
1.59698
_$ (sin a)
0.999657
_$ (fix (sin a))
0
_$ (equal (sin a) (fix (sin a)) (sin (/ pi 60)))
nil
Evgeniy's code should be right whith '=' or 'eq' functions, but can't be used with 'equal' and a 'fuzz'.