'--------------------------------------------------------------------
'This example shows how to use the IsApplicable method 
'
' README: install the example from the filter object help 
' page before running this example.
'--------------------------------------------------------------------
set f = Application.Filters("LargeMesh")        
if ( typename(f) <> "Nothing" ) then
        set model = ActiveSceneRoot
        set cone = model.AddGeometry( "Cone", "MeshSurface" )
        LogMessage f.name & ".IsApplicable("& cone &"): " & f.IsApplicable(cone)
        'INFO : "LargeMesh.IsApplicable(cone): True"
end if