'_______________________________________________________________________________________
'
'NAME: PickElmentLoop
'
'
'DESCRIPTION: PickElement usage Example
'Avid Japan 2000
'______________________________________________________________________________________
’変数宣言を強制
Option Explicit
'-------------------------------------------------
'エントリ
PickElmentLoop
sub PickElmentLoop()
'ピックされたオブジェクト、左ボタンで選択されたオブジェクト、中ボタンで選択されたオブジェクト、ボタンの値
Dim pkdObj, selObj1, selObj2, selBtn
'ループさせて間違えてピックした場合や、ピックしたオブジェクトを変更するのに対応する
do
'XSIコマンドのPickElementを利用してさまざまな種類のものをピック可能
PickElement "object","Pick a Object", "", pkdObj, selBtn
'押されたボタンにより処理を分ける
if selBtn = 1 then
'マウス左ボタンでピックされた場合
set selObj1 = pkdObj
LogMessage selObj1 & " is piked by Left Mouse Button"
elseif selBtn = 2 then
'マウス中ボタンでピックされた場合
set selObj2 = pkdObj
LogMessage selObj2 & " is piked by Middle Mouse Button"
elseif selBtn = 0 then
'マウス右ボタンでピックされた場合
LogMessage "Canceled"
exit do
else
LogMessage "ERROR"
exit do
end if
loop
end sub