Programatically create new graphic override filter

- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Im trying to programatically create a new graphic override filter that would simulate the following:
i have pieced this together but it isnt working.
Private Sub CreateViewFilter(ByVal doc As Autodesk.Revit.DB.Document, ByVal view As Autodesk.Revit.DB.View, objColor As Autodesk.Revit.DB.Color)
Using trans As New Transaction(doc, "create filter override")
trans.Start()
Dim cats As IList(Of ElementId) = New List(Of ElementId)
cats.Add(New ElementId(BuiltInCategory.OST_Rebar))
Dim parameterFilterElement As ParameterFilterElement = parameterFilterElement.Create(doc, "RelNo=001", cats)
Dim parameterCollector As FilteredElementCollector = New FilteredElementCollector(doc)
'Dim parameter As Parameter = ParameterCollector.OfClass(System.Type.GetType(Autodesk.Revit.DB.Rebar)).FirstElement().get_Parameter("RelNo")
Dim parameter As Parameter = parameterCollector.OfType(Of Rebar).First.GetParameters("RelNo")
Dim filterRules As IList(Of FilterRule) = New List(Of FilterRule)
filterRules.Add(ParameterFilterRuleFactory.CreateEqualsRule(parameter.Id, "001", True))
parameterFilterElement.SetRules(filterRules)
Dim filterSettings As OverrideGraphicSettings = New OverrideGraphicSettings()
filterSettings.SetProjectionFillColor(objColor)
view.AddFilter(parameterFilterElement.Id)
view.SetFilterOverrides(parameterFilterElement.Id, filterSettings)
trans.Commit()
End Using
End Sub
Once i have created the filter and graphical overide, i assume that the code would be similar to read back color and name from the revit...is that true?
Any assistance is appreciated.
Kevin