'
' This example illustrates how to enumerate all parameters under a material and
' any connected shaders.
'
if Selection.Count <> 0 then
set oObject = Selection(0)
else
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObject = oRoot.AddGeometry("Cylinder", "MeshSurface")
ApplyShader "Material\Constant", oObject
end if
set oMaterial = oObject.Material
' Log material parameters
Application.LogMessage "Material: " & oMaterial.FullName
For each oParam in oMaterial.Parameters
Application.LogMessage oParam.FullName
Next
' Log shader parameters
For each oShader in oMaterial.Shaders
Application.LogMessage "Shader: " & oShader.FullName
For each oParam in oShader.Parameters
Application.LogMessage oParam.FullName
Next
Next
|