topic element to lwpolylines in VBA Forum

element to lwpolylines

Anonymous — Mon, 08 May 2006 17:19:49 GMT

Please,
VBA autocad 2004
I have in my "SelectionSet" a group of line,arcs, lwpolylines,
how can I obtein from then only one lwpolyline with VBA code?

Can anyone help me?
thankyou

Re: element to lwpolylines

Anonymous — Tue, 09 May 2006 03:42:06 GMT

this is my first ever reply to a question as I have been learning, so I hope
it works, and I am sure there is probably a much easier way to do it

After the selection set has been created, iterate through the entities.

Dim oEntity as AcadEntity

For Each oEntity in SelectionSet
If TypeOf oEntity Is AcadLWPolyline Then



    End If

Next oEntity



Hope this helps



 wrote in message news:5167419@discussion.autodesk.com...

Please,

VBA  autocad 2004

I have in my "SelectionSet" a group of line,arcs, lwpolylines,

how can I obtein from then only one lwpolyline  with VBA code?



Can anyone help me?

thankyou

Re: element to lwpolylines

Anonymous — Wed, 10 May 2006 01:27:57 GMT

Thanks for the answer BrentB,
but as I can transform linens in lwpolyline
and arc in lwpolyline
and therefore to assemble the all in one single lwpolyline?

Re: element to lwpolylines

Anonymous — Wed, 10 May 2006 03:34:44 GMT

Hi,

It can be done, but you will need to find the start and end points of each
of the objects you select and then match the various objects so that you can
find which joins to which.

You can then create an array of coordinates of the joining points from which
to define the new polyline. You also need to keep track of which items are
arcs, so that you can add the bulges to the polyline after you have created
it.

You also need to decide how you will treat gaps if you find two objects
which nearly meet, but not quite.

You also need to decide what you will do if three or more objects meet as a
point

You also need to decide if you wish to delete - or keep the original
objects. While coding, I'd keep them for comparison purposes. When it all
works, it up to you what you do with them.

--

Regards,

Laurie Comerford
www.cadapps.com.au

wrote in message news:5169442@discussion.autodesk.com...
Thanks for the answer BrentB,
but as I can transform linens in lwpolyline
and arc in lwpolyline
and therefore to assemble the all in one single lwpolyline?

Re: element to lwpolylines

Anonymous — Wed, 10 May 2006 22:05:37 GMT

Thanks thousands of the Laurie answer,
are what I feared, but,
- if the objects in the selection list are already order to you,
- if they do not have discontinuity,
- if they do not concur more in the same point than two objects,
the possibility does not exist to adopt a method similar to those
"Linens to LWPolyLine"
Posted by: Nadotti, Paolo
Given: Jan/03/02 - 06:21 (GMT)
transforming then the SPLINE in LWPOLYLINE?

Gianni

Re: element to lwpolylines

Anonymous — Thu, 11 May 2006 02:26:30 GMT

Hi,

If that is the case
AND the lines / arcs etc are drawn in the correct direction so you don't
need to check that, then

You can have code like this pseudo code:
dim pCoords() as double
redim pCoords(0 to SelectionSet.Count * 4 -1)
i = 0
for each object in SelectionSet
if typeof object is LINE then
set oLine = object
vPt = oLine.start
pCoords (i) = vP(0)
pCoords (i + 1) = vP(1)
i = i + 2
vPt = oLine.end
pCoords (i) = vP(0)
pCoords (i + 1) = vP(1)
i = i + 2
elseif typeof object is ARC then
set oArc = object
vPt = oArc .start
pCoords (i) = vP(0)
pCoords (i + 1) = vP(1)
i = i + 2
vPt = oArc .end
pCoords (i) = vP(0)
pCoords (i + 1) = vP(1)
i = i + 2
elseif typeof object is LWPolyline
......
end if

--

Regards,

Laurie Comerford
www.cadapps.com.au

wrote in message news:5170904@discussion.autodesk.com...
Thanks thousands of the Laurie answer,
are what I feared, but,
- if the objects in the selection list are already order to you,
- if they do not have discontinuity,
- if they do not concur more in the same point than two objects,
the possibility does not exist to adopt a method similar to those
"Linens to LWPolyLine"
Posted by: Nadotti, Paolo
Given: Jan/03/02 - 06:21 (GMT)
transforming then the SPLINE in LWPOLYLINE?

Gianni