Forum:Inventor .NET
Thema:Fl��che von Bohrung herausfinden
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
mssoftware

Beiträge: 76 / 1010

Design Suite 2011-2016 Ultimate
Microsoft Visual Studio Professional 2010<P>i7 2600K @3,4Ghz
Windows 7 64bit
nvidia GTX 760
16GB RAM
2x SSD256GB
NAS 1TB (gespiegelt)

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

mssoftware

Beiträge: 76 / 1010

Design Suite 2011-2016 Ultimate
Microsoft Visual Studio Professional 2010<P>i7 2600K @3,4Ghz
Windows 7 64bit
nvidia GTX 760
16GB RAM
2x SSD256GB
NAS 1TB (gespiegelt)

schon gefunden:

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