---

Hallo Leute,

kann ich via VBA abfragen, ob in einem Bauteil eine Notiz eingefügt ist?
Und wenn ja, wie kann man das machen?

Grüße

Manfred

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

---

Hallo Manfred,

dazu musst Du den Browser durchwühlen:

Private Sub chkNotes()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oPane As BrowserPane
  Set oPane = oDoc.BrowserPanes(2)
 
  Dim bNotiz As Boolean
 
  For i = 1 To oPane.TopNode.BrowserNodes.Count
 
    If InStr(1, oPane.TopNode.BrowserNodes(i).FullPath, "Notizen") > 1 Then
      bNotiz = True
    End If
   
  Next i
 
  If bNotiz = True Then
    Debug.Print "Mit Notiz"
  Else
    Debug.Print "Ohne Notiz"
  End If

End Sub

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Hallo Paul,

Danke für das Beispiel.
Das hätte ich ohne Hilfe niemals so hinbekommen.

Grüße

Manfred

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