How to adjust angles...

[Devin]

I want mathematically all angles 0-180 to = 90. also all angles 180-360 to = 270. Strange but I need it to happen to work one of my functions.

Devin

 

[Laurie Comerford]

Hi,

In VBA you could use

if angle => 0 and angle <= 180 then
angle = 90
elseif angle > 180 and angle <= 360 then
angle = 270
else
Msgbox "Angle not between 0 and 360"
end if

You can convert the algorithm to lisp.

 

[Rudy Tovar]

Adjusting attributes?

 

[Devin]

Here's my formula...

(defun iso_right ( ang base / )
(setq
ang (dtor ang)
base (dtor base)
)
(+
(abs (* (cos ang) base))
ang
)
)

But I haven't got it right . It's a formula to convert an angle (angle in xy plane) and a base (y axis angle) into an adjusted xy plane ang for a right sided isometric.

Any Ideas?

Devin