'--------------------------------------------------------------------
'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 |