https://wiki.sdms.si/index.php?action=history&feed=atom&title=Pretvorba_to%C3%84%C2%8Dk_v_%C3%85%C2%A1estkotnike_-_T2P 2026-05-06T15:49:19Z Zgodovina navedene strani SDMS MediaWiki 1.32.0 https://wiki.sdms.si/index.php?title=Pretvorba_to%C3%84%C2%8Dk_v_%C3%85%C2%A1estkotnike_-_T2P&diff=3656&oldid=prev 2010-03-26T10:16:09Z

<p></p> <table class="diff diff-contentalign-left" data-mw="interface"> <col class="diff-marker" /> <col class="diff-content" /> <col class="diff-marker" /> <col class="diff-content" /> <tr class="diff-title" lang="sl"> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">← Starejša redakcija</td> <td colspan="2" style="background-color: #fff; color: #222; text-align: center;">Redakcija: 10:16, 26. marec 2010</td> </tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Vrstica 1:</td> <td colspan="2" class="diff-lineno">Vrstica 1:</td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>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.  </div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>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.  </div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr> <tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">&lt;source&gt;</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Sub Tocka_v_ploskev</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  Sub Tocka_v_ploskev</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   Dim L as TLayer, I, J As Long, D, A, CA, SA As Float, ER As TEditRecord, R As TRecord,PA As PointArray</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   Dim L as TLayer, I, J As Long, D, A, CA, SA As Float, ER As TEditRecord, R As TRecord,PA As PointArray</div></td></tr> <tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l24" >Vrstica 24:</td> <td colspan="2" class="diff-lineno">Vrstica 25:</td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   L.EndMultipleUpdate</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>   L.EndMultipleUpdate</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  EndSub</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>  EndSub</div></td></tr> <tr><td class='diff-marker'>−</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> </div></td><td class='diff-marker'>+</td><td style="color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline">&lt;/source&gt;</ins></div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].</div></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr> <tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Nazaj na [[Zanimive rutine]]</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #222; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Nazaj na [[Zanimive rutine]]</div></td></tr> </table>

Aleš Trtnik https://wiki.sdms.si/index.php?title=Pretvorba_to%C3%84%C2%8Dk_v_%C3%85%C2%A1estkotnike_-_T2P&diff=3161&oldid=prev 2009-06-25T08:51:18Z

<p>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...</p> <p><b>Nova stran</b></p><div>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. <br /> <br /> Sub Tocka_v_ploskev<br /> Dim L as TLayer, I, J As Long, D, A, CA, SA As Float, ER As TEditRecord, R As TRecord,PA As PointArray<br /> L= [Plast s točkami]//plast, ki vsebuje točke<br /> D = 3 //razdalja od centroida v m<br /> ER = L.EditRecord<br /> L.BeginMultipleUpdate<br /> For I = 0 To L.FilteredRecords.Count - 1 //akcija nad filtriranimi objekti<br /> Hint (IntToStr (I))<br /> R = L.FilteredRecords.Items(I)<br /> ER.Edit (R)<br /> PA = CreatePointArray<br /> For J = 0 To 359 Step 60<br /> A = DegToRad (J)<br /> CA = Cos (A)<br /> SA = Sin (A)<br /> PA.AddPoint (R.Y + D*SA, R.X + D*CA)<br /> Next<br /> ER.SetPolygon<br /> ER.AddPointArray(PA)<br /> ER.Update<br /> Next<br /> L.EndMultipleUpdate<br /> EndSub<br /> <br /> <br /> Za uporabo rutine si pripravimo gumb na orodjarni. Več o tem je v poglavju [[Urejevalnik orodjarne]].<br /> <br /> Nazaj na [[Zanimive rutine]]</div>

217.72.79.210