Hilfe bei der Erstellung - wie bestreitet man den Weg "richtig" (Beispiel: Vermessung Kleinpunkt)

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Hilfe bei der Erstellung - wie bestreitet man den Weg "richtig" (Beispiel: Vermessung Kleinpunkt)

    Moin!

    ich möchte in naher Zukunft einige meiner zentralen Berechnungsfunktionen in Klassen auslagern um diese effektiver nutzen zu können.

    Habe mir einfach einmal ein Beispiel aus der Vermessung - die Kleinpunktberechnung herangezogen. Vielleicht kommt einer von Euch aus dieser Branche und es ist so an dem Beispiel einfacher zu diskutieren.

    Hier mein Beispiel-Code

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Kleinpunkt
    2. '------- http://ms-wiki-1/eblwiki/index.php?title=Kleinpunkt_(Klasse_von_EBL.Service)
    3. Public _AcLog As EBL.AcadLogger.AcLog
    4. Public _Rechts_A As Double
    5. Public _Hoch_A As Double
    6. Public _Rechts_E As Double
    7. Public _Hoch_E As Double
    9. Private _IstStrecke As Double
    10. Private _IsBasisCalc As Boolean = False
    12. Public _Verteilungsfaktor As Double = 1
    13. Public _Anlegemass As Double = 0.0
    15. Private _Faktor_o As Double = 1
    16. Private _Faktor_a As Double = 1
    18. Public _Rechts_N As Double
    19. Public _Hoch_N As Double
    20. ''' <summary>
    21. ''' Init
    22. ''' </summary>
    23. ''' <param name="AcLog"></param>
    24. Public Sub New(AcLog As EBL.AcadLogger.AcLog)
    25. _AcLog = AcLog
    26. End Sub
    28. ''' <summary>
    29. ''' ANFANGspunkt RECHTS
    30. ''' </summary>
    31. Public WriteOnly Property AnfangRechts As Double
    32. Set(value As Double)
    33. _Rechts_A = value
    34. End Set
    35. End Property
    36. ''' <summary>
    37. ''' ANFANGspunkt HOCH
    38. ''' </summary>
    39. Public WriteOnly Property AnfangHoch As Double
    40. Set(value As Double)
    41. _Hoch_A = value
    42. End Set
    43. End Property
    44. ''' <summary>
    45. ''' ANFANG-Punkt als 2D-Punkt
    46. ''' </summary>
    47. Public WriteOnly Property AnfangPunkt2D As Autodesk.AutoCAD.Geometry.Point2d
    48. Set(value As Autodesk.AutoCAD.Geometry.Point2d)
    49. _Rechts_A = value.X
    50. _Hoch_A = value.Y
    51. End Set
    52. End Property
    53. ''' <summary>
    54. ''' ANFANG-Punkt als 3D-Punkt
    55. ''' </summary>
    56. Public WriteOnly Property AnfangPunkt3D As Autodesk.AutoCAD.Geometry.Point3d
    57. Set(value As Autodesk.AutoCAD.Geometry.Point3d)
    58. _Rechts_A = value.X
    59. _Hoch_A = value.Y
    60. End Set
    61. End Property
    62. ''' <summary>
    63. ''' ANFANG-Punkt als LinePoint
    64. ''' </summary>
    65. Public WriteOnly Property AnfangPunktAsLinePoint As Autodesk.Map.IM.Graphic.LinePoint
    66. Set(value As Autodesk.Map.IM.Graphic.LinePoint)
    67. _Rechts_A = value.X
    68. _Hoch_A = value.Y
    69. End Set
    70. End Property
    71. ''' <summary>
    72. ''' ANFANG-Punkt als Point
    73. ''' </summary>
    74. Public WriteOnly Property AnfangPunktAsPoint As Autodesk.Map.IM.Graphic.Point
    75. Set(value As Autodesk.Map.IM.Graphic.Point)
    76. _Rechts_A = value.X
    77. _Hoch_A = value.Y
    78. End Set
    79. End Property
    80. ''' <summary>
    81. ''' ENDpunkt RECHTS
    82. ''' </summary>
    83. Public WriteOnly Property EndRechts As Double
    84. Set(value As Double)
    85. _Rechts_E = value
    86. End Set
    87. End Property
    88. ''' <summary>
    89. ''' ENDpunkt HOCH
    90. ''' </summary>
    91. Public WriteOnly Property EndHoch As Double
    92. Set(value As Double)
    93. _Hoch_E = value
    94. End Set
    95. End Property
    96. ''' <summary>
    97. ''' END-Punkt als 2D-Punkt
    98. ''' </summary>
    99. Public WriteOnly Property EndPunkt2D As Autodesk.AutoCAD.Geometry.Point2d
    100. Set(value As Autodesk.AutoCAD.Geometry.Point2d)
    101. _Rechts_E = value.X
    102. _Hoch_E = value.Y
    103. End Set
    104. End Property
    105. ''' <summary>
    106. ''' END-Punkt als 3D-Punkt
    107. ''' </summary>
    108. Public WriteOnly Property EndPunkt3D As Autodesk.AutoCAD.Geometry.Point3d
    109. Set(value As Autodesk.AutoCAD.Geometry.Point3d)
    110. _Rechts_E = value.X
    111. _Hoch_E = value.Y
    112. End Set
    113. End Property
    114. ''' <summary>
    115. ''' END-Punkt als LinePoint
    116. ''' </summary>
    117. Public WriteOnly Property EndPunktAsLinePoint As Autodesk.Map.IM.Graphic.LinePoint
    118. Set(value As Autodesk.Map.IM.Graphic.LinePoint)
    119. _Rechts_E = value.X
    120. _Hoch_E = value.Y
    121. End Set
    122. End Property
    123. ''' <summary>
    124. ''' END-Punkt als Point
    125. ''' </summary>
    126. Public WriteOnly Property EndPunktAsPoint As Autodesk.Map.IM.Graphic.Point
    127. Set(value As Autodesk.Map.IM.Graphic.Point)
    128. _Rechts_E = value.X
    129. _Hoch_E = value.Y
    130. End Set
    131. End Property
    132. ''' <summary>
    133. ''' ENDpunkt HOCH
    134. ''' </summary>
    135. Public WriteOnly Property IstStrecke As Double
    136. Set(value As Double)
    137. _IstStrecke = value
    138. End Set
    139. End Property
    140. ''' <summary>
    141. ''' Verteilungsfaktor
    142. ''' </summary>
    143. Public WriteOnly Property VerteilungFaktor As Double
    144. Set(value As Double)
    145. _Verteilungsfaktor = value
    146. End Set
    147. End Property
    148. ''' <summary>
    149. ''' NEU-Punkt als AcPoint3D
    150. ''' </summary>
    151. Public ReadOnly Property NeuPoint3D As Autodesk.AutoCAD.Geometry.Point3d
    152. Get
    153. Dim Point As New Autodesk.AutoCAD.Geometry.Point3d(_Rechts_N, _Hoch_N, 0)
    154. Return Point
    155. End Get
    156. End Property
    157. ''' <summary>
    158. ''' NEU-Punkt als AcPoint2D
    159. ''' </summary>
    160. Public ReadOnly Property NeuPoint2D As Autodesk.AutoCAD.Geometry.Point2d
    161. Get
    162. Dim Point As New Autodesk.AutoCAD.Geometry.Point2d(_Rechts_N, _Hoch_N)
    163. Return Point
    164. End Get
    165. End Property
    166. ''' <summary>
    167. ''' Berechnen der Iststrecke aus gemessenen Anlegemass und Endmass
    168. ''' </summary>
    169. ''' <param name="Anlegemass">Anlegemass gemessen</param>
    170. ''' <param name="Endmass">Endmass gemessen</param>
    171. Public Sub IstStreckeMitAnlegemass(Anlegemass As Double, Endmass As Double)
    172. _Anlegemass = Anlegemass
    173. _IstStrecke = Endmass - Anlegemass
    174. End Sub
    175. ''' <summary>
    176. ''' Anlegemass zurücksetzen
    177. ''' </summary>
    178. Public Sub AnlegemassReset()
    179. _Anlegemass = 0
    180. End Sub
    181. ''' <summary>
    182. ''' Berechnung des Verteilungsfaktor
    183. ''' </summary>
    184. Public Sub CalcVerteilung(Endmass As Double)
    185. Dim Delta_R As Double = (_Rechts_E - _Rechts_A)
    186. Dim Delta_H As Double = (_Hoch_E - _Hoch_A)
    188. Dim SollStrecke As Double = Math.Sqrt(Delta_R * Delta_R + Delta_H * Delta_H)
    189. Dim IstStrecke As Double = _Anlegemass - Endmass
    191. VerteilungFaktor = IstStrecke / SollStrecke
    193. End Sub
    194. ''' <summary>
    195. ''' Berechnen der Basisparameter
    196. ''' </summary>
    197. ''' <returns>-1 ... Fehler / 0 ... keine Berechnung erfolgt / 1 .... erfolgt</returns>
    198. Public Function CalcBase() As Integer
    199. Dim Result As Integer = 0
    200. Try
    201. Dim Strecke As Double = 0
    202. Dim Delta_R As Double = (_Rechts_E - _Rechts_A)
    203. Dim Delta_H As Double = (_Hoch_E - _Hoch_A)
    205. Strecke = Math.Sqrt(Delta_R * Delta_R + Delta_H * Delta_H)
    207. _Faktor_o = (_Rechts_E - _Rechts_A) / Strecke 'Rechtswert abhängig
    208. _Faktor_a = (_Hoch_E - _Hoch_A) / Strecke 'Hochwert abhängig
    210. _IsBasisCalc = True
    211. Result = 1
    212. Catch ex As Exception
    213. _AcLog.WriteAsError("Fehler bei der Basisberechnung - CalcBase" & Environment.NewLine & ex.ToString())
    214. Result = -1
    215. End Try
    216. Return Result
    217. End Function
    219. ''' <summary>
    220. ''' Berechnen eines Kleinpunktes mit Verteilung in Abzizze und Ordinate
    221. ''' </summary>
    222. ''' <param name="Abzisse"></param>
    223. ''' <param name="Ordinate"></param>
    224. ''' <returns>-1 ... Fehler / 0 ... keine Berechnung erfolgt / 1 .... erfolgt</returns>
    225. Public Function CalcPointOhneVerteilung(Abzisse As Double, Ordinate As Double) As Integer
    226. Return CalcPointWork(Abzisse, Ordinate, VerteilungAbzisse:=False, VerteilungOrdinate:=False)
    227. End Function
    229. ''' <summary>
    230. ''' Berechnen eines Kleinpunktes mit Verteilung nur mit Abzizze
    231. ''' </summary>
    232. ''' <param name="Abzisse"></param>
    233. ''' <returns>-1 ... Fehler / 0 ... keine Berechnung erfolgt / 1 .... erfolgt</returns>
    234. Public Function CalcPointOhneVerteilung(Abzisse As Double) As Integer
    235. Return CalcPointWork(Abzisse, 0.0, VerteilungAbzisse:=False, VerteilungOrdinate:=False)
    236. End Function
    237. ''' <summary>
    238. ''' Berechnen eines Kleinpunktes mit Verteilung in Abzizze und Ordinate
    239. ''' </summary>
    240. ''' <param name="Abzisse"></param>
    241. ''' <param name="Ordinate"></param>
    242. ''' <returns>-1 ... Fehler / 0 ... keine Berechnung erfolgt / 1 .... erfolgt</returns>
    243. Public Function CalcPointVerteilung(Abzisse As Double, Ordinate As Double) As Integer
    244. Return CalcPointWork(Abzisse, Ordinate, VerteilungAbzisse:=True, VerteilungOrdinate:=True)
    245. End Function
    246. ''' <summary>
    247. ''' Berechnen eines Punktes
    248. ''' </summary>
    249. ''' <param name="Abzisse"></param>
    250. ''' <param name="Ordinate"></param>
    251. ''' <param name="VerteilungAbzisse">mit Verteilung auf die Abzisse</param>
    252. ''' <param name="VerteilungOrdinate">mit Verteilung auf die Ordinate</param>
    253. ''' <returns>-2 ... Fehler in den A-E-Punkten / -1 ... Fehler / 0 ... keine Berechnung erfolgt / 1 .... erfolgt</returns>
    254. Public Function CalcPointWork(Abzisse As Double, Ordinate As Double, Optional VerteilungAbzisse As Boolean = True, Optional VerteilungOrdinate As Boolean = True) As Integer
    255. Dim Result As Integer = 0
    257. Try
    258. If _IsBasisCalc = False Then
    259. _AcLog.Write("==> rufe CalcBase auf für die Basis-Parameter-Berechnung")
    260. If CalcBase() = -1 Then Return -1 ' Fehler in der Basisberechnung
    261. End If
    263. Dim Abz As Double = Abzisse - _Anlegemass
    264. Dim Ord As Double = Ordinate
    266. If VerteilungAbzisse = True Then Abz = Abz * _Verteilungsfaktor
    267. If VerteilungOrdinate = True Then Ord = Ord * _Verteilungsfaktor
    269. _Rechts_N = _Rechts_A + _Faktor_o * Abz + _Faktor_a * Ord
    270. _Hoch_N = _Hoch_A + _Faktor_a * Abz - _Faktor_o * Ord
    272. ' Protokoll der Kleinpunktberechnung
    273. If Doku() = False Then Return -2 ' Basisparameter
    275. With _AcLog
    276. .WriteParameter("VerteilungAbzisse", VerteilungAbzisse.ToString)
    277. .WriteParameter("VerteilungOrdinate", VerteilungOrdinate.ToString)
    278. .Write("Abzisse:= " & Abzisse.ToString("0.000") & " -> Vert:= " & Abz.ToString("0.000"))
    279. .Write("Ordinate:= " & Ordinate.ToString("0.000") & " -> Vert:= " & Ord.ToString("0.000"))
    280. .Write2D("Neu-Punkt", _Rechts_N, _Hoch_N)
    281. End With
    282. Result = 1
    284. Catch ex As Exception
    285. _AcLog.WriteAsError("Fehler bei der Basisberechnung - CalcPointWork" & Environment.NewLine & ex.ToString())
    286. Result = -1
    287. End Try
    289. Return Result
    290. End Function
    291. ''' <summary>
    292. ''' Protokoll der Basiswerte für die Kleinpunktberechnung
    293. ''' </summary>
    294. ''' <returns>false ... Fehler in den Daten / true ... alles OK</returns>
    295. Private Function Doku() As Boolean
    296. Dim Result As Boolean = True
    297. With _AcLog
    298. .Write("--- Kleinpunktberechnung ---")
    300. If _Rechts_A = _k_Invalid_Rechtswert Or _Hoch_A = _k_Invalid_Hochwert Then
    301. .WriteAsError("ANFANGSpunkt nicht korrekt definiert!")
    302. Result = False
    303. Else
    304. .Write2D("Anfang-Punkt", _Rechts_A, _Hoch_A)
    305. End If
    307. If _Rechts_E = _k_Invalid_Rechtswert Or _Hoch_E = _k_Invalid_Hochwert Then
    308. .WriteAsError("ENDpunkt nicht korrekt definiert!")
    309. Result = False
    310. Else
    311. .Write2D("End-Punkt", _Rechts_E, _Hoch_E)
    312. End If
    314. .WriteParameter("Anlegemass", _Anlegemass)
    315. .WriteParameter("Strecke", _IstStrecke)
    317. .WriteParameter("Faktor_o", _Faktor_o)
    318. .WriteParameter("Faktor_a", _Faktor_a)
    320. End With
    321. Return Result
    322. End Function
    323. ''' <summary>
    324. ''' klasssische 2D Kleinpunktberechnung für einen einfachen Punkt
    325. ''' </summary>
    326. ''' <param name="Anfangspunkt">Topobase-Punktobjekt</param>
    327. ''' <param name="Endpunkt">Topobase-Punktobjekt</param>
    328. ''' <param name="IstStrecke">für eine mögliche Streckenverteilung, kleiner 0, dann wird diese ignoriert</param>
    329. ''' <returns></returns>
    330. Public Function KlassischSimple(ByVal Anfangspunkt As Autodesk.AutoCAD.Geometry.Point3d,
    331. ByVal Endpunkt As Autodesk.AutoCAD.Geometry.Point3d,
    332. ByVal IstStrecke As Double,
    333. ByVal Abzisse As Double,
    334. ByVal Ordinate As Double) As Autodesk.AutoCAD.Geometry.Point3d
    335. 'Optional Höhe_N As Double = 0 - vorerst weggelassen
    337. _Rechts_A = Anfangspunkt.X
    338. _Hoch_A = Anfangspunkt.Y
    340. _Rechts_E = Endpunkt.X
    341. _Hoch_E = Endpunkt.Y
    343. AnlegemassReset()
    345. If IstStrecke = -1 Then ' kleine Verteilung
    346. _Verteilungsfaktor = 1
    347. Else
    348. CalcVerteilung(IstStrecke)
    349. End If
    351. CalcPointWork(Abzisse, Ordinate) ' druchführen der Berechnung
    353. Return NeuPoint3D
    355. End Function
    357. End Class



    In einem Teil werden die Defintionspunkte für Gerade definiert auf der die Kleinpunktberechnung durchgeführt werden. Hier gibt es auch Eigenschaften getrennt für Rechts und Hochwert - aber auch für Punkte innerhalb einer Autocad-Programmierung.

    Dann gibt es noch einige Randbedigungen für die Berechnungen, wie das Anlegemass und dass Endmass für eine mögliche Fehlerverteilung.

    Dann kommen ja immer die eigentlichen Berechnung. Hier ist ja immer zu gewährleisten, dass auch alle Grundparameter definiert sind.

    Genau hier ist einer der Punkte, wo ich mich immer etwas schwer tue. Baut man vor der eigentlichen Berechnung eine Methode (?) ein um zu prüfen, ob alles ok ist (Success)? Oder wie geht man mit dem ganzen um.

    Würde mich über Rückmeldungen freuen.

    Gruß Jan

    jan99 schrieb:

    Dann kommen ja immer die eigentlichen Berechnung. Hier ist ja immer zu gewährleisten, dass auch alle Grundparameter definiert sind.
    Baut man vor der eigentlichen Berechnung eine Methode (?) ein um zu prüfen, ob alles ok ist (Success)?
    Ja, kann man machen.
    Das heisst aber nicht Success, sondern Validierung, also Private Function IsInputValid() as Boolean oder sowas.

    An deiner Klasse gefällt mir nicht, dass da lauter WriteOnly-Properties rumfahren, deren Setzungen aber eiglich garnet benutzt werden.
    Zumindest in KlassischSimple() überschreibste fröhlich, was zuvor evtl. jemand als AnfangPunktAsLinePoint eingegeben hat.
    Dann lass die Properties lieber weg.

Facebook
Telefonspende