https://wiki.sdms.si/index.php?action=history&feed=atom&title=Izris_elipse 2026-05-06T15:09:26Z Zgodovina navedene strani SDMS MediaWiki 1.32.0 https://wiki.sdms.si/index.php?title=Izris_elipse&diff=3657&oldid=prev 2010-03-26T10:16:32Z

<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>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.  </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>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.  </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 NarisiElipse(M As Long)</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 NarisiElipse(M As Long)</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>   /*M je faktor povečave osi elipse*/</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>   /*M je faktor povečave osi elipse*/</div></td></tr> <tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l37" >Vrstica 37:</td> <td colspan="2" class="diff-lineno">Vrstica 38:</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>   EndIf</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>   EndIf</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 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;"></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=Izris_elipse&diff=3165&oldid=prev 2009-06-26T10:17:41Z

<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:17, 26. junij 2009</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="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>Rutina nariše <del class="diffchange diffchange-inline">elipso </del>(<del class="diffchange diffchange-inline">poligon</del>) 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.  </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>Rutina nariše <ins class="diffchange diffchange-inline">elipse </ins>(<ins class="diffchange diffchange-inline">poligone</ins>) 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.  </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>  Sub NarisiElipse(M As Long)</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 NarisiElipse(M As Long)</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>   /*M je faktor povečave osi elipse*/</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>   /*M je faktor povečave osi elipse*/</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>   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</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>   Dim LP As TLayer, F1, F2, F3 As TField, I, J As Long, Y, X, DY, DX, A, DA As Float, <ins class="diffchange diffchange-inline">&lt;br/&gt;</ins>PA As TPointArray, SA, CA, SB, CB As Float</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>   LP = [Skica točk] //Plast s točkovno in ploskovno topologijo</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>   LP = [Skica točk] //Plast s točkovno in ploskovno topologijo</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>   F1 = LP.GetField ('[Os a]')</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>   F1 = LP.GetField ('[Os a]')</div></td></tr> </table>

217.72.79.210 https://wiki.sdms.si/index.php?title=Izris_elipse&diff=3164&oldid=prev 2009-06-26T10:14:54Z

<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:14, 26. junij 2009</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="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>Rutina nariše elipso (poligon) okoli <del class="diffchange diffchange-inline">točke</del>, ki <del class="diffchange diffchange-inline">je </del>v plasti Skica točk. Kot atributi morajo biti zapisane vednosti dolžin osi a in b ter azimut stranice a.  </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>Rutina nariše elipso (poligon) okoli <ins class="diffchange diffchange-inline">filtriranih točk</ins>, ki <ins class="diffchange diffchange-inline">so </ins>v plasti Skica točk. Kot atributi morajo biti <ins class="diffchange diffchange-inline">pri točkah </ins>zapisane vednosti dolžin osi a in b ter azimut stranice a.  </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>  Sub NarisiElipse(M As Long)</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 NarisiElipse(M As Long)</div></td></tr> </table>

217.72.79.210 https://wiki.sdms.si/index.php?title=Izris_elipse&diff=3163&oldid=prev 2009-06-26T10:13:06Z

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