Display posts from previous
Sort by

Fillet all corners of multiple polylines at once.

#1 by rhgrafix
I found this code to fillet all corners of multiple closed polylines at the same time but it doesn't run in iCad, it just highlights the polylines and displays FMP in the text display area. I set my FILLETRAD to .05 before running it and my plines are LW.
Thanks!

Code: Select all

(defun C:FMP ; = Fillet Multiple Polylines
  (/ plss n)
  (if (setq plss (ssget "_:L" '((0 . "LWPOLYLINE"))))
    (repeat (setq n (sslength plss))
      (command "_.fillet" "_polyline" (ssname plss (setq n (1- n))))
    ); repeat
  ); if
  (princ)
); defun
Daily user of Intergraph MicroStation 1987 - 1991, then AutoCAD until 2020, now IntelliCAD. Wanting to fully learn iCad and share my knowledge of applicable crossover info from Acad.
-=(RLH)=-

Re: Fillet all corners of multiple polylines at once.

#3 by rhgrafix
Yes! Perfect, thanks again Quan.
Ramon
QuanNguyen wrote: ↑
Thu Mar 11, 2021 10:56 pm
 Try this:

Code: Select all

(defun C:FMP ; = Fillet Multiple Polylines
  (/ 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)
); defun
Daily user of Intergraph MicroStation 1987 - 1991, then AutoCAD until 2020, now IntelliCAD. Wanting to fully learn iCad and share my knowledge of applicable crossover info from Acad.
-=(RLH)=-

Latest Posts
Post Reply

Return to “AutoLisp/SDS”

cron