•フィルターリング無し
• Shared Function GetAllWalls_noFilter(ByVal app As Revit.Application) As ElementSet
• Dim elems As ElementSet = app.Create.NewElementSet
• Dim iter As IEnumerator =
app.ActiveDocument.Elements
• Do While (iter.MoveNext())
• Dim elem As Revit.Element = iter.Current
• If TypeOf elem Is Wall Then
• elems.Insert(elem)
• End If
• Loop
• Return elems
• End Function
•フィルターリング有り
• Shared Function
GetAllWalls(ByVal
app As
Revit.Application) As
List(Of
Element)
•
Dim
elements As New List(Of Element)
•
Dim
filterType As
Filter = app.Create.Filter.NewTypeFilter(GetType(Wall))
•
Dim n As Integer =
app.ActiveDocument.Elements(filterType, elements)
•
Return
elements
•
End Function