Sponsor
ページ内コンテンツ
GetViewportUnderMouse
を使った機能の切り替え 
このスクリプトは5.0fndで確認しています。
GetViewportUnderMouseは今カーソルがビューの何処（A,B,C,D)にあるか知るものですが
それを利用して一つのスクリプトでカーソルの位置によって機能が切り替えるスクリプトです
このスクリプトをキーに割り当てると、キーが押された時のカーソル位置によって機能が変わります
その１ カーソルの位置によってディスプレイモードを切り替える
Select Case GetViewportUnderMouse Case "A" selmode = 0 unselmode = 0 Case "B" selmode = 1 unselmode = 1 Case "C" selmode = 0 unselmode = 9 Case "D" selmode = 9 unselmode = 9 Case Else selmode = 9 unselmode = 9 End Select SetValue "*.*.*.camdisp.statsel", selmode SetValue "*.*.*.camdisp.statunselnear", unselmode SetValue "*.*.*.camdisp.intsel",selmode SetValue "*.*.*.camdisp.intunselnear", unselmode SetValue "*.*.*.camdisp.playbacksel",selmode SetValue "*.*.*.camdisp.playbackunselnear", unselmode
カーソルがAにある時にはワイヤーフレーム表示
Bの時はシェード、Cの時は選択がワイヤー非選択がテクスチャー、Dの時はテクスチャーになります。
その２ カーソルの位置によって選択モードを切り替える
Select Case GetViewportUnderMouse Case "A" ActivateVertexSelTool Case "B" ActivateEdgeSelTool Case "C" ActivatePolygonSelTool Case "D" ActivateObjectSelTool Case Else ActivateObjectSelTool End Select
カーソルがAにある時にはポイント選択モード
Bの時はエッジ選択、Cの時はポリゴン選択、Dの時はオブジェクト選択モード。
その３ カーソルの位置によって実行するスクリプトをかえる
Select Case GetViewportUnderMouse Case "A" ExecuteScript "script1.vbs" Case "B" ExecuteScript "script2.vbs" Case "C" ExecuteScript "script3.vbs" Case "D" ExecuteScript "script4.vbs" Case Else ExecuteScript "script4.vbs" End Select
最後に
他にも色々作れそうです。あれこれキーマッピングをしているとキーが足りなくなると思いますが、
カーソルの位置に寄らない機能をひとまとめにすると良いかも知れません。
Counter: 2832,
today: 5,
yesterday: 0
最終更新: 2009-12-31 (木) 10:45:36 (JST) (874d) by Land-Y