TPointArray

Ta stran je trenutno še v izdelavi.

Razred TPointArray uporablja za manipulacijo s polilinijami ali poligoni.

Dim PA As TPointArray, I, J As Long, P As Float

PA = CreatePointArray
PA.AddPoint (1000, 1000)
PA.AddPoint (2000, 1010)
PA.AddPoint (2000, 1000)
PA.AddPoint (2002, 1020)
PA.AddPoint (2000, 2000)

Message ("Površina-Obseg-Dolžina",FormatFloat("#.00",PA.Area) + "-" + FormatFloat("#.00",PA.Perimeter)
                                  + "-" + FormatFloat("#.00",PA.Length))
Message("Število točk", IntTostr(Pa.Count))

PA.Generalize ( 10 )
I = PA.NearestPoint ( 2000, 1500 )
Center ( PA.Y ( I ), PA.X ( I ) )
Redraw
Message ( 'Sporočilo', 'Najbližja točka je oddaljena ' + FormatFloat (#0.00 m, PA.PointDistance ( I )) + ' od začetka.' )

Message ( 'Oddaljenost', 'Točka 1500, 1500 je oddaljena ' + FormatFloat ( '#0.00 m', PA.ProjectionDistance ( 1500, 1500 ))) 

PA.ProjectionPoint ( 1500, 1500, J, P )
Message ( 'Kje ', 'Točki 1500, 1500 se projecira na ' + IntToStr ( J )  + ' segment in sicer na ' + FloatToStr ( P ) + ' delu segmenta.')

PA.Clear

Message ("Brisano Površina-Obseg-Dolžina",FormatFloat("#.00",PA.Area) + "-" + FormatFloat("#.00",PA.Perimeter)
                                  + "-" + FormatFloat("#.00",PA.Length))

PA.Destroy

AddPoint

Metoda AddPoint doda koordinate na koncu seznama v TPointArray objektu.

Method TPointArray.AddPoint (Y, X As Float)
Y	Float	Horizontalna vrednosti točke.
X	Float	Vertikalna vrednosti točke.

AddPointZ

Metoda AddPointZ .

Method TPointArray.AddPointZ (Y, X, Z As Float)
Y	Float	.
X	Float	.
Z	Float	.

AddPoly

Metoda AddPoly .

Method TPointArray.AddPoly (P As TPointArray)
P	TPointArray	.

Area

Lastnost Area vrne površino poligona v TPointArray objektu.

RO Property TPointArray.Area As Float
Result	Float	.

Clear

Metoda Clear briše vse točke v TPointArray objetu.

Method TPointArray.Clear

Clip

Lastnost Clip kreira nov TPointArray objekt, ki je segment polilinije od dolžine Start do dolžine Stop.

RO Property TPointArray.Clip (Start, Stop As Float) As TPointArray
Start	Float	Distance from the beginning of the polyline. New polyline has first point in this point.
Stop	Float
Result	TPointArray	Reference to new TPointArray object. It should be destroyed after use.

ClipPoints

Lastnost ClipPoints .

RO Property TPointArray.ClipPoints (Start, Stop As Long) As TPointArray
Start	Long	.
Stop	Long	.
Result	TPointArray	.

ClockWise

Lastnost ClockWise .

RO Property TPointArray.ClockWise As Boolean
Result	Boolean	.

Count

Lastnost Count določa število točk v TpointArray objetu.

Property TPointArray.Count As Long
Result	Long	.

CrossLine

Lastnost CrossLine .

RO Property TPointArray.CrossLine (Y1, X1, Y2, X2 As Float, ByRef Y, ByRef X As Float) As Boolean
Y1	Float	.
X1	Float	.
Y2	Float	.
X2	Float	.
Y	ByRef Float	.
X	ByRef Float	.
Result	Boolean	.

DeletePoint

Metoda DeletePoint .

Method TPointArray.DeletePoint (Index As Long)
Index	Long	.

Destroy

Metoda Destroy uniči TPointArray objekt.

Method TPointArray.Destroy

DistanceBetweenPoints

Lastnost DistanceBetweenPoints .

RO Property TPointArray.DistanceBetweenPoints (Idx1, Idx2 As Long) As Float
Idx1	Long	.
Idx2	Long	.
Result	Float	.

Find

Lastnost Find .

RO Property TPointArray.Find (Y, X As Float) As Long
Y	Float	.
X	Float	.
Result	Long	.

FurthestFromPoint

Lastnost FurthestFromPoint .

RO Property TPointArray.FurthestFromPoint (Y, X As Float) As Long
Y	Float	.
X	Float	.
Result	Long	.

FurthestPoints

Metoda FurthestPoints .

Method TPointArray.FurthestPoints (ByRef I, ByRef J As Long)
I	ByRef Long	.
J	ByRef Long	.

Generalize

Metoda Generalize generalizira polilinijo s podano dovoljeno napako.

Method TPointArray.Generalize (Error As Float)
Error	Float	Maksimalno dovoljeni premik katerekoli točke v katerikoli smeri.

GetBounds

Metoda GetBounds .

Method TPointArray.GetBounds (ByRef Y1, ByRef X1, ByRef Y2, ByRef X2 As Float) As Boolean
Y1	ByRef Float	.
X1	ByRef Float	.
Y2	ByRef Float	.
X2	ByRef Float	.
Result	Optional Boolean	.

InsertPoint

Metoda InsertPoint .

Method TPointArray.InsertPoint (Index As Long, Y, X As Float)
Index	Long	.
Y	Float	.
X	Float	.

InsertPointZ

Metoda InsertPointZ .

Method TPointArray.InsertPointZ (Index As Long, Y, X, Z As Float)
Index	Long	.
Y	Float	.
X	Float	.
Z	Float	.

Inside

Lastnost Inside .

RO Property TPointArray.Inside (Y, X As Float) As Boolean
Y	Float	.
X	Float	.
Result	Boolean	.

Length

Lastnost Length vrne dolžino polilinije opredeljene z TPointArray objektom.

RO Property TPointArray.Length As Float
Result	Float	.

Mirror

Metoda Mirror .

Method TPointArray.Mirror

NearestPoint

Lastnost NearestPoint vrne index najbljižje točke.

RO Property TPointArray.NearestPoint (Y, X As Float) As Long
Y	Float	Koordinate točke, za katere se naj poišče najbližja točka.
X	Float	Koordinate točke, za katere se naj poišče najbližja točka.
Result	Long	Index najbližje točke.

Offset

Lastnost Offset .

RO Property TPointArray.Offset (Distance As Float) As TPointArray
Distance	Float	.
Result	TPointArray	.

OffsetNotRounded

Lastnost OffsetNotRounded .

RO Property TPointArray.OffsetNotRounded (Distance As Float) As TPointArray
Distance	Float	.
Result	TPointArray	.

OnLine

Lastnost OnLine .

RO Property TPointArray.OnLine (Y, X, Error As Float) As Long
Y	Float	.
X	Float	.
Error	Float	.
Result	Long	.

Outline

Lastnost Outline .

RO Property TPointArray.Outline (Distance, Tolerance As Float, Rounded As Boolean) As TPointArray
Distance	Float	.
Tolerance	Float	.
Rounded	Boolean	.
Result	TPointArray	.

Perimeter

Lastnost Perimeter določa obseg poligona, zapisanega v TPointArray objektu.

RO Property TPointArray.Perimeter As Float
Result	Float	.

PointAtDistance

Lastnost PointAtDistance .

RO Property TPointArray.PointAtDistance (Distance As Float, ByRef Y, ByRef X As Float) As Long
Distance	Float	.
Y	ByRef Float	.
X	ByRef Float	.
Result	Long	.

PointDistance

Lastnost PointDistance vrne dolžino od začetka polilinije do podane lomne točke.

RO Property TPointArray.PointDistance (Index As Long) As Float
Index	Long	Zaporedna številka lomne točke.
Result	Float	Dolžina od začetka polilinije.

Points3DAsText

Lastnost Points3DAsText .

RO Property TPointArray.Points3DAsText As String
Result	String	.

PointsAsText

Lastnost PointsAsText .

RO Property TPointArray.PointsAsText As String
Result	String	.

Projection

Metoda Projection .

Method TPointArray.Projection (Y, X As Float, ByRef PY, ByRef PX, ByRef Index, ByRef Stac, ByRef Angle, ByRef Dist, ByRef Dir As Float)
Y	Float	.
X	Float	.
PY	ByRef Float	.
PX	ByRef Float	.
Index	ByRef Float	.
Stac	ByRef Float	.
Angle	ByRef Float	.
Dist	ByRef Float	.
Dir	ByRef Float	.

ProjectionAngle

Lastnost ProjectionAngle vrne smerni kot za polilinije v projekciji podane točke. Če pade projekcija v točko polilinije, vrne povprečje sosednjih smernih kotov. Isto velja tudi za prvo (zadnjo) točko poligona.

RO Property TPointArray.ProjectionAngle (Y, X As Float) As Float
Y	Float	Koordinate točke.
X	Float	Koordinate točke.
Result	Float	Izračunan smerni kot polilinije v radianih.

ProjectionDistance

Lastnost ProjectionDistance izračuna oddaljenost podane točke od polilinije.

RO Property TPointArray.ProjectionDistance (Y, X As Float) As Float
Y	Float	Koordinate točke.
X	Float	Koordinate točke.
Result	Float	Izračunana oddaljenost.

ProjectionPoint

Metoda ProjectionPoint izračuna projekcijo točke na polilinijo.

Method TPointArray.ProjectionPoint (Y, X As Float, ByRef Index As Long, ByRef Part As Float)
Y	Float	Koordinate točke.
X	Float	Koordinate točke.
Index	ByRef Long	index predhodnega loma.
Part	ByRef Float	Vrednost med 0 in 1, ki predstavlja odmik od začetka segmenta linije.

ProjectionStationing

Lastnost ProjectionStationing .

RO Property TPointArray.ProjectionStationing (Y, X As Float) As Float
Y	Float	.
X	Float	.
Result	Float	.

Rotate

Metoda Rotate .

Method TPointArray.Rotate (Y, X, Angle As Float)
Y	Float	.
X	Float	.
Angle	Float	.

Shift

Metoda Shift .

Method TPointArray.Shift (I As Long)
I	Long	.

Sort

Metoda Sort .

Method TPointArray.Sort

Stationing

Metoda Stationing .

Method TPointArray.Stationing (Stac As Float, ByRef Y, ByRef X, ByRef Index, ByRef Angle As Float)
Stac	Float	.
Y	ByRef Float	.
X	ByRef Float	.
Index	ByRef Float	.
Angle	ByRef Float	.

Stationings

Lastnost Stationings .

RO Property TPointArray.Stationings (Steps As Float) As TPointArray
Steps	Float	.
Result	TPointArray	.

X

Lastnost X določa vertikalno vrednost za podani lom na poliliniji.

Property TPointArray.X (Index As Long) As Float
Index	Long	Zaporedna številka lomne točke.
Result	Float	.

Y

Lastnost Y določa horizontalno vrednost za podani lom na poliliniji.

Property TPointArray.Y (Index As Long) As Float
Index	Long	Zaporedna številka lomne točke.
Result	Float	.

Z

Lastnost Z .

Property TPointArray.Z (Index As Long) As Float
Index	Long	.
Result	Float	.

ClosePolygon

Metoda ClosePolygon .

Method TPointArray.ClosePolygon

OpenPolygon

Metoda OpenPolygon .

Method TPointArray.OpenPolygon

MakeTree

Lastnost MakeTree .

RO Property TPointArray.MakeTree As TPointArray
Result	TPointArray	.