xsiは画面切り替えとかいちいちボタンもって行くのが面倒だからmaxっぽい感じで
シェーディング⇔ワイヤフレームのショートカットを使ってた
が、テクスチャデカールを仕事上よく使うから
ワイヤフレーム→シェーディング→テクスチャデカール・・・
っていうのを作った
かなり手探りだったけど一応形にはなったかな、もっと軽い処理がありそうなんだけど分からぬ・・・
VB
---------------------------------
'ビューモード切り替え
'ワイヤフレーム→シェーディング→テクスチャデカールと切り替わる
'上記以外の場合はワイヤフレームになる。
'現在のカメラを取得
oView = GetViewCamera (-1)
'現在のカメラのディスプレイモードを取得
oDM = GetValue (oView & ".camdisp.statunselnear")
If (oDM = 0) Then
SetValue oView & ".camdisp.statsel", 1
SetValue oView & ".camdisp.statunselnear", 1
SetValue oView & ".camdisp.intsel", 1
SetValue oView & ".camdisp.intunselnear", 1
SetValue oView & ".camdisp.playbacksel", 1
SetValue oView & ".camdisp.playbackunselnear", 1
Else
If (oDM = 1) Then
SetValue oView & ".camdisp.statsel", 9
SetValue oView & ".camdisp.statunselnear", 9
SetValue oView & ".camdisp.intsel", 9
SetValue oView & ".camdisp.intunselnear", 9
SetValue oView & ".camdisp.playbacksel", 9
SetValue oView & ".camdisp.playbackunselnear", 9
Else
SetValue oView & ".camdisp.statsel", 0
SetValue oView & ".camdisp.statunselnear", 0
SetValue oView & ".camdisp.intsel", 0
SetValue oView & ".camdisp.intunselnear", 0
SetValue oView & ".camdisp.playbacksel", 0
SetValue oView & ".camdisp.playbackunselnear", 0
End If
End If
この記事にトラックバックする