---

Hallo zusammen,

wie kann ich herausfinden, welche Fläche eine Bohrung bzw die Skizze dazu benutzt?
Ich wähle in einem Teil eine Fläche aus und möchte nun alle Bohrungen herausfiltern, die auf dieser Fläche liegen. Die Programmierung sieht im Moment so aus:

Code:

---

  oIVPart = oInventorApp.ActiveDocument

'ausgewählte Fläche zuweisen           
Dim oselectset As Inventor.SelectSet = oIVPart.SelectSet
            If oselectset.Count > 0 Then
                If TypeOf oselectset.Item(1) Is Inventor.Face Then
                    Dim oface As Inventor.Face = oselectset.Item(1)
                    ' Referenz zur component definition.
                    Dim oCompDef As Inventor.PartComponentDefinition
                    oCompDef = oIVPart.ComponentDefinition

'alle Bohrungen durchgehen und prüfen ob sie auf der ausgewählten Fläche liegen
                    Dim ohole As Inventor.HoleFeature
                    For Each ohole In oCompDef.Features.HoleFeatures
                        If ohole.SurfaceBodies.Item(1).Faces.Item(1) Is oface Then
                            Debug.WriteLine(ohole.HoleDiameter.Value * 10)
                        End If

                    Next

                End If

            End If

---

Bei:

Code:

---

If ohole.SurfaceBodies.Item(1).Faces.Item(1) Is oface Then

---

liegt mein Problem, ich finde nicht heraus, welche Eigenschaft die Fläche zurück gibt, auf der die Skizze für die Bohrung liegt...

Gruß

Maik

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

---

schon gefunden:

Code:

---

Dim osketchface As Inventor.Face = ohole.Sketch.PlanarEntity
                    If osketchface Is oface Then
                        Debug.WriteLine(ohole.HoleDiameter.Value * 10)
                    End If

---

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