パラメータを作りＯＫCanselボタンを出し処理を別ける。
ＯＫボタンはパラメータにつけるのではなくInspectObjを使って開くときにつけるみたい
'-------------------------------------------------------
'crieit_dialog
'------------------------------------------------------
'シーンルートにパラメータを作る
SelectObj "Scene_Root"
AddProp "Custom_parameter_list", , , "CustomPSet",oparm
SIAddCustomParameter "CustomPSet", "Param", siInt4, 0, 0, 10, , 4, 0, 10
'oparmは開くパラメーターの名前。siModal にするとＯＫボタンが出る。On Error Resume Nextは無くてもいいぽい？
On Error Resume Next
InspectObj oparm,,"crieit_dialog", siModal
'OKを押すと０が返るみたい。ＯＫを押すとパラメーターの値を取る
if Err.Number = 0 then
v_oparm = GetValue (oparm & ".Param")
logMessage v_oparm
else
logMessage "Cansel押したね"
end if
'パラメーターの削除
DeleteObj oparm
'ゲットしたパラメーターの数だけヌルを作る
For i = 0 to (v_oparm - 1)
GetPrim "Null"
Next