Die Adesk Leute aus den Staaten konnten helfen.
Ist trotzdem seltsam das es keine GET/SET Eigenschaft dafür gibt.
Also sowas wie Defered_Update = True / False.
na ja wie es auch sei anbei die Lösung wenns mal wer braucht.
******************
Sub StartFileResolve()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oModelPanel As BrowserPane
Set oModelPanel = oDoc.BrowserPanes("DlHierarchy")
oDoc.SelectSet.Clear
oModelPanel.TopNode.DoSelect
Dim oCommand As ControlDefinition
Set oCommand = ThisApplication.CommandManager.ControlDefinitions("UCxResolveFileCmd")
oCommand.Execute
End Sub
------------------
************************************

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