Multiple fillet - Radius 0 / Radius (value)

[Lukasvop1]

Hi guys, can you write 2 simple lisps that allow quick Multiple Fillet

(I mean without pressing enter after use command Fillet) (in 2D/3D) :

F0 - Multiple - Fillet - Radius [0]
FR - Multiple - Fillet - Radius [User_add_value]

[Lukasvop1]

Ou man, this is like virus.. I can't escape the lisp. Esc/Enter not working. I must exit Autocad by windows task manager..

[komondormrex]

oops, i got it the same on the other version.

these ones stops on the Esc.

(defun c:f0 nil
	(setvar 'filletrad 0)
	(while (null (command "_fillet" pause pause)))
)

(defun c:fr (/ radius)
  	(if (setq radius (if (null radius) 
						(getreal (strcat "\nEnter radius to fillet with <" (rtos (getvar 'filletrad)) ">: ")) 
						(getvar 'filletrad)
					 )
		)
  		  (setvar 'filletrad radius)
	)
  	(while (null (command "_fillet" pause pause)))
)

updated

[Sea-Haven]

Another just type F123 etc f2 and so on the number is used as the radius for the fillet, note as this uses a reactor catching an error you need to do this for say rad 3.5, f3-5 as the "." is detected in the error trap.

Another version is offset and Circles.

; Fillet rad uses Frad eg f100 pulls the 100 from the F and then runs fillet
; BY Alan H 2019

(   (lambda nil
        (vl-load-com)
        (foreach obj (cdar (vlr-reactors :vlr-command-reactor))
            (if (= "fillet-reactor" (vlr-data obj))
                (vlr-remove obj)
            )
        )
        (vlr-command-reactor "fillet-reactor" '((:vlr-unknowncommand . fillet-reactor-callback)))
    )
)

(defun filletrad ( / rad)
(setq rad (distof (substr com 2) 2))
            (if (<= 0.0 rad)
              (progn        
              (setvar 'filletrad rad)
              (vla-sendcommand fillet-reactor-acdoc "_.fillet ")
              )
              ) 
)

(defun fillet-reactor-callback ( obj com )
(setq com (vl-string-translate "-" "." (strcase (car com))))
    (cond   
        (   (and
            (wcmatch com "~*[~F.0-9]*")
            (wcmatch com "F*")
            (wcmatch com "~F*F*")
            (wcmatch com "~*.*.*")
            ) ; and
            (filletrad) 
         ) 
    ) ; master cond
) ; defun

(or fillet-reactor-acdoc
    (setq fillet-reactor-acdoc (vla-get-activedocument (vlax-get-acad-object)))
)