Fillet Radius

[mgonzales.224492]

need some help, i have a routine that i could type FR and it would set my radius to what ever i wanted instead of going through the fillet command

the only thing i just found out that my routine does not work with architechural settings

here is my lisp:

 
(defun c:FR ()
   (setvar "filletrad" (getreal "\nFillet radius: "))
   (command "FILLET"))

thanks for helping

[Opie]

Try changing the getreal function to getdist.

[mgonzales.224492]

OK tried it but i get this error

" Requires numeric distance or two points. "

[Opie]

Are your units set to architectural?

[msretenovic]

Are your units set to architectural?

Are your units set to architectural?

Opie, did you develop a stuttering problem j/k

[Opie]

No. Apparently, my computer got hung up somewhere. Thanks for the catch.

[mgonzales.224492]

yes they are.

[mgonzales.224492]

i shut down auto-cad and started a new session and it works now, thanks for the help
i really appreciate it

[alanjt]

It's similar, so I thought I would share it. This is a simple way to create quick fillet with specific radius functions:

;fillet with set radius
;Alan J. Thompson
(mapcar
  '(lambda (f r)
     (eval (list 'defun
         f
         nil
         (list 'setvar "filletrad" r)
         (list 'princ (strcat "\nFillet radius set to: " (rtos r)))
         (list 'command "_.fillet")
         '(princ)
       )
     )
   )
  '(c:FF    c:F1    c:F15    c:F2    c:F3    c:F4    c:F45    c:F5    c:F6    c:F7    c:F8    c:F9)
  '(0        1    1.5    2    3    4    4.5    5    6    7    8    9)
)

[mgonzales.224492]

cool thanks