04-15-2015
08:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-15-2015
08:30 AM
Attached is code that will get the return the current user selected Level of Detail. The GetSelectedLevelOfDetail function is the only portion needed. The main sub is just to test the function.
Snippet
'Sample of how to call function
Sub Main() Dim lod As LevelOfDetailRepresentation = Nothing lod = GetSelectedLevelOfDetail(True) If Not lod Is Nothing Then MessageBox.Show(lod.Name) End Sub 'Get Current Selected LevelofDetail, set customOnly to True to only return custom LODs Function GetSelectedLevelOfDetail(customOnly As Boolean) As LevelOfDetailRepresentation 'Get the Document Selection Set Dim ss As SelectSet = ThisDoc.Document.SelectSet Dim selectedLOD As LevelOfDetailRepresentation = Nothing 'Check that only one item is selected If ss.Count = 1 Then 'Check to see if it's a level of detail item If ss(1).Type = ObjectTypeEnum.kLevelOfDetailRepresentationObject Then Dim lod As LevelOfDetailRepresentation = ss(1) If customOnly Then 'Set only if its a custom level detail If (lod.LevelOfDetail = LevelOfDetailEnum.kCustomLevelOfDetail) Then selectedLOD = lod Else 'Set if any kind will do selectedLOD = lod End If End If End If Return selectedLOD End Function