set oVM = Application.Desktop.ActiveLayout.Views.Find("View Manager")
set oView = oVM.Views(GetFocusedViewport)
cam = oVM.GetAttributeValue("activecamera:"& oView)
LogMessage oView & ", " & oView.Type & ", " & cam
if oView.Type = "Viewer" Then
if cam = "User" or cam = "Top" or cam = "Front" or cam = "Right" then
gVal = GetValue ("Views.View"& oView &"."& cam &"Camera.camdisp.xrayshaded")
if gVal = "False" Then
SetValue "Views.View"& oView &"."& cam &"Camera.camdisp.xrayshaded", True
SetValue "Views.View"& oView &"."& cam &"Camera.camdisp.xraytype", 1
else
SetValue "Views.View"& oView &"."& cam &"Camera.camdisp.xrayshaded", False
SetValue "Views.View"& oView &"."& cam &"Camera.camdisp.xraytype", 0
end if
else
gVal = GetValue (cam &".camdisp.xrayshaded")
if gVal = "False" Then
SetValue cam &".camdisp.xrayshaded", True
SetValue cam &".camdisp.xraytype", 1
else
SetValue cam &".camdisp.xrayshaded", False
SetValue cam &".camdisp.xraytype", 0
end if
end if
end if

       
Counter: 9325, today: 2, yesterday: 1
最終更新: 2009-10-05 (月) 22:23:15 (JST) (3694d) by ゲスト
GoogleWiki
WikiMenu

ホーム ニュース フォーラム UserBlog 道場Wiki
Powered by XOOPS Cube Legacy 2.1.7 2001-2009 XOOPS Cube Project
cvELD.net project [ Softimage & XSI道場 ] since 2004 1/1