---

Hallo zusammen,

ich habe ein weiteres Makro geschrieben. Es soll dazu dienen, die Abläufe in unserem Unternehmen zu vereinfachen.

Funktionen dessen sind folgende:
-Alle Arbeitselemente und Ursprungselemente ausblenden
-Alle Untergeordneten ausblenden
-Alphabetische Sortierung des Modellbaums
-Speichern ohne, dass der User bestätigen muss
-Einchecken

Bei der Teilfunktion "Alle Untergeordneten ausblenden" habe ich nun eine Lösung gefunden, jedoch eher durch Glück als durch wissen.
Nun ist die Frage, warum funktioniert die Lösung?

Hier der Ausschnitt für das Ausblenden:

        Dim oTopNode As BrowserNode
        Set oTopNode = Doc.BrowserPanes.Item("Modell").TopNode
        Dim oNode As BrowserNode

        'Hier gehe ich durch die erste Ebene der Nodes
        For Each oNode In oTopNode.BrowserNodes

          If oNode.BrowserNodes.Count > 0 Then

                  Dim i  As Integer
                  For i = 1 To oNode.BrowserNodes.Count
                      oNode.Visible = True
                      oNode.Expanded = False

                      i = i + 1
                  Next
            End If

            If oNode.Expanded = True Then
                oNode.Visible = True
                oNode.Expanded = False
            End If

        Next oNode

Usprünglich hatte ich für die Zeilen
                      oNode.Visible = True
                      oNode.Expanded = False
innerhalb der zweiten For-Schleife folgendes stehen:
                      oNode.BrowserNodes.Item(i).Visible = True
                      oNode.BrowserNodes.Item(i).Expanded = False
Eigentlich macht dieser Code für mich mehr Sinn, da ich IV aktiv sage, welche Unternodes er einklappen soll. Hier bringt er mir allerdings irgendwann eine Fehlermeldung.
Mit den oberen Zeilen funktioniert es, aber ich weiß nicht warum. Ich spreche die Unterknoten in meinem Code doch garnicht an...

Wäre jemand so nett, mir das zu erklären, was hier passiert?
Der Code ist nicht zusammenkopiert oder Ähnliches, das war wohl eher ein Glückstreffer. Wenn ich diesen Code aber freigebe und damit etwas ist, kann ich ja keine Ursache finden, was etwas doof ist.

Vielen Dank im Voraus!

------------------
Grüße, Thunja

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

---

Hallo

Ich glaube, das funktioniert nicht. Deine jetzige Funktion klappt nur die oberste Ebene ein. Deine zweite For-Schleife klappt nicht untergeordnete ein, sondern x-mal den obersten Node. Klappt man einen der Nodes hinterher von Hand wieder auf, sieht man dass die Unterknoten alle noch offen stehen.
Woher der Fehler kommt, kann ich dir ohne probieren nicht sagen.

Du musst meiner Meinung rekursiv durch die BrowserNodes gehen und wie in der GUI von unten nach oben zuklappen.

Prober es mal damit:

Code:

---

Option Explicit

Private Sub CollapseAllNodes()

Dim Doc As Document
Set Doc = ThisApplication.ActiveDocument

Dim oTopNode As BrowserNode
Set oTopNode = Doc.BrowserPanes.Item("Modell").TopNode
Dim oNode As BrowserNode

'Hier gehe ich durch die erste Ebene der Nodes
For Each oNode In oTopNode.BrowserNodes
    If oNode.Visible = True Then
        If oNode.BrowserNodes.Count > 0 Then
            Call CollapseAllSubNodes(oNode)
        End If
        If oNode.Expanded = True Then
            oNode.Expanded = False
        End If
    End If
Next

End Sub

Private Sub CollapseAllSubNodes(ByVal oSubNode As BrowserNode)

Dim oNode As BrowserNode

For Each oNode In oSubNode.BrowserNodes
    If oNode.Visible = True Then
        If oNode.BrowserNodes.Count > 0 Then
            Call CollapseAllSubNodes(oNode)
        End If
        If oNode.Expanded = True Then
            oNode.Expanded = False
        End If
    End If
Next

End Sub

---

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Hallo rkauskh,

vielen Dank für deine Antwort.

Ich kann dir nicht erklären, warum mein Code funktioniert, aber, wenn ich einen Knoten auf oberster Ebene nach der Ausführung des Makros aufklappe, alle daruner ebenfalls geschlossen sind.
Ich war ziemlich verblüfft und eigentlich auch deiner Meinung, dass das nicht möglich ist.

Aber um den Code korrekt zu schreiben und auch zu wissen, was er macht, werde ich ihn rekursiv umschreiben.

Vielen Dank trotzdem!

------------------
Grüße, Thunja

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

---

Hallo

War schon dabei mein Geschreibsel zu editieren. Aber alte Männer sind langsam. 

1.
Es geht glaub ich noch viel einfacher mit dem Einzeiler

Code:

---

Call ThisApplication.CommandManager.ControlDefinitions.Item("AppBrowserCollapseChildrenCmd").Execute

---

2.
Beim zweiten Versuch klappt das Einklappen des Browsers doch mit deinem Code. Ich vermute der mehrfache Aufruf ein und denselben Node einzuklappen veranlasst Inventor dazu. Ich denke aber das ist Zufall und darauf würde ich mich nicht verlassen.

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

---

Guten Morgen Ralf,

Vorschlag 1 hatte ich bereits versucht, da ich zu Anfang über die internen Befehle ging. Hier wird keine Fehlermeldung ausgegeben, sondern das Programm läuft einfach durch.
In erster Linie zeigt dieser Befehl keine Wirkung.

Allerdings fiel mir grad noch ein, dass das eventuell mit der veralteten Ansicht zusammenhängen könnte. Ich habe den refresh-Befehl hinzugefügt und dann sieht auch der User das Ergebnis.

Vielen Dank dafür, dass du mir den Befehl nochmals vor Augen geführt hast. 
Jetzt funktioniert es einwandfrei.

------------------
Grüße, Kristina

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