Fillet multiple polyline all at once by lisp

[Anonymous]

Help me please,

Anybody know how to fillet selected polylines all at once by lisp.

[urban33]

Fantastic code.
Can I use the same for chamfer?

Thanks.

[Kent1Cooper]

---

@urban33 wrote:

.... Can I use the same for chamfer? ....

---

You apparently have not looked through the entire topic.  See Message 17.

[paliwal222]

Sir,

My problem is solved with "Fillet multiple Polyline" code.

this time I fillet multiple polyline approx. a bunch of 250, and explode them.

put "arc" in  "arc"  layer.

and change my poly line according surveyor road type, (four type of road)

isolate road layer type -1 + arc layer then join them,

isolate road layer type -2 + arc layer then join them, (repeat again with arc layer is isolate always four times)

one by one by four time I make arc with road with different layer.

Thanks.

[paliwal222]

Sir

My problem is solved with FilletMultiplePolylines.lsp

its not necessary to break arc at mid point.

Thanks.

[midorikawa.mitsunobu]

"I tried creating a code to input the fillet radius at the beginning, referring to the Lisp program you created. However, since it requires input every time, what should I do to make it possible to retain the previously input value in the input field?"

----------------------------------------------------------------

(defun C:FMP ;Fillet Multiple Polylines

       (/ plss n radius)

  (setq radius (getreal "\Enter fillet radius: "))

  (if (null radius)

    (progn

      (princ "\nError:Fillet radius is not inputted。")

      (exit)

    )

    (if (setq plss (ssget "_:L" '((0 . "LWPOLYLINE"))))

      (repeat (setq n (sslength plss))

(command "_.fillet"

"_polyline"

"R"

radius

(ssname plss (setq n (1- n)))

)

      )

    ) ; if

  ) ; if

  (princ)

) ; defun

=====================================================

"It was already resolved with FilletMultiplePolylines.lsp.

Thank you very much."

[Sea-Haven]

I would use a less obvious name than radius like xradiusx, try this

(if (null xradiusx)
(setq xradiusx (getreal "\Enter fillet radius: "))
)

Take the radius out of your localising of variables (/ plss n radius)

[Kent1Cooper]

---

@midorikawa.mitsunobu wrote:

.... what should I do to make it possible to retain the previously input value in the input field?"....

---

You should use the version called FilletMultiplePolylines.lsp at Message 12.

[midorikawa.mitsunobu]

Thank you very much

[midorikawa.mitsunobu]

Thank you very much

[midorikawa.mitsunobu]

I am currently studying LISP. Thank you in advance for your continued support.

[midorikawa.mitsunobu]

I am currently studying LISP. Please continue to teach me in the future.