Dieser Tipp war gold wert. Vielen Dank dafür!!
Für alle die eventuell ein ähnliches Problem haben:
>>>
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swDrawing As SldWorks.DrawingDoc
Dim strFileName As String
Dim longstatus As Long
Dim longwarnings As Long
Dim instance As ISldWorks
Dim FilePath As String
Dim value As Boolean
Function IsBackgroundProcessingCompleted(ByVal FilePath As String) As Boolean
value = swApp.IsBackgroundProcessingCompleted(FilePath)
End Function
Sub main()
Set swApp = Application.SldWorks
strFileName = "...WBK_Winde.slddrw"
swApp.EnableBackgroundProcessing = True
Set swDrawing = swApp.OpenDoc6(strFileName, 3, 0, "", longstatus, longwarnings)
While (swApp.IsBackgroundProcessingCompleted(strFileName) = False)
Debug.Print ("Background processing ongoing...")
Wend
Do While value = False
IsBackgroundProcessingCompleted ("...WBK_Winde.slddrw")
Loop
swApp.EnableBackgroundProcessing = False
...
<<<
hier kann man super mit erstellen einer PDF oder speichern der aktuellen Konfiguration weiter arbeiten.
Grüße =)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP