SDMS - Uporabnikovi prispevki [sl]

Verzija 4.1.4.15

2010-02-26T14:53:51Z

217.72.79.210: /* TFilter */

[[Zgodovina verzij]]
== Popravki avtomatsko sporočenih napak ==
*Access violation at address 00B75F03, ki se je zgodil, ob odprti maski in je kdo shranil plast preko mreže. Popravljeno.
== Basic ==
==== TModule, TMenu, ... ====
Dodani funkciji za nalaganje in odlaganje programskih modulov.
TModule.Activate
TModule.DeActivate
Ti dve funkciji se lahko uporabljata namesto metod TList objekta
ModuleList.add ([objekt])
MenuList.add ([objekt])
HotkeyList.add ([objekt])
ToolbarList.add ([objekt])
in sicer lahko kar v obliki
[objekt].Activate
ter
ModuleList.RemoveObject ([objekt])
MenuList.RemoveObject ([objekt])
HotkeyList.RemoveObject ([objekt])
ToolbarList.RemoveObject ([objekt])
in sicer lahko kar v obliki
[objekt].DeActivate
TList objekt sicer še vedno dela v celoti, a je tak način lažji.
==== TFilter ====
Dodani execute ukazi za preproste filtre.
TFilter.ExecuteSQL (SQL As String)
TFilter.ExecutePoint (Y, X, Distance As Float)
TFilter.ExecutePolyLine (P As TPointArray, Distance As Float)
TFilter.ExecutePolygon (P As TPointArray, Distance As Float)
Ki se lahko uporabijo namesto stare kombinacije ukazov
[Plast].Filter.Clear
[Plast].Filter.SQL = 'True'
[Plast].Filter.Execute
je isto kot
[Plast].Filter.ExecuteSQL ('True')
In podobno velja za ostale ukaze.

Izris elipse

2009-06-26T10:17:41Z

217.72.79.210:

Rutina nariše elipse (poligone) okoli filtriranih točk, ki so v plasti Skica točk. Kot atributi morajo biti pri točkah zapisane vednosti dolžin osi a in b ter azimut stranice a.

Sub NarisiElipse(M As Long)
/*M je faktor povečave osi elipse*/
Dim LP As TLayer, F1, F2, F3 As TField, I, J As Long, Y, X, DY, DX, A, DA As Float, <br/>PA As TPointArray, SA, CA, SB, CB As Float
LP = [Skica točk] //Plast s točkovno in ploskovno topologijo
F1 = LP.GetField ('[Os a]')
F2 = LP.GetField ('[Os b]')
F3 = LP.GetField ('[DTheta]')
LP.Filter.Clear
LP.Filter.SQL = '([Os a].AsNumber > 0)'
LP.Filter.Execute
If LP.FilteredRecords.Count > 0 Then
LP.BeginMultipleUpdate
For I = 0 To LP.FilteredRecords.Count - 1
Y = LP.FilteredRecords.Items(I).Y
X = LP.FilteredRecords.Items(I).X
LP.EditRecord.Edit (LP.FilteredRecords.Items(I))
DY = LP.EditRecord.FldAsNumber (F1) * M
DX = LP.EditRecord.FldAsNumber (F2) * M
A = DegToRad (90 - LP.EditRecord.FldAsNumber (F3))
CB = Cos (A)
SB = Sin (A)
PA = CreatePointArray
For J = 0 To 359 Step 15
DA = DegToRad (J)
CA = Cos (DA)
SA = Sin (DA)
PA.AddPoint (Y + DY * CA * CB - DX * SA * SB, X + DY * CA * SB + DX * SA * CB)
Next
LP.EditRecord.SetPolygon
LP.EditRecord.AddPointArray (PA)
LP.EditRecord.Update
Destroy (PA)
Next
LP.EndMultipleUpdate
EndIf
EndSub

Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].

Nazaj na [[Zanimive rutine]]

Izris elipse

2009-06-26T10:14:54Z

217.72.79.210:

Rutina nariše elipso (poligon) okoli filtriranih točk, ki so v plasti Skica točk. Kot atributi morajo biti pri točkah zapisane vednosti dolžin osi a in b ter azimut stranice a.

Sub NarisiElipse(M As Long)
/*M je faktor povečave osi elipse*/
Dim LP As TLayer, F1, F2, F3 As TField, I, J As Long, Y, X, DY, DX, A, DA As Float, PA As TPointArray, SA, CA, SB, CB As Float
LP = [Skica točk] //Plast s točkovno in ploskovno topologijo
F1 = LP.GetField ('[Os a]')
F2 = LP.GetField ('[Os b]')
F3 = LP.GetField ('[DTheta]')
LP.Filter.Clear
LP.Filter.SQL = '([Os a].AsNumber > 0)'
LP.Filter.Execute
If LP.FilteredRecords.Count > 0 Then
LP.BeginMultipleUpdate
For I = 0 To LP.FilteredRecords.Count - 1
Y = LP.FilteredRecords.Items(I).Y
X = LP.FilteredRecords.Items(I).X
LP.EditRecord.Edit (LP.FilteredRecords.Items(I))
DY = LP.EditRecord.FldAsNumber (F1) * M
DX = LP.EditRecord.FldAsNumber (F2) * M
A = DegToRad (90 - LP.EditRecord.FldAsNumber (F3))
CB = Cos (A)
SB = Sin (A)
PA = CreatePointArray
For J = 0 To 359 Step 15
DA = DegToRad (J)
CA = Cos (DA)
SA = Sin (DA)
PA.AddPoint (Y + DY * CA * CB - DX * SA * SB, X + DY * CA * SB + DX * SA * CB)
Next
LP.EditRecord.SetPolygon
LP.EditRecord.AddPointArray (PA)
LP.EditRecord.Update
Destroy (PA)
Next
LP.EndMultipleUpdate
EndIf
EndSub

Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].

Nazaj na [[Zanimive rutine]]

Izris elipse

2009-06-26T10:13:06Z

217.72.79.210: New page: Rutina nariše elipso (poligon) okoli točke, ki je v plasti Skica točk. Kot atributi morajo biti zapisane vednosti dolžin osi a in b ter azimut stranice a. Sub NarisiElipse(M As Long...

Rutina nariše elipso (poligon) okoli točke, ki je v plasti Skica točk. Kot atributi morajo biti zapisane vednosti dolžin osi a in b ter azimut stranice a.

Sub NarisiElipse(M As Long)
/*M je faktor povečave osi elipse*/
Dim LP As TLayer, F1, F2, F3 As TField, I, J As Long, Y, X, DY, DX, A, DA As Float, PA As TPointArray, SA, CA, SB, CB As Float
LP = [Skica točk] //Plast s točkovno in ploskovno topologijo
F1 = LP.GetField ('[Os a]')
F2 = LP.GetField ('[Os b]')
F3 = LP.GetField ('[DTheta]')
LP.Filter.Clear
LP.Filter.SQL = '([Os a].AsNumber > 0)'
LP.Filter.Execute
If LP.FilteredRecords.Count > 0 Then
LP.BeginMultipleUpdate
For I = 0 To LP.FilteredRecords.Count - 1
Y = LP.FilteredRecords.Items(I).Y
X = LP.FilteredRecords.Items(I).X
LP.EditRecord.Edit (LP.FilteredRecords.Items(I))
DY = LP.EditRecord.FldAsNumber (F1) * M
DX = LP.EditRecord.FldAsNumber (F2) * M
A = DegToRad (90 - LP.EditRecord.FldAsNumber (F3))
CB = Cos (A)
SB = Sin (A)
PA = CreatePointArray
For J = 0 To 359 Step 15
DA = DegToRad (J)
CA = Cos (DA)
SA = Sin (DA)
PA.AddPoint (Y + DY * CA * CB - DX * SA * SB, X + DY * CA * SB + DX * SA * CB)
Next
LP.EditRecord.SetPolygon
LP.EditRecord.AddPointArray (PA)
LP.EditRecord.Update
Destroy (PA)
Next
LP.EndMultipleUpdate
EndIf
EndSub

Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].

Nazaj na [[Zanimive rutine]]

Zanimive rutine

2009-06-26T10:09:49Z

217.72.79.210:

Za pokušino

[[Indeksiranje zapisov]]

[[Vnos pravokotnikov]]

[[Pretvorba točk v šestkotnike - T2P]]

[[Izris elipse]]

Nazaj na [[LGB Navodila]]

Pretvorba toÄk v Å¡estkotnike - T2P

2009-06-25T08:51:18Z

217.72.79.210: New page: S spodnjo rutino iz filtriranih točkovnih objektov izdelamo ploskovne. Če vam šestkotniki ne ustrezajo, spremenite korak za J v stavku For, ali pa vstavite novo vrednost za D. Sub To...

S spodnjo rutino iz filtriranih točkovnih objektov izdelamo ploskovne. Če vam šestkotniki ne ustrezajo, spremenite korak za J v stavku For, ali pa vstavite novo vrednost za D.

Sub Tocka_v_ploskev
Dim L as TLayer, I, J As Long, D, A, CA, SA As Float, ER As TEditRecord, R As TRecord,PA As PointArray
L= [Plast s točkami]//plast, ki vsebuje točke
D = 3 //razdalja od centroida v m
ER = L.EditRecord
L.BeginMultipleUpdate
For I = 0 To L.FilteredRecords.Count - 1 //akcija nad filtriranimi objekti
Hint (IntToStr (I))
R = L.FilteredRecords.Items(I)
ER.Edit (R)
PA = CreatePointArray
For J = 0 To 359 Step 60
A = DegToRad (J)
CA = Cos (A)
SA = Sin (A)
PA.AddPoint (R.Y + D*SA, R.X + D*CA)
Next
ER.SetPolygon
ER.AddPointArray(PA)
ER.Update
Next
L.EndMultipleUpdate
EndSub

Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].

Nazaj na [[Zanimive rutine]]

Zanimive rutine

2009-06-25T08:26:20Z

217.72.79.210:

Za pokušino

[[Indeksiranje zapisov]]

[[Vnos pravokotnikov]]

[[Pretvorba točk v šestkotnike - T2P]]

Nazaj na [[LGB Navodila]]

SDMS - Uporabnikovi prispevki [sl]

Verzija 4.1.4.15

Izris elipse

Izris elipse

Izris elipse

Zanimive rutine

Pretvorba toÄk v Å¡estkotnike - T2P

Zanimive rutine

Pretvorba toÄk v Å¡estkotnike - T2P