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

LandXML ファイルとして保存されたサーフェスは、AeccSurfaces.ImportXML メソッドを使用してロードできます。 このファイルには作成されるサーフェスの種類も記述されているので、前もって知っておく必要はありません。サーフェスがロードされたら、AeccSurface.Type プロパティをチェックして、汎用サーフェス参照をより厳密なタイプに割り当てます。

Dim oSurface As AeccSurface
Dim sFileName As String
sFileName = "C:\My Documents\EG.xml"
Set oSurface = oAeccDocument.Surfaces.ImportXML(sFileName)
 
Dim oTinSurface as AeccTinSurface
If (oSurface.Type = aecckTinSurface) Then
    Set oTinSurface = oSurface
End If