---

Hallo zusammen

Ich bin auf der Suche nach einer Möglichkeit Konturen eines Blechbauteils zu analysieren. Dabei möchte ich unter anderem herausfinden, wie viele Innenkonturen ein Bauteil hat und dessen Konturlängen ermitteln.
Über ComponentDefinition.FlatPattern.TopFace.Edges finde ich mal grundsätzlich alle Kanten der Oberfläche und ComponentDefinition.FlatPattern.TopFace.EdgeLoops alle geschlossenen Konturen mit Unterscheidung Innen- oder Aussenkontur. Wie aber kann ich deren Längen ermitteln?

Beste Grüsse
Raphael

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

---

Hallo

GetLoopLength Methode aus den MeasureTools

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hi Raphael,

man kann das MeasureTool für Konturlänge nutzen.

Ohne Abfragen, Error Handling und Garantie 

Code:

---

Private Sub KonturlaengeInnen()
    Dim oApp As Inventor.Application: Set oApp = ThisApplication
    Dim oPrtDoc As Inventor.PartDocument: Set oPrtDoc = oApp.ActiveDocument
    Dim oCompDef As Inventor.ComponentDefinition: Set oCompDef = oPrtDoc.ComponentDefinition
   
    Dim oTopFace As Inventor.Face: Set oTopFace = oCompDef.FlatPattern.TopFace
    Dim oEdgeLoop As Inventor.EdgeLoop
   
    Dim oMeasureTools As MeasureTools: Set oMeasureTools = ThisApplication.MeasureTools
   
    Dim oLoopLength As Double
   
    oLoopLength = 0
    For Each oEdgeLoop In oTopFace.EdgeLoops
    If Not oEdgeLoop.IsOuterEdgeLoop Then
        oLoopLength = oLoopLength + oMeasureTools.GetLoopLength(oEdgeLoop)
    End If
    Next
   
    oLoopLength = oLoopLength * 10
   
    MsgBox oLoopLength & " mm"

End Sub

---

Grüße

EIBe 3D

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

---

Hallo Ralf und ElBe 3D

Vielen Dank, auf euch kann ich zählen Dir Elbe einen speziellen Dank für das anschauliche Beispiel, damit sollte der Rest ein Kinderspiel sein

Beste Grüsse
Raphael

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