Leaderboard

Here is the one from Kent Cooper, though it seems suspicious you would be blocked from the Autodesk Forums. This is the one that asks for the radius and will accept 0 radius. ;| FilletMultiplePolylines.lsp [command name: FMP] Asks for desired Fillet radius, offering default of prior value if present, otherwise regular Fillet's value, as default. Asks for selection of Polylines, and Fillets all possible corners at specified radius. Restores regular Fillet's radius setting, but stores setting from this command separately, for default on subsequent use. Works on LightWeight and "heavy" 2D Polylines except those that are Fit- or Spline-curved. Accepts selection of those, and of 3D Polylines, but does not process them. |; ;;; ;;; By Kent Cooper ;;; ;;; Found here https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/fillet-multiple-polyline-all-at-once-by-lisp/m-p/10151411#M130041 (defun C:FMP ; = Fillet Multiple Polylines (/ *error* doc filr plss n pl) (defun *error* (errmsg) (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break")) (princ (strcat "\nError: " errmsg)) ); if (setvar 'filletrad filr); reset (vla-endundomark doc) (princ) ); defun - *error* (vla-startundomark (setq doc (vla-get-activedocument (vlax-get-acad-object)))) (setq filr (getvar 'filletrad)); save current setting (initget 4); no negative (setq *fmpr* ; global variable (cond ( (getdist (strcat "\nRadius for Filleting all Polyline corners <" (rtos (cond (*fmpr*) ((getvar 'filletrad)))) ; prior value as default if present; if not, regular Fillet radius ">: " ); strcat ); getdist ); User-input condition (*fmpr*); prior value if present on Enter ((getvar 'filletrad)); regular Fillet radius if no prior value on Enter ); cond ); setvar (setvar 'filletrad *fmpr*) (if (setq plss (ssget "_:L" '((0 . "*POLYLINE")))) (repeat (setq n (sslength plss)) (setq pl (ssname plss (setq n (1- n)))) (if (= (logand (cdr (assoc 70 (entget pl))) 30) 0); not 3D, fit- or spline-curved (command "_.fillet" "_polyline" pl); then ); if ); repeat ); if (setvar 'filletrad filr) (vla-endundomark doc) (princ) ); defun (vl-load-com) (prompt "\nType FMP to Fillet Multiple Polylines.")

Phew! I just copied and pasted from the link you requested. For some reason, the final parenthesis got lost. But I see that the code suggested here is already more complete. Deprecated!

(defun C:FMP (/ plss n) (if (setq plss (ssget '((0 . "LWPOLYLINE")))) (repeat (setq n (sslength plss)) (command "_.fillet" "_polyline" (ssname plss (setq n (1- n)))) ); repeat ); if (princ) I guess this is it

all sorted. my 2022 version was set up with regen when changing layouts but my 2026 wasn't set the same meaning i couldn't see the changes when i switched to modelspace without a manual regen

This isn't feature rich as Lee's and uses command quite a bit. never got around to updating it. VP2M.lsp

You can try changing the tolerance to simplify the result. However, the result will be different from what you get with dexus or GP_ codes because mine is designed so that any point on the center line is equidistant and the interior of the segments never exceeds the user-defined tolerance.

I did see a for-purchase program that used a raster image and maybe worked with QGIS, I'll see if I can find it again, the demo video looked pretty good and even split around islands, side branches, etc.. It had a lot of parameters to fill out in a window for what to grab, so still a good bit of work, IIRC.