Pretvorba točk v šestkotnike - T2P

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