Dim collector4 As New FilteredElementCollector(doc)
Dim list_level4 As New List(Of Element)
collector4.OfClass(GetType(FamilySymbol)).OfCategory(BuiltInCategory.OST_StructuralFoundation)
level_count = collector4.OfClass(GetType(FamilySymbol)).OfCategory(BuiltInCategory.OST_StructuralFoundation).Count
If level_count >= 1 Then
list_level4 = collector4.OfClass(GetType(FamilySymbol)).OfCategory(BuiltInCategory.OST_StructuralFoundation).ToElements
Dim transaction6 As New Transaction(doc, "RvtCmd_CrExtrusion")
Dim ln As Line
Dim gh As New XYZ(0, 0, 0)
ln = Line.CreateUnbound(gh, XYZ.BasisZ)
For ik = 0 To level_count - 1
If list_level4.Item(ik).Name = srsm + "-" + Format(imarka, "0") Then
transaction6.Start()
Dim s As String
s = InputBox("Задайте угол в радианах", "Поворот")
ElementTransformUtils.RotateElement(doc, list_level4.Item(ik).Id, ln, Val(s))
transaction6.Commit()
End If
Next
End If