---

Ich habe ein Makro erstellt das aus einer Vorlage die Skizzierten Symbole in die aktuell geöffnete Zeichnung kopiert. Ich möchte nun die Symbole noch in Ordner ablegen, aber ich kriegs nicht hin dass diese auch kopiert werden.

Hier mein aktuelles Skript:

Public Sub Skizzierte_Symbole()
    'MsgBox Environ$("Inventor")
    If ThisApplication.ActiveDocument Is Nothing Then
        MsgBox "No Document open", 16, "Error"
        Exit Sub
    End If
   
    If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
        MsgBox "No Drawing", 16, "Error"
        Exit Sub
    End If
    Dim oApp As Application
    Set oApp = ThisApplication
 
    Dim i As Long
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
 
    On Error Resume Next
    For i = oDrawDoc.SketchedSymbolDefinitions.Count To 1 Step -1
        oDrawDoc.SketchedSymbolDefinitions.Item(i).Delete
    Next i
   
    Dim oNewDocument As DrawingDocument
    Set oNewDocument = ThisApplication.ActiveDocument
   
    Dim oSourceDocument As DrawingDocument
    Set oSourceDocument = ThisApplication.Documents.Open("O:\SYSTEM\Für VBA\Zeichnung_mit_skizzierten_Symbolen.idw", False)
 
    Dim iZahl As Integer
    For iZahl = oSourceDocument.SketchedSymbolDefinitions.Count To 1 Step -1
        Set oSymbolDef = oSourceDocument.SketchedSymbolDefinitions.Item(iZahl)
        Call oSymbolDef.CopyTo(oNewDocument, True)
    Next iZahl
   
    On Error GoTo 0

    Set oDrawDoc = Nothing
 
End Sub

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

---

Hallo

Ein CopyTo gibt's meines Wissens für die Ordner nicht. Du müßtest ausgehend von Thisapplication dich nach unten durchhangeln bis
ThisApplication.ActiveDocument.BrowserPanes.Item("Modell").TopNode.BrowserNodes.Item(1).BrowserNodes.Item(4).BrowserFolders.

Dort findest du den Namen des Ordners und kannst ihn in der anderen Zeichnung neu erstellen. In dem BrowserFolder sind die untergeordneten BrowserNodes deine skizzierten Symbole. Über NativeObject kommst du an die SketchedSymbolDefinition und kannst dein CopyTo so verwenden wie du's schon hast.

Soweit die Theorie, ausprobiert hab ich's nicht.

------------------
MfG
RK

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