topic Creating polyline in .NET Forum

Creating polyline

Anonymous — Tue, 14 Jun 2005 09:40:47 GMT

Hi I trying to create polyline but Vb.net
show mee eror what is wrong in my code

thanks

Dim

line As
size=2> AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Tue, 14 Jun 2005 17:31:49 GMT

You need 3D points.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but Vb.net
show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Wed, 15 Jun 2005 04:32:17 GMT

it must bee like now ? and mabe you know how to create
3dpolyline?

Dim

line As
size=2> AutoCAD.Common.AcadLine

Dim stpoint(2),
endpoint(2) As
Object

stpoint(0) = 0

stpoint(1) = 0

stpoint(2) = 0

endpoint(0) = 1000

endpoint(1) = 1000

endpoint(2) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Albert Szilvasy" <
href="mailto:not_provided@autodesk.com">not_provided@autodesk.com>
wrote in message
href="news:4874533@discussion.autodesk.com">news:4874533@discussion.autodesk.com...

You need 3D points.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but Vb.net
show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Wed, 15 Jun 2005 04:39:55 GMT

No, I think you also need to declare your arrays as
Double:

Dim
stpoint(2), endpoint(2) As
Double

Yes, I know how to create a
3dpolyline.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4875066@discussion.autodesk.com">news:4875066@discussion.autodesk.com...

it must bee like now ? and mabe you know how to create
3dpolyline?

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(2),
endpoint(2) As
Object

stpoint(0) = 0

stpoint(1) = 0

stpoint(2) = 0

endpoint(0) = 1000

endpoint(1) = 1000

endpoint(2) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Albert Szilvasy" <
href="mailto:not_provided@autodesk.com">not_provided@autodesk.com>
wrote in message
href="news:4874533@discussion.autodesk.com">news:4874533@discussion.autodesk.com...

You need 3D points.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but
Vb.net show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Wed, 15 Jun 2005 05:58:19 GMT

Hi ,

Now I taing create 3D poline, I have the array
of 3d points, but hee dont crete mee the array, the eror is in the last
line, where is the problem,

thanks

Albert Szilvasy

Dim

asis As
size=2> AutoCAD.Common.Acad3DPolyline

Dim taskas(2)
As
color=#0000ff size=2>Double

Dim i, j
color=#0000ff size=2>As
size=2>Integer

Dim atstumas,
atstumas1, bx, bby, z1, cx, cy, z2
size=2>As
size=2>Double

oSites = m_oAeccDoc.Sites

Site = oSites.Item(ComboBox1.Text)

trasa = Site.Alignments.Item(ComboBox2.Text)

stotisp = trasa.Profiles.Item(ComboBox3.Text)

oAStations = trasa.GetStations(tipas.aeccMajor, 5, 5)

j = 0

Dim
taskai(oAStations.Count - 1) As
size=2> Array

For i = 0
color=#0000ff size=2>To oAStations.Count - 1
color=#0000ff size=2>Step 1

stotis = oAStations.Item(i)

atstumas1 = stotis.Station

bx = stotis.Easting

bby = stotis.Northing

z1 = stotisp.ElevationAt(stotis.Station)

taskas(0) = bx

taskas(1) = bby

taskas(2) = z1

taskai(i) = taskas

asis = m_oAeccDoc2.ModelSpace.Add3DPoly(taskai)

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Albert Szilvasy" <
href="mailto:not_provided@autodesk.com">not_provided@autodesk.com>
wrote in message
href="news:4875092@discussion.autodesk.com">news:4875092@discussion.autodesk.com...

No, I think you also need to declare your arrays
as Double:

Dim
stpoint(2), endpoint(2) As
size=2> Double

Yes, I know how to create a
3dpolyline.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4875066@discussion.autodesk.com">news:4875066@discussion.autodesk.com...

it must bee like now ? and mabe you know how to
create 3dpolyline?

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(2),
endpoint(2) As
Object

stpoint(0) = 0

stpoint(1) = 0

stpoint(2) = 0

endpoint(0) = 1000

endpoint(1) = 1000

endpoint(2) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Albert Szilvasy" <
href="mailto:not_provided@autodesk.com">not_provided@autodesk.com>
wrote in message
href="news:4874533@discussion.autodesk.com">news:4874533@discussion.autodesk.com...

You need 3D points.

Albert

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but
Vb.net show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Wed, 15 Jun 2005 17:45:22 GMT

What you show below creates an AcadLine
object. If you want to create a polyline, shouldn't you be calling
ThisDrawing.ModelSpace.AddPolyline(...) instead?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but Vb.net
show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Thu, 16 Jun 2005 04:34:01 GMT

Thanks for all polyline is created:)

For Rick
Francken, ThisDrawing is using in VBA, but when usinng
vb.net or Vb6 then using m_oAeccDoc2 or els variable

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Rick Francken" <
href="mailto:rick@franckensoft.com">rick@franckensoft.com> wrote in
message
href="news:4875832@discussion.autodesk.com">news:4875832@discussion.autodesk.com...

What you show below creates an AcadLine
object. If you want to create a polyline, shouldn't you be calling
ThisDrawing.ModelSpace.AddPolyline(...) instead?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but Vb.net
show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)

Re: Creating polyline

Anonymous — Thu, 16 Jun 2005 18:55:35 GMT

Sorry to get hung up on the "ThisDrawing"
reference...I was thinking only of the "AddLine" versus "AddPolyline"
call. I should not have referred to ThisDrawing at all.

-Rick

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4876459@discussion.autodesk.com">news:4876459@discussion.autodesk.com...

Thanks for all polyline is created:)

For Rick
Francken, ThisDrawing is using in VBA, but when usinng
vb.net or Vb6 then using m_oAeccDoc2 or els
variable

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Rick Francken" <
href="mailto:rick@franckensoft.com">rick@franckensoft.com> wrote in
message
href="news:4875832@discussion.autodesk.com">news:4875832@discussion.autodesk.com...

What you show below creates an AcadLine
object. If you want to create a polyline, shouldn't you be calling
ThisDrawing.ModelSpace.AddPolyline(...) instead?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Darienas" <
href="mailto:darienas@freemail.lt">darienas@freemail.lt> wrote in
message
href="news:4873927@discussion.autodesk.com">news:4873927@discussion.autodesk.com...

Hi I trying to create polyline but
Vb.net show mee eror what is wrong in my code

thanks

Dim
line
size=2>As AutoCAD.Common.AcadLine

Dim stpoint(1),
endpoint(1) As
Object

stpoint(0) = 0

stpoint(1) = 0

endpoint(0) = 1000

endpoint(1) = 1000

line = m_oAeccDoc2.ModelSpace.AddLine(stpoint,
endpoint)