AE创建TIN

Private Sub CreateTinFromFeature()

Dim pGeoDataset As IGeoDataset
pGeoDataset = pFeatureClass

Dim pExtent As IEnvelope
pExtent = pGeoDataset.Extent()
'TIN将使用通过pExtent设置的空间引用
pExtent.SpatialReference = pGeoDataset.SpatialReference

'获得高程字段
Dim pfields As IFields
pfields = pFeatureClass.Fields
Dim pHeightField As IField
pHeightField = pfields.Field(m_selHIndex)

'创建TIN对象并且得到ITinEdit接口
Dim pTinEdit As ITinEdit = New Tin
'初始化TIN
pTinEdit.InitNew(pExtent)

'调用相应的函数将shape文件（含高程信息）增加到TIN中
If m_selTIndex = 0 Then
pTinEdit.AddFromFeatureClass(pFeatureClass, Nothing, pHeightField, Nothing, esriTinSurfaceType.esriTinMassPoint)
ElseIf m_selTIndex = 1 Then
pTinEdit.AddFromFeatureClass(pFeatureClass, Nothing, pHeightField, Nothing, esriTinSurfaceType.esriTinHardLine)
ElseIf m_selTIndex = 2 Then
pTinEdit.AddFromFeatureClass(pFeatureClass, Nothing, pHeightField, Nothing, esriTinSurfaceType.esriTinSoftLine)
Else
MessageBox.Show("创建TIN失败！")
Me.Close()
End If

'保存TIN
pTinEdit.SaveAs(SaveFileDialog1.FileName)
pTinEdit.StopEditing(False)

Me.Close()

End Sub
来自:http://bbs.esrichina-bj.cn/ESRI/viewthread.php?tid=35372&extra=page%3D1%26amp%3Bfilter%3Dtype%26amp%3Btypeid%3D6