» Dim allParamNamesEncountered
As Autodesk.Revit.Collections.Set _
»
=
revitApp.Create.NewSet()
»
» ' loop through all the elements passed to the method
» Dim setIter As
IEnumerator = elementSet.ForwardIterator
» Do While
(setIter.MoveNext())
» Dim el As
Autodesk.Revit.Element = setIter.Current
» Dim parameters
As Autodesk.Revit.ParameterSet = el.Parameters
» If Not
(parameters.IsEmpty) Then
» ‘ Another way to loop the
parameters is via ParameterSetIterator:
» Dim definitionNames As Autodesk.Revit.Collections.Set _
» = revitApp.Create.NewSet()
» Dim paramIter As Autodesk.Revit.ParameterSetIterator
_
» = parameters.ForwardIterator
» Do While paramIter.MoveNext()
» Dim parameter As Autodesk.Revit.Parameter =
paramIter.Current
» Dim name As String = parameter.Definition.Name
» If Not allParamNamesEncountered.Contains(name) Then
»
allParamNamesEncountered.Insert(name)
» End If
»
Loop
» End
If
» Loop