Lisp to create multiple boundaries at once from polylines

[cjones99HU5]

I am in need of a lisp(if it is possible) that will create multiple boundaries at once from closed rectangles.  I do not need them to be hatched.

[pbejse]

---

@cjones99HU5 wrote:

I am in need of a lisp(if it is possible) that will create multiple boundaries at once from closed rectangles.  I do not need them to be hatched.

---

How's that again? That can be interpreted in so many different ways.

Can you please show an illustration? or even an AutoCAD sample drawing of before and after?

As an aside: 

A moderator or an AI of some sort should be able to check the posted question for clarity,  similar to what stackoverflow have on their forum, but more intelligent.

[cjones99HU5]

Each of those pinkish lines needs to be an independent boundary.  I have a road project that I need all the roads split into sections and am hoping somebody knows of a shortcut to create multiple boundaries all at once as opposed to me selecting 3 at a time and then repeating this for however long it would take.

[hak_vz]

@cjones99HU5 

Here is your code. I hope this is what you are looking for. If it works Accept is as a solution.

(defun c:mbdry (/ ss lst tlst)
(princ "\nSelect entities to create mutual boundaries >")
(setq ss (ssget) lst (entlast) tlst lst)
(setvar 'cmdecho 0)
(command "_region" ss "")
(setq ss (ssadd))
(while (setq lst (entnext lst)) (setq ss (ssadd lst ss)))
(command "_.union" ss "")
(command "_.explode" ss)
(setq ss (ssadd) lst tlst)
(while (setq lst (entnext lst)) (setq ss (ssadd lst ss)))
(command "_pedit" "m" ss "" "y" "j" "" "")
(setvar 'cmdecho 1)
(princ)
)

Attach dwg sample that helps us to create code. Always give detailed explanation and attach sample with what you have and what you want to achieve with lisp code.

[cjones99HU5]

I feel as though it should work, but when I select the entities it never gives me another command to move on from selection. I will mess around with it a little longer to see if I can figure it out. Nonetheless, I appreciate it!

[hak_vz]

Attach dwg sample. I have a filling that it won't work. If works in case that you have set of overlapping closed entities like polylines, circles an similar. In your case that is not the case.

[hak_vz]

You can simply use command "bpoly" or "boundary". Hide road center-line, run command and pick point inside each region, and you'll get closed rectangles.  

[cjones99HU5]

This is what I have been doing, but I was hoping for a way to select multiple regions at once and turn them into boundaries.

For example what we are trying to do is we have 20,000 ft of roadway that we want to create sample polygons of 100 ft intervals.  We have GIS road centerlines that we have offset with polylines to represent both pavement edges and then we inserted a line perpendicular to the centerline, intersecting the "edge of pavement", at 100 ft intervals throughout the entirety of the roadways.  

[ronjonp]

Might be worth the investment: https://www.superboundary.com/

[Sea-Haven]

The request for 100' intervals can be done pretty easy as suggested pick cl then turn it off, do 100' lines sq off c/l then trim back to left and right edge. Do bpoly at 50 ft interval with select point being on the c/l pline hopefully all done, note start and end look open so bpoly may not work may need a start at 150' same for end dont do last, join ends then do bpoly.

Is this some form of civil thing not sure why 40 years civil experience.

[john.uhden]

@cjones99HU5 

I am not writing the code, but thinking out loud...

1.  Offset the edges of the road to a different layer from C/L.

2.  Array your cross section lines along the C/L path at 100' intervals plus the beginning and the end

3.  Freeze the C/L layer.

4.  Use vlax-curve-getpointatdist along the C/L path at every 100' (starting from the first one at 50'),

    and at each point run the BOUNDARY command.

5.  You'll have to account for the last piece that probably won't end at an even 100'.

I'm a civil too, and have no idea what purpose this would serve.