サーフェス コレクションを使用する

図面内のすべてのサーフェスは、AeccDocument.Surfaces コレクションに格納されます。 コレクション内の各サーフェスにアクセスするには、AeccSurfaces.Item メソッドを使用します。このメソッドは、整数インデックスまたはサーフェスの文字列名を取ります。 AeccSurfaces.Item メソッドは、AeccSurface 型の汎用参照を返します。このため、AeccSurface.Type プロパティをチェックして、サーフェスの種類を実際に調べる必要があります。

次の例では、図面内の各サーフェスをチェックして、その種類をレポートします。

Dim oSurface As AeccSurface
Dim i As Integer
 
For i = 0 To oAeccDocument.Surfaces.Count - 1
    Set oSurface = oAeccDocument.Surfaces.Item(i)
    Select Case (oSurface.Type)
        Case aecckGridSurface:
            Dim oGridSurface As AeccGridSurface
            Set oGridSurface = oSurface
            Debug.Print oGridSurface.Name & ": Grid"
        Case aecckTinSurface:
            Dim oTinSurface As AeccTinSurface
            Set oTinSurface = oSurface
            Debug.Print oTinSurface.Name & ": TIN"
        Case aecckGridVolumeSurface:
            Dim oGridVolume As AeccGridVolumeSurface
            Set oGridVolume = oSurface
            Debug.Print oGridVolume.Name & ": Grid Volume"
        Case aecckTinVolumeSurface:
            Dim oTinVolume As AeccTinVolumeSurface
            Set oTinVolume = oSurface
            Debug.Print oTinVolume.Name & ": TIN Valume"
    End Select
Next i