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 (0 - Linearna transformacija , 1 - Po kvadratu oddaljenosti , 2 - Po kvadratu oddaljenosti (za veliko transformacijskih točk) , 3 - Med koordinatnimi sistemi As ERROR) As Long
Result	Long	Tip transformacije:

Area

Lastnost Area določ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 za narediti: opis koordinatnih sistemov.

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

TransformOutputCS

Lastnost TransformOutputCS za narediti: .

Property TTransform.TransformOutputCS As String
Result	String	Šifra in parametri koordinatnega sistema izhodne plasti.

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

Lastnost TransformBasePointY 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

Lastnost TransformBasePointFacY določa horizontalni raztezek glede na TransformBasePointY.

Property TTransform.TransformBasePointFacY As Float
Result	Float	.

TransformBasePointFacX

Lastnost TransformBasePointFacX določa vertikalni raztezek glede na TransformBasePointX.

Property TTransform.TransformBasePointFacX As Float
Result	Float	.

TransformBasePointAngle

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

Property TTransform.TransformBasePointAngle As Float
Result	Float	.

TransformBasePointDeltaX

Lastnost TransformBasePointDeltaX določa vertikalni zamik.

Property TTransform.TransformBasePointDeltaX As Float
Result	Float	.

TransformBasePointDeltaY

Lastnost TransformBasePointDeltaY 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

Lastnost TransformRecordList 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.