'делее переименовываем семейства
Dim collector40 As New FilteredElementCollector(doc)
Dim list_level40 As New List(Of Element)
level_count = collector40.OfClass(GetType(FamilySymbol)).Count
list_level40 = collector40.OfClass(GetType(FamilySymbol)).ToElements
If level_count >= 1 Then
ik = 0
Dim transaction7 As New Transaction(doc, "RvtCmd_LoadFamilySymbol")
transaction7.Start()
For i_count = 0 To level_count - 1
If list_level40.Item(i_count).Name = "ИГЭ-3" Then
list_level40.Item(i_count).Name = Str(ik)
ik = ik + 1
If ik = 3 Then ik = 0
End If
Next
transaction7.Commit()
End If