03-04-2021
04:42 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-04-2021
04:42 AM
I actually found an even better solution to check if the Active LOD current Browser Node exists, using this:
Dim asDoc As AssemblyDocument = ThisDoc.Document aComp = asDoc.ComponentDefinition 'Position der Detailgenauigkeit erfassen Dim ActLOD As String = aComp.RepresentationsManager.ActiveLevelOfDetailRepresentation.Name Dim LODact As LevelOfDetailRepresentation = aComp.RepresentationsManager.ActiveLevelOfDetailRepresentation LODrep = aComp.RepresentationsManager.LevelOfDetailRepresentations 'Dim Str As String Dim oLODRep As LevelOfDetailRepresentation = asDoc.ComponentDefinition.RepresentationsManager.LevelOfDetailRepresentations.Item(ActLOD) ' asDoc.BrowserPanes.Item("Model").Activate Dim oNativeBrowserNodeDef As NativeBrowserNodeDefinition Try oNativeBrowserNodeDef = asDoc.BrowserPanes.GetNativeBrowserNodeDefinition(oLODRep) MsgBox(ActLOD & " | " & "Aktiv vorhanden") Catch MsgBox(ActLOD & " | " & "Aktive nicht vorhanden") End Try