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