Hmmm
eigentlich sollte dies hier die Browser Pane in einer Zeichnung auf den Default wechseln (IV2019) aber die DIVA
macht es nicht.
Hat da jemand eine Idee ?
******************
Public Sub StartFileResolve()
Dim oBrowserPane As Inventor.BrowserPane
For Each oBrowserPane In ThisApplication.ActiveDocument.BrowserPanes
Debug.Print (oBrowserPane.InternalName)
Next
Call GetDocumentBrowserPane(ThisApplication.ActiveDocument)
End Sub
*******************************************************************
Public Function GetDocumentBrowserPane(oDoc As Document) As BrowserPane
Dim oModelBP As BrowserPane
'Get the Model BrowserPane for Part
If (TypeOf oDoc Is PartDocument) Then
Set oModelBP = oDoc.BrowserPanes.Item("PmDefault")
End If
'Get the Model BrowserPane for Assembly
If (TypeOf oDoc Is AssemblyDocument) Then
Set oModelBP = oDoc.BrowserPanes.Item("AmBrowserArrangement")
End If
'Get the Model BrowserPane for Drawing
If (TypeOf oDoc Is DrawingDocument) Then
Set oModelBP = oDoc.BrowserPanes.Item("DlHierarchy")
End If
Set GetDocumentBrowserPane = oModelBP
GetDocumentBrowserPane.Activate
End Function
------------------
************************************
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP