YouTube | Facebook | X(Twitter) | RSS

ビューの設定ダイアログの設定

2016/9/1 (木)

Public Sub SetProperties()
 
    Dim pSxDocument As ISxDocument
    Set pSxDocument = ThisDocument
     
    Dim pScene As IScene
    Set pScene = pSxDocument.Scene
     
    Dim pSceneGraph As ISceneGraph
    Set pSceneGraph = pScene.SceneGraph
     
    Dim p3DViewer As I3DViewer
    Set p3DViewer = pSceneGraph.ActiveViewer
     
    Dim pCamera As ICamera3
    Set pCamera = p3DViewer.Camera
     
    '位置
    '目標点
    Dim pObserverPoint As IPoint
    Set pObserverPoint = pCamera.Observer
     
    Debug.Print pObserverPoint.X, pObserverPoint.Y, pObserverPoint.Z
     
    pObserverPoint.X = 140
    pObserverPoint.Y = 40
    pObserverPoint.Z = 2
     
    pCamera.Observer = pObserverPoint
     
    '観測点
    Dim pTargetPoint As IPoint
    Set pTargetPoint = pCamera.Target
     
    Debug.Print pTargetPoint.X, pTargetPoint.Y, pTargetPoint.Z
     
    '目標点までの距離
    Debug.Print pCamera.ViewingDistance
     
    '表示特性
    pCamera.DisplayType = esriNonstereoDisplay
    pCamera.ProjectionType = esriPerspectiveProjection  '三次元表示
    'pCamera.ProjectionType = esriOrthoProjection        '二次元表示
    'pCamera.DisplayType = esriStereoDisplay             'ステレオ表示
     
    'ロール角
    pCamera.RollAngle = 0
     
     
    'ピッチ
    pCamera.Inclination = 0
     
    '視野角
    pCamera.ViewFieldAngle = 55
     
    'リフレッシュ
    pSceneGraph.ActiveViewer.Redraw True
 
End Sub
  • この記事を書いた人

羽田 康祐

伊達と酔狂のGISエンジニア。GIS上級技術者、Esri認定インストラクター、CompTIA CTT+ Classroom Trainer、潜水士、PADIダイブマスター、四アマ。WordPress は 2.1 からのユーザーで歴だけは長い。 代表著書『"地図リテラシー入門―地図の正しい読み方・描き方がわかる』 GIS を使った自己紹介はこちら。ESRIジャパン(株)所属、元青山学院大学非常勤講師を兼務。日本地図学会第31期常任委員。発言は個人の見解です。

-プログラミング, ArcGIS
-,