土量サーフェスは、ドキュメント内の 2 つの TIN サーフェス間、または 2 つのグリッド サーフェス間の数学的な差を表します。土量サーフェスは、AeccSurfaces.AddTinVolumeSurface メソッドまたは AeccSurfaces.AddGridVolumeSurface メソッドを使用して作成します。 これらのメソッドではそれぞれ、新しい土量サーフェスを記述したオブジェクト(AeccGridVolumeCreationData または AeccTinVolumeCreationData)の作成が必要です。 エラーを回避するため、これらのオブジェクトのすべてのプロパティを指定することが重要です。XSpacing、YSpacing、および Orientation の単位は、環境設定で指定します。
次の例は、既存の 2 つのサーフェス、oTinSurfaceL と oTinSurfaceH から TIN 土量サーフェスを作成する方法を示しています:
' Get the names of the layer and style to be used. Dim sLayerName as String sLayerName = g_oAeccDocument.Layers.Item(0).Name Dim sStyleName as String sStyleName = oAeccDocument.SurfaceStyles.Item(0).Name ' Create a AeccTinVolumeCreationData object and set all its ' properties. Dim oTinVolumeCreationData As New AeccTinVolumeCreationData oTinVolumeCreationData.Name = "VS" oTinVolumeCreationData.BaseLayer = sLayerName oTinVolumeCreationData.Layer = sLayerName Set oTinVolumeCreationData.BaseSurface = oTinSurfaceL Set oTinVolumeCreationData.ComparisonSurface = oTinSurfaceH oTinVolumeCreationData.Style = oTinVolumeCreationData.Description = "Volume Surface" ' Create a new TIN volume surface. Dim oTinVolumeSurface As AeccTinVolumeSurface Set oTinVolumeSurface = oAeccDocument.Surfaces _ .AddTinVolumeSurface(oTinVolumeCreationData)