topic Re: create boundary by 3dpoly in Visual LISP, AutoLISP and General Customization Forum

create boundary by 3dpoly

neam — Thu, 21 Nov 2019 18:19:05 GMT

hi every body

I have many many 3dpoly in project and want create boundary inside in 3d polylines by pick inside them.

I remember there was a command in the mechanical desktop called amcontin this feature Which gave you this capability. I don't want flat or explode or convert to lwpolyline them.

Would be grateful if you could provide some guidance on how to do this in autocad by lisp.

Re: create boundary by 3dpoly

Kent1Cooper — Thu, 21 Nov 2019 18:36:04 GMT

JOIN (Admittedly, it doesn't work by picking inside an area, but by object selection, but it will make a single shape preserving the variance in elevation. If you also want the originals preserved as separate pieces, JOIN a copy of the selection.)

Re: create boundary by 3dpoly

neam — Fri, 22 Nov 2019 08:36:09 GMT

Dear Kent

Thanks for your reply.

But it was my fault that i simplified the example In essence, 3d polylineas are each a closed area.

Re: create boundary by 3dpoly

marko_ribar — Fri, 22 Nov 2019 09:59:40 GMT

@neam wrote:
Dear Kent
Thanks for your reply.
But it was my fault that i simplified the example In essence, 3d polylineas are each a closed area.

How about that you explode all and then join only what you need... Of course if you need originals you create copy of them and operate on copy only...

Re: create boundary by 3dpoly

neam — Sat, 23 Nov 2019 04:07:29 GMT

Hi Marko

Thank you for considering the question I asked.
1-The first question is how to break them (3d polylines) from the intersection.
2-And secondly, as I explained, they are numerous and most of them intersect in many places.

Re: create boundary by 3dpoly

marko_ribar — Sun, 24 Nov 2019 11:46:47 GMT

When you look your DWG from 3D VIEW - orbiting it is obvious that grey area is not touching any adjacent areas... Fix your DWG and then explode all and finally join only those lines that are of interest to get 3dpoly of area you want...

Re: create boundary by 3dpoly

john.uhden — Sun, 24 Nov 2019 19:57:32 GMT

It sounds like all you need to do is flatten a copy of the 3D polyline.

If the FLATTEN command doesn't do it, then I will provide you my M2D program.

With an ssget you could process thousands in a tick of the clock. Then again, you probably don't have any clocks that tick, let alone have a big hand and a little hand. I have an original Eli Terry clock on my fireplace mantle, but it tells the right time only twice per day. I don't think it has ticked in a century.

Re: create boundary by 3dpoly

devitg — Sun, 24 Nov 2019 22:22:39 GMT

Hi John. Nice to meet you.

I tried the flatten , and I guess to make REGIONS, and then UNION them , but I can not get the way to union the RED one. Of course I do not have a clue how I would get the inner area. But as I can not get the UNION from all FATTENed poly , I stop digging on it.

PS. I love tour humor sense. At yours end phrases

Gabriel, from Córdoba Argentina

Re: create boundary by 3dpoly

doaiena — Sun, 24 Nov 2019 23:47:54 GMT

There seems to be something wrong with this drawing /red poly is self intersecting/. I'm not sure lisp automation is possible, because of such unforeseen circumstances. I got to the boundary by following these steps:

1 - Flatten all 3dPolys, using @Kent1Cooper's Pline3Dto2D.lsp

2 - Explode red poly, remove self intersection, then join again

3 - Region all polylines

4 - Union all regions

5 - Use the "boundary" command to create the required polyline

Re: create boundary by 3dpoly

john.uhden — Mon, 25 Nov 2019 03:51:31 GMT

I had no idea you wanted to UNION anything. That makes for a greater
challenge where I would be of little help. Sorry.

Re: create boundary by 3dpoly

Sea-Haven — Mon, 25 Nov 2019 04:50:04 GMT

His request was for a boundary, use bpoly yes its flat zero Z. If want Z then use getcoordinates and use a match XY adding Z to new bpoly as a 3dpoly using entmake etc.

Took 2 seconds to make.

Re: create boundary by 3dpoly

neam — Mon, 25 Nov 2019 05:08:32 GMT

Thanks for all the kind replies.

As I explained before, I am avoiding any flattening and exploding actions. I should explain that these boundaries are catchment basin extracted out of CIVIL 3D. What I need is to create a complementary boundary out of surrounding basins in the form of a BPOLY.

This objective is achieved through a PARCEL command in CIVIL 3D itself; though I have to select all neighboring objects and create numerous parcels. So, I am wondering if it’s possible to do it in AUTOCAD via an AUTOLISP app similar to AMCONTIN command with a simple picking action in MECHANICAL DESKTOP.

Re: create boundary by 3dpoly

Sea-Haven — Mon, 25 Nov 2019 05:11:03 GMT

Did you read my post ?

You don't need 3d polys for CIV3d boundaries.

Re: create boundary by 3dpoly

neam — Mon, 25 Nov 2019 08:44:42 GMT

I apologize first and foremost to myself.
It should be explained that I have little knowledge of the software of the mentioned software.
I know that the catchment area can be two-dimensional (2d Polyline).
I beg you all, to ask this question Think of this question as a general question or a challenge.
Given my flawed English, I can't ask my question any better.
Thankful
Thankful
Thankful

Re: create boundary by 3dpoly

john.uhden — Mon, 25 Nov 2019 14:59:30 GMT

I guess I just don't get it. If he is starting with a 3Dpoly, then it
sounds like he needs to do nothing, except he mentioned the UNION command.
Sometimes I should just stay out of the conversation.

Re: create boundary by 3dpoly

devitg — Mon, 25 Nov 2019 15:04:55 GMT

The UNION command do it for coplanar region entys. and as the red 3dpoly have self intersections, so it can not be convert to a REGION, then it can not be UNIONed.

Re: create boundary by 3dpoly

john.uhden — Mon, 25 Nov 2019 15:33:30 GMT

I think that's called a conundrum. 😕
The UNION command appears to have a mind of its own as well.
I suppose it would be a bit of work, but it might be valuable to someone to
come up with a routine to join overlapping polylines into one, maybe even
with the choice of inner or outer or both.
Okay, you start and I'll check your work. 🙂

Re: create boundary by 3dpoly

devitg — Mon, 25 Nov 2019 15:46:10 GMT

My Pseudo Code is

Copy selected 3dpolys , to a new layer

flatten or apply 3d to 2d lisp

make each FLATENed to be a REGION

then UNION all region

and get the boundary inside it,

Please see post 9 , where it is explained .

The main problem at this case is that the red 3dpoly is self-intersected , so it cannot be converted to a REGION , thus it cannot be UNIONed .

Re: create boundary by 3dpoly

john.uhden — Mon, 25 Nov 2019 16:35:30 GMT

Yes, but after you convert it to 2D you could Bpoly it to make 2 (or more)
regions.
My 2004 exhibited undesirable results in not UNIONing adjacent regions into
one.
I hope that is working better these days. *(Or maybe it was an ID-Ten-T
error)*

Re: create boundary by 3dpoly

devitg — Mon, 25 Nov 2019 17:22:09 GMT

Yes. it is what I do , make all z=0 polys to region, and then Union , but acad show that should be a gap and can not make the inside boundary