|
阅读：2123回复：6
[求助]在ARCMAP二次开发中如何调用TIN
<P>请教各位大虾，在ARCMAP二次开发中如何调用TIN文件啊！</P>
<P>可否给一些源代码</P> <P><img src="images/post/smile/dvbbs/em12.gif" /></P> |
|
|
|
1楼#
发布于：2004-07-14 23:17
例子里就有如何加载tin图层了
|
|
|
|
2楼#
发布于：2004-07-15 00:55
但是我一直没找到啊，是在ARCMAP那个模块里面吗？
|
|
|
|
3楼#
发布于：2004-07-15 01:16
<P>是在SAMPLE还是HELP里面啊</P><P>可以具体一点吗？</P>
|
|
|
|
4楼#
发布于：2004-07-15 08:37
在sample里有，在help里也有
|
|
|
|
5楼#
发布于：2004-07-15 08:37
你可以在help里搜索tin等字眼
|
|
|
|
6楼#
发布于：2009-03-22 08:15
<P>VB.net中：</P>
<P>Dim j As ESRI.ArcGIS.Carto.ITinLayer = New ESRI.ArcGIS.Carto.TinLayer()</P> <P>j = AxSceneControl1.Scene.Layer(i)</P> <P>i就是你的图层的序号！</P> <P>当然还可以通过自动查找找到这个TIN图层，如下面这个函数：</P> <P> Private Sub FindTINLayer(Optional ByRef TINLayerIndex As Integer = 0)<BR> On Error Resume Next<BR> Dim j As ESRI.ArcGIS.Carto.ITinLayer = New ESRI.ArcGIS.Carto.TinLayer()<BR> Dim i As Integer</P> <P> For i = 0 To AxSceneControl1.Scene.LayerCount - 1<BR> j = AxSceneControl1.Scene.Layer(i)<BR> If Err.Number Then<BR> Err.Clear()<BR> Else<BR> ComboBox3.Items.Add(AxSceneControl1.Scene.Layer(i).Name)<BR> ComboBox3.Text = AxSceneControl1.Scene.Layer(i).Name<BR> TINLayerIndex = i<BR> Exit Sub<BR> End If<BR> Next<BR> End Sub</P> |
|
