カスタムパラメータの値を参照する

'シーンルートにCustomPSetとうのをセットしてParamとうパラメーターを作る

SelectObj "Scene_Root"
AddProp "Custom_parameter_list", , , "CustomPSet"
SIAddCustomParameter "CustomPSet", "Param", siUByte, 1, 0, 10, , 4, 0, 10

'パラメータの数値を参照してその回数だけ繰り返す

oParm = GetValue("CustomPSet.Param")

For i = 0 to (oParm - 1)

'CreateDirLight2をコマンド化しておくとこれだけで呼び出せる
CreateDirLight2

Next