TTransform

Ta stran je trenutno še v izdelavi.

Razred TTransform je namenjen transformaciji koordinat.

Tipična uporaba

Uporabnik lahko sam ročno nastavi parametre v prikazanem oknu in nato izvede transformacijo:

 // odpre masko z nastavitvami in nato izvede transformacijo
 If Transform.Edit Then
   Transform.Execute
 EndIf

Edit

Metoda Edit odpre masko za ročno določanje nastavitev transformacije.

Method TTransform.Edit As Boolean
Result	Optional Boolean	Vrne true/false glede na to, ali je uporabnik zapustil masko s Potrdi oz. Opusti.

Execute

Metoda Execute izvede transformacijo podatkov iz vhodne v izhodno podatkovno plast.

Method TTransform.Execute As Boolean
Result	Optional Boolean	Metoda vrne true/false glede na to, ali se je transformacija uspešno izvedla.

Direktna uporaba s parametri

Transformacija se lahko izvede tudi avtomatsko z vnaprej določenimi parametri:

 Dim PA As TPointArray
 Transform.InputLayer = [vhodna plast]
 Transform.OutputLayer = [izhodna plast]
 Transform.TransformType = ...
 // nastavimo še ostale parametre transformacije
 Transform.Execute

InputLayer

Lastnost InputLayer določa vhodno podatkovno plast transformacije.

Property TTransform.InputLayer As TLayer
Result	TLayer	Vhodna podatkovna plast.

Te lastnosti ni potrebno nastavljati, kadar se nastavi InputRecordList, ker se upošteva kar podatkovna plast iz liste zapisov.

InputRecordList

Lastnost InputRecordList določa vhodno listo zapisov transformacije.

Property TTransform.InputRecordList As TRecordList
Result	TRecordList	Vhodna lista zapisov.

Če se ne nastavi oz. je nastavljena na nil, se privzame lista vseh zapisov. Če se nastavi, ni potrebno dodatno nastavljati InputLayer, saj se plast prevzame iz liste zapisov.

OutputLayer

Lastnost OutputLayer določa izhodno plast transformacije.

Property TTransform.OutputLayer As TLayer
Result	TLayer	Izhodna plast transformacije.

Če se ne nastavi, se avtomatsko naredi nova plast in je po Execute ukazu shranjena referenca na novo plast. Če pa je nastavljena, se podatki in struktura obstoječe plasti briše in ponovno nastavi iz vhodne plasti za transformacijo.

TransformType

Lastnost TransformType določa tip transformacije.

Property TTransform.TransformType As Long
Result	Long	Tip transformacije: 0 - Linearna transformacija 1 - Po kvadratu oddaljenosti 2 - Kvadrat oddaljenosti (Veliko transformacijskih točk) 3 - Med koordinatnimi sistemi

Area

Lastnost Areadoloča območje transformacije.

Property TTransform.Area As TPointArray
Result	TPointArray	Poligon, znotraj katerega se izvaja transformacija. Če je nil, se transformira cela plast. Naredi se kopija podanega poligona.

Transformirale se bodo le koordinate, ki so v vhodnih podatkih znotraj poligona. Če se transformira poligon oziroma polilinija in je le ta delno znotraj poligona, se transformirajo samo te točke, ostale pa ostanejo nespremenjene.

 // ...
 Dim PA As TPointArray
 PA = CurRec.PointArray
 Transform.Area = PA
 Destroy (PA)
 // ...

Transformacija med koordinatnimi sistemi

 // izvedemo transformacijo iz D48 v D96
 Transform.InputLayer = [vhodna plast]
 Transform.OutputLayer = Nil
 Transform.TransformType = 3
 Transform.TransformInputCS = "SI-D48,,GURS-08"
 Transform.TransformOutputCS = "SI-D96"
 Transform.Execute

TransformInputCS

Lastnost TransformInputCS vsebuje ...

Property TTransform.TransformInputCS As String
Result	String	Šifra in parametri koordinatnega sistema vhodne plasti.

TransformOutputCS

PropertyTransformOutputCS .

Property TTransform.TransformOutputCS As String
Result	String	.

Linearna transformacija

 /* izvedemo transformacijo 
      Zrcaljenje po horizontali okoli 500000
      raztezek po vertikali od 100000
      Rotacija za 90 stopinj 
      in zamik za 5 in 10 metrov
 */
 Transform.InputLayer = [vhodna plast]
 Transform.OutputLayer = Nil
 Transform.TransformType = 0
 Transform.TransformBasePointY = 500000
 Transform.TransformBasePointX = 100000
 Transform.TransformBasePointFacY = -1
 Transform.TransformBasePointFacX = 2
 Transform.TransformBasePointAngle = DegToRad (90)
 Transform.TransformBasePointDeltaY = 5
 Transform.TransformBasePointDeltaX = 10
 Transform.Execute

TransformBasePointY

PropertyTransformBasePointY določa horizontalno koordinato.

Property TTransform.TransformBasePointY As Float
Result	Float	.

TransformBasePointX

Lastnost TransformBasePointX določa vertikalno koordinato.

Property TTransform.TransformBasePointX As Float
Result	Float	.

TransformBasePointFacY

PropertyTransformBasePointFacY določa horizontalni raztezek glede na TransformBasePointY.

Property TTransform.TransformBasePointFacY As Float
Result	Float	.

TransformBasePointFacX

PropertyTransformBasePointFacX določa vertikalni raztezek glede na TransformBasePointX.

Property TTransform.TransformBasePointFacX As Float
Result	Float	.

TransformBasePointAngle

PropertyTransformBasePointAngle določa rotacijo okoli točke (TransformBasePointY, TransformBasePointX).

Property TTransform.TransformBasePointAngle As Float
Result	Float	.

TransformBasePointDeltaX

PropertyTransformBasePointDeltaX določa vertikalni zamik.

Property TTransform.TransformBasePointDeltaX As Float
Result	Float	.

TransformBasePointDeltaY

PropertyTransformBasePointDeltaY določa horizontalni zamik.

Property TTransform.TransformBasePointDeltaY As Float
Result	Float	.

Transformacija po kvadratu oddaljenosti

 // izvedemo transformacijo po transformacijskih vektorjih
 Transform.InputLayer = [vhodna plast]
 Transform.OutputLayer = Nil
 Transform.TransformType = 1 // ali 2
 Transform.TransformLayer = [transformacijska plast]
 Transform.TransformCoorType = 1
 Transform.TransformFieldY = Transform.TransformLayer.GetField ('Y')
 Transform.TransformFieldX = Transform.TransformLayer.GetField ('X')
 Transform.Execute

TransformLayer

Lastnost TransformLayer določa podatkovno plast, ki vsebuje transformacijske vektorje.

Property TTransform.TransformLayer As TLayer
Result	TLayer	Transformacijska podatkovna plast.

Te lastnosti ni potrebno nastavljati, kadar se nastavi TransformRecordList, ker se upošteva kar podatkovna plast iz liste zapisov.

TransformRecordList

PropertyTransformRecordList določa listo zapisov transformacijskih vektorjev.

Property TTransform.TransformRecordList As TRecordList
Result	TRecordList	Transformacijska lista zapisov.

Če se ne nastavi oz. je nastavljena na nil, se privzame lista vseh zapisov. Če se nastavi, ni potrebno dodatno nastavljati TransformLayer, saj se plast prevzame iz liste zapisov.

TransformCoorType

Lastnost TransformCoorType določa kako so podani transformacijski vektorji.

Property TTransform.TransformCoorType As Long
Result	Long	Tipi transformacijskih vektorjev: 0 - Centroid + Nova lokacija 1 - Centroid + Stara lokacija 2 - Linija (Od stare proti novi lokaciji)

V primeru transformacije s točko in polji TransformCoorType = 0 ali 1, je potrebno nastaviti tudi TransformFieldY in TransformFieldX

TransformFieldY

Lastnost TransformFieldY določa polje, ki vsebuje Y koordinato transformacijskih vektorjev.

Property TTransform.TransformFieldY As TField
Result	TField	Polje z Y koordinato.

V primeru transformacije z linijami TransformCoorType = 2, se lastnost ignorira.

TransformFieldX

Lastnost TransformFieldX določa polje, ki vsebuje X koordinato transformacijskih vektorjev.

Property TTransform.TransformFieldX As TField
Result	TField	Polje z X koordinato.