How to adjust angles...

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

 

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.

--


Laurie Comerford
CADApps
www.cadapps.com.au

 

Adjusting attributes?

 

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