2006, 2007 acad

[avenne]

I was wondering if there is a lisp command, that can make the fillet command be continious. instead of it always promting you after use.

[CarlB]

Well, if you don't mind buttons, here's a macro:

^C^C_multiple;_fillet;

you'll need to hit 'esc' to end the command

[paulmcz]

I use this:

(defun c:f ()
  (setvar "cmdecho" 0)
  (setq sdf (getvar "filletrad"))
  &#40;princ "\n filletrad <  "&#41;
  &#40;princ sdf&#41;
  &#40;princ " > ?? &#58;"&#41;
  &#40;setq df &#40;getdist&#41;&#41;
  &#40;if &#40;= df nil&#41;&#40;setq df sdf&#41;&#41;
  &#40;setvar "filletrad" df&#41;
  &#40;setq e1 0&#41;
  &#40;while e1
    &#40;command "fillet" &#40;setq e1 &#40;entsel "\n Select first object&#58;"&#41;&#41;
	     &#40;if e1 &#40;setq e2 &#40;entsel "\n Select second object&#58;"&#41;&#41;&#41;&#41;
  &#41;
  &#40;princ&#41;
&#41;