从TIN获取任意坐标点高程(原创)

   项目中碰到要处理TIN数据地面高程问题，于是开发了个小工具，主要用AE的ITinLayer接口，实现获取任意坐标点的高程值，进一步扩展实用功能，如下：
   鼠标点击获取高程值，根据TIN数据批量处理原始数据模板中的高程值，批量更新SDE 中管线数据地面高程，达到快速更新现状数据目的，客户反映满意。
   主要实现如下：

 1 Private   Sub Button1_Click() Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 2        If Me.FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
 3            If Me.FolderBrowserDialog1.SelectedPath <> "" Then
 4                Try
 5                    Dim Path As String = Me.FolderBrowserDialog1.SelectedPath
 6                    Dim FatherFolder, Folder As String
 7                    Dim pTinWorkspaceFactory As IWorkspaceFactory
 8                    Dim pTinWorkspace As ITinWorkspace
 9
10                    pTinWorkspaceFactory = New TinWorkspaceFactoryClass
11                    FatherFolder = Path.Substring(0, Path.LastIndexOf("\"c) + 1)
12