Hi Noel,
Yes you are correct, for instance in a code I posted earlier today:
- (defun c:tanx (/ ans ang ang2) (initget "Deg Rad") (setq ans (getkword "\nInput in Degrees or Radians? [Deg/Rad]: ")) (setq ang (getreal "Specify Angle: ")) (if (= ans "Deg") (setq ang [color=Red]([b]dtr ang[/b])[/color]) ) (setq ang2 (/ (sin ang) (cos ang))) (alert (rtos ang2)) (princ)) ; end tanx [b][color=Red](defun dtr (a) (* pi (/ a 180.0)))[/color][/b] ; end dtr
Hope this helps! |