Pretvorba toÄk v Å¡estkotnike - T2P: Razlika med redakcijama
Iz SDMS
Jump to navigationJump to search (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...) |
m |
||
| Vrstica 1: | Vrstica 1: | ||
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. | 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. | ||
| + | <source> | ||
Sub Tocka_v_ploskev | 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 | Dim L as TLayer, I, J As Long, D, A, CA, SA As Float, ER As TEditRecord, R As TRecord,PA As PointArray | ||
| Vrstica 24: | Vrstica 25: | ||
L.EndMultipleUpdate | L.EndMultipleUpdate | ||
EndSub | EndSub | ||
| − | + | </source> | |
Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]]. | Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]]. | ||
Nazaj na [[Zanimive rutine]] | Nazaj na [[Zanimive rutine]] | ||
Trenutna redakcija s časom 11:16, 26. marec 2010
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
EndSubZa uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju Urejevalnik orodjarne.
Nazaj na Zanimive rutine
