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

[Anonymous]

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.  

[deke01]

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.

[Kent1Cooper · Accepted solution]

---

@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.

[naylin.oo]

So useful command thank a lot bro.

[vladimir_michl]

Or MMeasure (multiple-measure) - see:

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

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