topic Re: How to break multiple polylines at specific length at the same time? in AutoCAD Forum

How to break multiple polylines at specific length at the same time?

Anonymous — Tue, 08 May 2018 14:34:45 GMT

Hello,

I have multiple polylines, more then 4000, and I want to break them all every 100 feet. Does anybody know of a lisp or command that would all to me to select all the polylines at once, enter 100, and then it break them all every 100 from each polyline's orgin? I can find commands that allow me to select one polyline at a time and enter 100, but I want to break all polylines at the same time.

Re: How to break multiple polylines at specific length at the same time?

deke01 — Tue, 08 May 2018 16:32:22 GMT

Lee Mac has a program, "segs.lsp" that will allow you to pick multiple objects and divide into equal segments.
If all your polylines are the same length, great.
If not, it will still take some individual selection of same length polylines and determination of how many segments to divide to give you 100' segments.
The program may give you the basis you need to devise your own program to accomplish what you desire.

Re: How to break multiple polylines at specific length at the same time?

Kent1Cooper — Tue, 08 May 2018 17:24:04 GMT

@Anonymous wrote:

.... Does anybody know of a lisp or command that would all to me to select all the polylines at once, enter 100, and then it break them all every 100 from each polyline's orgin? ....

In very simplest terms, and minimally tested:

(vl-load-com)
(defun C:BPS ; = Break Polyline(s) into Segments
  (/ len bpsl plss n pl)
  (defun len () (vlax-curve-getDistAtParam pl (vlax-curve-getEndParam pl)))
  (setvar 'osmode 0)
  (setq bpsl (getdist "\nSegment length to Break Polylines into: "))
  (if (setq plss (ssget ":L" '((0 . "*POLYLINE"))))
    (repeat (setq n (sslength plss))
      (setq pl (ssname plss (setq n (1- n))))
      (while (> (len) bpsl)
        (command "_.break" pl (vlax-curve-getPointAtDist pl bpsl) "@")
        (setq pl (entlast))
      ); while
    ); repeat
  ); if
  (princ)
); defun

No error handling yet, no saving the Osnap setting for reset, no <all that other stuff>, but it seems to work.

Re: How to break multiple polylines at specific length at the same time?

naylin.oo — Sat, 18 Feb 2023 02:44:21 GMT

So useful command thank a lot bro.

Re: How to break multiple polylines at specific length at the same time?

vladimir_michl — Sat, 18 Feb 2023 13:44:01 GMT

Or MMeasure (multiple-measure) - see:

https://www.cadforum.cz/en/qaID.asp?tip=3644

Vladimir Michl, www.arkance-systems.cz - www.cadforum.cz