赤い部分ではさまれた部分の秒数がログで表示される
'パラメータで指定した数だけヌルを作る
'-------------------------------------------------------
'crieit_dialog
'------------------------------------------------------
'シーンルートにパラメータを作る
SelectObj "Scene_Root"
AddProp "Custom_parameter_list", , , "CustomPSet",oparm
SIAddCustomParameter "CustomPSet", "Param", siInt4, 0, 0, 100, , 4, 0, 100
'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
tStart = time
'ゲットしたパラメーターの数だけヌルを作る
For i = 0 to (v_oparm - 1)
GetPrim "Null"
Next
logmessage "かかった時間:"&datediff("s",tStart,time)&"秒"
---------------------------------------------------
'INFO : かかった時間:1秒