---

Hallo zusammen,

auf die skizierten Symbole kann ja mit dem Objekt SketchedSymbolDefinitions zugegriffen werden.

Was ist aber wenn ich die Symbole in Ordnern organisiert habe ?
Ich habe keine Möglichkeit gefunden auf die Ordner und die zugeordneten Symbole zuzugreifen...

hat jemand eine Idee ???

Gruss Pelikan

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

---

Hallo

Ja, hab eine Idee. Die Verzeichnisse existieren nur im Teilebrowser und dort sind sie auch zu finden.

Code:

---

Private Sub SketchedSymbolFolder()

Dim oDrawDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oBrowserPane As BrowserPane
Set oBrowserPane = oDoc.BrowserPanes.Item("Modell")

Dim oBrowserFolder As BrowserFolder
Dim oBrowserNode As BrowserNode
Dim oSketchedSymboldefinition As SketchedSymboldefinition

For Each oBrowserNode In oBrowserPane.TopNode.BrowserNodes.Item(1).BrowserNodes.Item(4).BrowserNodes
    If TypeOf oBrowserNode.NativeObject Is SketchedSymboldefinition Then
        Set oSketchedSymboldefinition = oBrowserNode.NativeObject
        MsgBox oSketchedSymboldefinition.Name
    End If
Next

For Each oBrowserFolder In oBrowserPane.TopNode.BrowserNodes.Item(1).BrowserNodes.Item(4).BrowserFolders
    MsgBox (oBrowserFolder.Name)
    If oBrowserFolder.BrowserNode.BrowserFolders.Count > 0 Then
        Call Recursion(oBrowserFolder)
    End If
Next
End Sub

Private Sub Recursion(ByRef oBrowserFolder As BrowserFolder)

Dim oBrowserNode As BrowserNode
Dim oSketchedSymboldefinition As SketchedSymboldefinition

For Each oBrowserNode In oBrowserFolder.BrowserNode.BrowserNodes
    If TypeOf oBrowserNode.NativeObject Is SketchedSymboldefinition Then
        Set oSketchedSymboldefinition = oBrowserNode.NativeObject
        MsgBox oSketchedSymboldefinition.Name
    End If
Next

For Each oBrowserFolder In oBrowserFolder.BrowserNode.BrowserFolders
    MsgBox (oBrowserFolder.Name)
    If oBrowserFolder.BrowserNode.BrowserFolders.Count > 0 Then
        Call Recursion(oBrowserFolder)
    End If
Next
End Sub

---

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

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

---

Hallo Ralf,

das hilft mir schon mal weiter !!!
Problem ist nur das ich die gelesenen Ordner an ein neues Document übertragen möchte...
Ich habe also die oBrowserNode aus dem Quelldokument...

mit
oDoc.BrowserPanes.Item("Modell").TopNode.BrowserNodes.Item(1).BrowserNodes.Item(4).AddChild (oBrowserNode)

bekomme ich eine Fehlermeldung (nicht unterstützte Methode...)
was mache ich falsch ?

Gruss Pelikan

[Diese Nachricht wurde von Pelikan am 15. Nov. 2013 editiert.]

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

---

Hallo

Wenn die Programmierhilfe noch stimmt, kann man in den Teilebrowser mit der Methode keine eigenen Nodes erstellen. Die Methoden Add und Insert sind nur für selbst erstellte BrowserPanes verfügbar. Mit der BrowserPane.AddBrowserFolder-Methode geht's auch nicht. Da fehlt schon die Möglichkeit eine Zielposition im BrowserPane anzugeben. 

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

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