|
阅读：2407回复：2
怎样实现用程序来加载TIN文件作为地形高程数据
怎样实现用程序来加载TIN文件作为地形高程数据
|
|
|
1楼#
发布于：2006-02-10 17:31
Private Function GetTinSurface(ByVal sDir As String, ByVal sName As String) As ISurface<BR> Dim pWSFact As IWorkspaceFactory<BR> Dim pTinWS As ITinWorkspace<BR> Dim pSurface As ISurface<BR> <BR> Set pWSFact = New TinWorkspaceFactory<BR> If (pWSFact.IsWorkspace(sDir)) Then<BR> Set pTinWS = pWSFact.OpenFromFile(sDir, 0)<BR> If (pTinWS.IsTin(sName)) Then<BR> Set pSurface = pTinWS.OpenTin(sName)<BR> End If<BR> End If<BR> Set GetTinSurface = pSurface<BR>End Function
|
|
|
2楼#
发布于：2006-02-10 21:23
<P>楼上所说的这种方法没有错，但是由一个问题不知道大家又没有遇到过，就是如何实现象arcgis哪样的打开tin的方式，就我所知，ae中是没有这种功能的，而ao 中可以实现，那位还有高见呢？</P>
<P>谢谢！</P> |
|