'set this rule to watch this parameter oTrigger = PAINT Dim oDoc As PartDocument = ThisDoc.Document Dim oEntities As NamedEntities = ThisDoc.NamedEntities 'get the named face Dim oFace1 As Face = oEntities.TryGetEntity("TOP_FACE") If oFace1 Is Nothing Then Logger.Debug("Could not find Face named 'TOP_FACE'!") Dim oFace2 As Face = oEntities.TryGetEntity("OUTSIDE_DIAMETER") If oFace2 Is Nothing Then Logger.Debug("Could not find Face named 'OUTSIDE_DIAMETER'!") Dim oBlue As Asset = Nothing Try oBlue = oDoc.Assets.Item("*Blue") Catch Logger.Error("Could not find local Asset named '*Blue'!") End Try 'set the color if paramter is true If Parameter("PAINT") = True Then Try oFace1.Appearance = oBlue oFace2.Appearance = oBlue Catch Logger.Error("Error setting Appearance of named faces to Blue.") End Try Else Try Dim oAA As Asset = oDoc.ActiveAppearance oFace1.Appearance = oAA oFace2.Appearance = oAA Catch Logger.Error("Error setting Appearance of named faces to 'active' appearance.") End Try End If