更快地更改圆角半径

_$ (mapcar '(lambda (rad)
           (eval (list 'defun
                       (read (strcat "c:f" (vl-string-translate "." "-" (vl-princ-to-string rad))))
                       nil
                       (list 'setvar "filletrad" rad)
                       '(vl-cmdf "_.fillet")
                       '(while (< 0 (getvar 'cmdactive)) (vl-cmdf "\"))
                       (list 'setvar "filletrad" (getvar 'filletrad))
                       '(princ)
                 )
           )
         )
        '(4.5 10 20 30 40)
)

(C:F4-5 C:F10 C:F20 C:F30 C:F40)
_$

(mapcar
  '(lambda (rad)
     (eval
       (list
         'defun
         (read (strcat "c:f" (vl-string-translate "." "-" (vl-princ-to-string rad))))
         '(/ *error*)
         '(eval
           (list
            'defun
            '*error*
            '(msg)
            (list 'setvar "filletrad" (getvar 'filletrad))
            '(if msg (princ msg))
            '(princ)
           )
          )
         (list 'setvar "filletrad" rad)
         '(vl-cmdf "_.fillet")
         '(while (< 0 (getvar 'cmdactive)) (vl-cmdf "\"))
         '(*error* nil)
       )
     )
   )
  '(4.5 10 20 30 40)
)