lisp to fillet polylines

[rcstha]

wants to fillet many polylines with same radius as attached sample below.

thanks.

[BIGAL]

How much do you know about lisp, like make a selection set of plines, set filletrad, loop through selection doing the fillet, hey that was the program steps.

[rcstha]

Thanks for your concern. To be honest i don't know about lisp code yet.

i am using some lisps which were written by others only.

[BIGAL]

Post a sample dwg with before and after.

[rcstha]

i have attached a simple sample of five polylines which i have to fillet in a vertex with some radius. i am doing it manually for many lines.

Thank you.

sample.dwg

[BIGAL]

The problem is how do you work out which segments to not fillet. if its always say a Z shape then can say do fillet 2nd & 3rd segment. Need more examples in your dwg.

[rcstha]

Thank you for the reply.

actually my working drawings have many polyline segments and i want to fillet at all or at some vertices according to the necessity.

so it would be better if i get a lisp code with choosing option.

[rcstha]

i got a lisp code which help me 80% but not 100% because it fillet in all vertices not in specific vertex of polylines.

the code is as below.

 

(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

[BIGAL]

You have a contradiction, you want fillet multiple plines, but only some part of the plines, so how do you choose which parts to fillet ? Do you have a rule about which segments to use ?

Edited January 18 by BIGAL