Dim oDoc As AssemblyDocument = ThisDoc.Document
Dim oDef As ComponentDefinition = oDoc.ComponentDefinition
Dim ActLOD As String = oDef.RepresentationsManager.ActiveLevelOfDetailRepresentation.name
Dim oList As New ArrayList
For i As Integer = 1 To oDef.RepresentationsManager.LevelOfDetailRepresentations.count
oList.Add( oDef.RepresentationsManager.LevelOfDetailRepresentations(i).name)
Next
oValue = InputListBox("请选择要激活的详细等级", oList, ActLOD, "详细等级-iLogic_捡得有", "可用的选择:")
oDef.RepresentationsManager.LevelOfDetailRepresentations.Item(oValue).Activate(True)