縦断ビューを作成する

縦断ビューは AeccProfileView 型のオブジェクトであり、グラフの中に縦断を表示したものです。 縦断ビューのコレクションは、AeccAlignment.ProfileViews プロパティに含まれています。

Dim dOriginPt(0 To 2) As Double
dOriginPt(0) = 6000 ' X location of profile view
dOriginPt(1) = 3500 ' Y location
dOriginPt(2) = 0 ' Z location
 
' Use the first profile view style in the document. 
Dim oProfileViewStyle As AeccProfileViewStyle
Set oProfileViewStyle = oDocument.ProfileViewStyles.Item(0)
 
Dim oProfileView as AeccProfileView
Set oProfileView = oAlignment.ProfileViews.Add( _
  "Profile Style 01", _
  "0", _
  dOriginPt, _
  oProfileViewStyle, _
  Nothing)  ' "Nothing" means do not include data bands.