---

Hallo,

mit dem bisschen Code unten kann ich die Geometriedaten vom Umriss einer planen Fläche gut auslesen - nur wie erhalte ich die Richtung der Kreisbögen also ob sie konvex oder konkav sind????

Gruß

Michael

Public Sub TestSelection()
    ' Create a new clsSelect object.
    Dim oSelect As New clsSelect
    Dim pt As Variant
   
    ' Call the pick method of the clsSelect object and set
    ' the filter to pick any face.
   
    Dim oFace As Face
 
    Set oFace = oSelect.Pick(kPartFaceFilter)
   
    MsgBox "Anzahl der Kanten: " & oFace.Edges.Count
    Dim oEdge As Edge
   
    For i = 1 To oFace.Edges.Count
      Set oEdge = oFace.Edges(i)
      Select Case oEdge.CurveType
        Case kCircleCurve
        Debug.Print "Kurve Anfang"
        Debug.Print "Radius : " & oEdge.Geometry.Radius
        Debug.Print "Start X: " & oEdge.StartVertex.Point.X
        Debug.Print "Start Y: " & oEdge.StartVertex.Point.Y
        Debug.Print "End  X: " & oEdge.StopVertex.Point.X
        Debug.Print "End  Y: " & oEdge.StopVertex.Point.Y
        Debug.Print "Kurve Ende"
        Case kLineCurve
        Debug.Print "Linie Anfang"
        Debug.Print "Start X: " & oEdge.StartVertex.Point.X
        Debug.Print "Start Y: " & oEdge.StartVertex.Point.Y
        Debug.Print "End  X: " & oEdge.StopVertex.Point.X
        Debug.Print "End  Y: " & oEdge.StopVertex.Point.Y
        Debug.Print "Linie Ende"
        Case kUnknownCurve
        MsgBox "Typ wird noch nicht unterstützt!"
        Case kLineSegmentCurve
        MsgBox "Typ wird noch nicht unterstützt!"
        Case kEllipticalArcCurve
        MsgBox "Typ wird noch nicht unterstützt!"
        Case kEllipseFullCurve
        MsgBox "Typ wird noch nicht unterstützt!"
        Case kCircularArcCurve
        MsgBox "Typ wird noch nicht unterstützt!"
        Case kBSplineCurve
        MsgBox "Typ wird noch nicht unterstützt!"
      End Select
    Next i
   
    ' Check to make sure an object was selected.
    If Not oFace Is Nothing Then
        ' Display the area of the selected face.
        MsgBox "Face area: " & oFace.Evaluator.Area & " cm^2"
    End If
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Michael

Ich weiß zwar nicht, obŽs noch aktuell, aber ich würde das anhand der Lage des Mittelpunktes bestimmen.

HTH Mathias

------------------
Der vernünftige Mensch paßt sich der Welt an;
der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.

Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab.
(George Bernard Shaw)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und woher bekomme ich die Mittelpunkte?

Gruß

Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP