TIN サーフェスを作成する

.TIN ファイルからサーフェスを作成する

AeccSurfaces.ImportTIN メソッドは、バイナリ .tin ファイルから新しい TIN サーフェスを作成できます。

Dim oTinSurface As AeccTinSurface
Dim sFileName As String
sFileName = "C:\My Documents\EG.tin"
oTinSurface = oAeccDocument.Surfaces.ImportTIN(sFileName)

AddTinSurface を使用してサーフェスを作成する

AeccSurfaces.AddTinSurface メソッドでドキュメントのサーフェス コレクションに追加することによって、空の TIN サーフェスを作成することもできます。 このメソッドには、AeccTinCreationData 型のオブジェクトの準備が必要です。エラーを回避するため、AeccTinCreationData オブジェクトのすべてのプロパティを指定することが重要です。

' Create a blank surface using the first layer in the
' document's collection of layers and the first
' surface style in the document's collection of
' surface styles.
Dim oTinSurface As AeccTinSurface
Dim oTinData As New AeccTinCreationData
 
oTinData.Name = "EG"
oTinData.Description = "Sample TIN Surface"
oTinData.Layer = oAeccDocument.Layers.Item(0).Name
oTinData.BaseLayer = oAeccDocument.Layers.Item(0).Name
oTinData.Style = oAeccDocument.SurfaceStyles.Item(0).Name
Set oTinSurface = oAeccDocument.Surfaces
  .AddTinSurface(oTinData)