YouTube | Facebook | Twitter  Feed

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

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

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

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

© 2020 WINGFIELD since1981