PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
要素のフィルターリングの比較 (VB)
•フィルターリング無し
•    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
要素コレクション
但し、ジオメトリ系のフィルタリングは御座いませんので、ジオメトリを処理する際は、之まで通りイテレートを行って下さい。