dim oPSet,oPPGLayout, oItem
'Demoというパラメーターをセット
set oPSet=ActiveSceneRoot.AddProperty("CustomProperty",false,"Demo")
'パラメーターを作る。3.5より特殊
oPset.AddParameter3"A", siDouble, 0, 0, 5,true,false
oPset.AddParameter3"B", siDouble, 0, 0, 5,true,false
oPset.AddParameter3"C", siDouble, 0, 0, 5,true,false
oPset.AddParameter3"D", siDouble, 0, 0, 5,true,false
oPset.AddParameter3"E", siDouble, 0, 0, 5,true,false
oPset.AddParameter3"F", siDouble, 0, 0, 5,true,false
oPset.AddParameter3 "MyCombo", siString, "Yellow"
'これからレイアウトしますよーみたいなの
set oPPGLayout = oPSet.PPGLayout
'page1というタブを作る。タブ２を作らないと出ないから注意
oPPGLayout.AddTab "page1"
'文字を入れる
oPPGLayout.AddStaticText "あいうえお", 50, 20
'Rowを使うと横に整列する。たぶん
oPPGLayout.AddRow
'ここからしたをグループとしてまとめる
oPPGLayout.AddGroup "", true
'AddItemでグループの中にパラメーターを格納する
oPPGLayout.AddItem "A"
'テキストパラメータをいれる。Ａパラメーターの値がでる
oPPGLayout.AddString "A", testes, True, 30
'カラーバーを表示。全部動かすと落ちる。
oPPGLayout.AddItem "C"
oPPGLayout.AddColor "C" , "Ambient", false
'Randomizeというボタンを作る
oPPGLayout.AddButton "Randomize"
'グループの終了
oPPGLayout.EndGroup
'Bのファンクションカーブを表示？２００は大きさ
oPPGLayout.AddFCurve "B", 200
'Rowの終了
oPPGLayout.EndRow
'タブ２の設定
oPPGLayout.AddTab "page2"
'コンボボックスを表示。MyComboに項目を足す。Arrayで加えるかんじ
aComboItems = Array( "Orange", "Orange","Yellow", "Yellow","Apple", "Apple" )
oPPGLayout.AddEnumControl "MyCombo", aComboItems, "Things", siControlFolder
oPPGLayout.AddEnumControl "MyCombo", aComboItems, "Things", siControlListBox
oPPGLayout.AddItem "B"
'パラメーターを開く
InspectObj oPSet