modsceneviewer.bas

三维低龄浏览的-0

Attribute VB_Name = "modStereoViewer"

' Copyright 1995-2004 ESRI

' All rights reserved under the copyright laws of the United States.

' You may freely redistribute and use this sample code, with or without modification.

' Disclaimer: THE SAMPLE CODE IS PROVIDED "AS IS" AND ANY EXPRESS OR IMPLIED 
' WARRANTIES, INCLUDING THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS 
' FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL ESRI OR 
' CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, 
' OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
' SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
' INTERRUPTION) SUSTAINED BY YOU OR A THIRD PARTY, HOWEVER CAUSED AND ON ANY 
' THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT ARISING IN ANY 
' WAY OUT OF THE USE OF THIS SAMPLE CODE, EVEN IF ADVISED OF THE POSSIBILITY OF 
' SUCH DAMAGE.

' For additional information contact: Environmental Systems Research Institute, Inc.

' Attn: Contracts Dept.

' 380 New York Street

' Redlands, California, U.S.A. 92373 

' Email: [e-mail]


Option Explicit

Public pApp As IApplication
Public pSxDoc As ISxDocument
Public pScene As IScene
Public pSG As ISceneGraph
Public pCamera As ICamera
Public pViewer As ISceneViewer
Public pCamera2 As ICamera2
Public pStereoCamera As IStereoCamera

    
Private Sub SetVariables()
  
  Set pSxDoc = pApp.Document
  Set pScene = pSxDoc.Scene
  Set pSG = pScene.SceneGraph
  Set pViewer = pSG.ActiveViewer
  Set pCamera = pViewer.Camera
  Set pCamera2 = pCamera
  Set pStereoCamera = pCamera2
End Sub

Public Sub Toggle_NonStereo()
  
  SetVariables
  
  pCamera2.DisplayType = esriNonstereoDisplay
  
  pSG.RefreshViewers
  
End Sub

Public Sub Toggle_Stereo_RB()
   
  SetVariables
  pCamera2.DisplayType = esriStereoDisplay
  pStereoCamera.StereoViewType = esriRedBlueStereoView
  
  pStereoCamera.EyeSeparation = frmStereoParameters.txtEyeSeparation.Text
  pStereoCamera.Parallax = frmStereoParameters.txtParallax.Text
  pSG.RefreshViewers
  
End Sub

Public Sub Toggle_Stereo_Free()
  
  SetVariables
  
  pCamera2.DisplayType = esriStereoDisplay
  pStereoCamera.StereoViewType = esriFreeStereoView
  
  pStereoCamera.EyeSeparation = frmStereoParameters.txtEyeSeparation.Text
  pStereoCamera.Parallax = frmStereoParameters.txtParallax.Text
  pSG.RefreshViewers
  
End Sub

Public Sub Toggle_Stereo_Shutter()
  
  SetVariables
  
  pCamera2.DisplayType = esriStereoDisplay
  pStereoCamera.StereoViewType = esriQuadBufferedStereoView
  
  pStereoCamera.EyeSeparation = frmStereoParameters.txtEyeSeparation.Text
  pStereoCamera.Parallax = frmStereoParameters.txtParallax.Text
  pSG.RefreshViewers
  
End Sub

Public Sub Toggle_LeftRight()
  SetVariables
  pCamera2.DisplayType = esriStereoDisplay
  If pStereoCamera.EyeType = esriRightEye Then
    pStereoCamera.LRviewFirst = esriRightEye
  ElseIf pStereoCamera.EyeType = esriLeftEye Then
    pStereoCamera.LRviewFirst = esriLeftEye
  End If
  pSG.RefreshViewers
End Sub