Dim oDoc As AssemblyDocument = ThisDoc.Document
Dim oDef As ComponentDefinition = oDoc.ComponentDefinition
Dim ActLOD As String = oDef.RepresentationsManager.ActiveLevelOfDetailRepresentation.name
'IF Then
oDef.RepresentationsManager.LevelOfDetailRepresentations.Item("详细等级1").Activate(True)
'Else
oDef.RepresentationsManager.LevelOfDetailRepresentations.Item("主要").Activate(True)
End If