Dim
line Asstpoint(0) = 0
stpoint(1) = 0
endpoint(0) = 1000
endpoint(1) = 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">
"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)
it must bee like now ? and mabe you know how to create
3dpolyline?
Dim
line Asstpoint(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)
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)
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 AsoSites = 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
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)
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)
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)
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)