Running Fillet

[Anonymous]

Apologies if this has been done-I haven't been able to find it. I am after an Autolisp routine to fillet more than two Lines, with R=0, by simply consecutively picking them, without rerunning the routine ie I assume it would have to be with the second line picked automatically becoming the first for another fillet command.

Thanks for any help

[ВeekeeCZ]

Post a dwg example to see what you're attempting. The initial state and wanted result.

Also, post the code you have so far.

[Kent1Cooper · Accepted solution]

Something like this seems to work, in minimal testing:

(defun C:F0C (/ e1 e2); = Fillet at 0 radius, Continuously
  (setvar' filletrad 0)
  (command "_.fillet" pause (setq e1 (entsel)))
  (while (setq e2 (entsel "\nNext object: "))
    (command "_.fillet" e1 e2)
    (setq e1 e2)
  ); while
  (princ)
); defun

It does not check for the validity of the selected objects, but could be made to do so.  It ends if you miss in picking, but could be made to ask again and require something more intentional to end it.  It could be made to save the current Fillet radius setting first, and restore it afterwards.  Etc., etc.

[Anonymous]

Thanks Kent. This does it fine and, yes, is a good basis for further development.