one more for your approval

[caderudite]

dear people,
this is a routine to fillet with certain radius for certian bars. At the fillet radius it's showing T (when i try to run). I can't understand that and could you also please tell me at the prompt of picking two lines, could i pick with a cross window and fillet with the radius.
Thanks in advance

(defun c:bf
  (setq bar (getint "\nEnter Bar Dia...."))   (if (AND (= bar 6 10 12 16 20))     (PROGN       (SETQ FD (* 3 bar))    &nbsp     (if (AND (= bar 24))       (PROGN (SETQ FD (= 84))      &nbsp       (if (AND (= bar 28)) (PROGN (SETQ FD (= 98)) ) (if (AND (= bar 32)) (PROGN (SETQ FD (= 112)) ) (if (AND (= bar 40)) (PROGN (SETQ FD (= 140)) ) (command "fillet" "radius" FD pause) ) )      &nbsp    &nbsp  &nbsp
)

 

[caderudite]

cheers mmo,
I have very little knowledge writing lisp. I read the old programmes and try to write my own lisp and get stuck. But every time i am stuck i learn something new, like now.