{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fcharset0 Arial;}{\f1\fswiss\fprq2\fcharset0 Arial;}}
{\colortbl ;\red255\green0\blue0;}
{\*\generator Msftedit 5.41.15.1503;}\viewkind4\uc1\pard\f0\fs20           \par
................\par
  ' Koordinaten des ersten Punkts lesen und dort eine Punkt erstellen\par
            Dim KOORD1(1)\par
            S_Punkt.GetCoordinates KOORD1\par
            \par
            Dim X1, Y1 As Double\par
            X1 = KOORD1(0)\par
            Y1 = KOORD1(1)\par
..........\par
       Do Until X1 = XE And Y1 = YE\par
            'Koordinaten der Punkte setzen\par
            Dim KOORD2(1)\par
            LINIE_MOMENT.StartPoint.GetCoordinates KOORD2\par
            Dim X2, Y2 As Double\par
            X2 = CDbl(KOORD2(0))\par
            Y2 = CDbl(KOORD2(1))\par
            \par
            Dim KOORD3(1)\par
            LINIE_MOMENT.EndPoint.GetCoordinates KOORD3\par
            Dim X3, Y3 As Double\par
            X3 = CDbl(KOORD3(0))\par
            Y3 = CDbl(KOORD3(1))\par
            \par
            Dim KOORD_E(1)\par
            E_PUNKT.GetCoordinates KOORD_E\par
'            Dim XE, YE As Double\par
            XE = CDbl(KOORD_E(0))\par
            YE = CDbl(KOORD_E(1))\par
        '*****************************************************\par
            If X1 = X2 And Y1 = Y2 Then\tab\tab\tab\cf1\f1 ---->>hier entsteht das Problem\cf0\f0\par
            'Startpunkt gefunden\par
                'Punkt erstellen\par
                    Dim PUNKT_SETZEN 'As Point2D\par
                    Set PUNKT_SETZEN = WZK_2D.CreatePoint(X1, Y1)\par
                'Punkt benennen\par
                    PUNKT_SETZEN.Name = "P." & MOMENT_P\par
                    MOMENT_P = MOMENT_P + 1\par
                'Den MomentanPunkt neu setzen und Koordinaten rausschreiben\par
                    Set Punkt_moment = LINIE_MOMENT.EndPoint\par
                    Punkt_moment.GetCoordinates KOORD1\par
                    X1 = KOORD1(0)\par
                    Y1 = KOORD1(1)\par
                'Linie l\'f6schen\par
                    L_DELETE_SELECTION.Clear\par
                    L_DELETE_SELECTION.Add LINIE_MOMENT\par
                    L_DELETE_SELECTION.Delete\par
                'Neue Linien selektion erstellen mit allen vorhandenen Linien au\'dfer gel\'f6schten\par
                    L_SUCHE_SELECTION.Clear\par
                    L_SUCHE_SELECTION.Search "*.Linie*;Alle"\par
                    MsgBox (L_SUCHE_SELECTION.Count)\par
                'Z\'e4hler der L_Suche neu setzen(nullen)\par
                    MOMENT_LS = 1\par
                'Neue Linie setzen\par
                    Set L_M = L_SUCHE_SELECTION.Item(MOMENT_LS)\par
                    Set LINIE_MOMENT = sketch1.GeometricElements.Item(L_M.Value.Name)\par
                \par
                \par
            ElseIf X1 = X3 And Y1 = Y3 Then                        \cf1\f1 ---->> sowie an dieser Stelle\cf0\f0\par
                'Endpunkt der Linie gefunden\par
                    'Punkt erstellen\par
'                    Dim PUNKT_SETZEN As Point2D\par
                    Set PUNKT_SETZEN = WZK_2D.CreatePoint(X1, Y1)\par
                'Punkt benennen\par
                    PUNKT_SETZEN.Name = "P." & MOMENT_P\par
                    MOMENT_P = MOMENT_P + 1\par
                'Den MomentanPunkt neu setzen und Koordinaten rausschreiben\par
                    Set Punkt_moment = LINIE_MOMENT.StartPoint\par
                    Punkt_moment.GetCoordinates KOORD1\par
                    X1 = KOORD1(0)\par
                    Y1 = KOORD1(1)\par
                'Linie l\'f6schen\par
                    L_DELETE_SELECTION.Clear\par
                    L_DELETE_SELECTION.Add LINIE_MOMENT\par
                    L_DELETE_SELECTION.Delete\par
                'Neue Linien selektion erstellen mit allen vorhandenen Linien au\'dfer gel\'f6schten\par
                    L_SUCHE_SELECTION.Clear\par
                    L_SUCHE_SELECTION.Search "*.Linie*;Alle"\par
                    MsgBox (L_SUCHE_SELECTION.Count)\par
                'Z\'e4hler der L_Suche neu setzen(nullen)\par
                    MOMENT_LS = 1\par
                'Neue Linie setzen\par
                    Set L_M = L_SUCHE_SELECTION.Item(MOMENT_LS)\par
                    Set LINIE_MOMENT = sketch1.GeometricElements.Item(L_M.Value.Name)\par
\par
            Else\par
                'Neue Linie als Moment setzen\par
                MOMENT_LS = MOMENT_LS + 1\par
                 Set L_M = L_SUCHE_SELECTION.Item(MOMENT_LS)\par
                Set LINIE_MOMENT = sketch1.GeometricElements.Item(L_M.Value.Name)\par
                               \par
            End If\par
            \par
        Loop\par
        \par
End Sub\par
}
�