|
阅读：4000回复：11
图层分组的问题。帮忙近来看看。怎样把图层layer1和图层layer2合并成一个组layer.用代码怎么实现？？
给个例子或是提示，，谢谢啦。。请教斑竹！！   |
|
|
1楼#
发布于：2008-11-14 09:13
正在看在globe里新建一个图层组，可以借鉴下 |
|
|
2楼#
发布于：2008-03-18 15:08
看看，学习中 |
|
|
3楼#
发布于：2004-08-17 22:20
GroupLayersOperation是arcgis9的接口了，在8.3中难道真的不能实现吗？
[此贴子已经被作者于2004-8-17 22:35:40编辑过] |
|
|
4楼#
发布于：2004-08-17 14:47
谢谢各位高手！！！！ |
|
|
5楼#
发布于：2004-08-17 13:09
Private Sub CommandButton1_Click() On Error GoTo EH Dim pApp As IMxApplication Dim pMap As IMap Dim pMxDocument As IMxDocument Set pApp = Application Set pMxDocument = ThisDocument Set pMap = pMxDocument.FocusMap Dim pGupOp As IGroupLayersOperation Set pGupOp = New GroupLayersOperation pGupOp.SourceMap = pMap Dim plyr1 As ILayer Set plyr1 = pMap.Layer(pMap.LayerCount - 1) Dim plyr2 As ILayer Set plyr2 = pMap.Layer(pMap.LayerCount - 2) pGupOp.AddLayer plyr1 pGupOp.AddLayer plyr2 Dim pop As IOperation Set pop = pGupOp pop.Do pMxDocument.UpdateContents Exit Sub EH: MsgBox Err.Description End Sub 其它的自已去考虑如何解决吧。 GroupLayersOperation (esriArcMapUI) UngroupLayerOperation (esriArcMapUI) ...别人不可能帮你做好每件事情。
|
|
|
|
6楼#
发布于：2004-08-17 09:52
问题市如何解决这样的问题啊。楼上高手请指点一二。 感谢中。。。。。 |
|
|
7楼#
发布于：2004-08-17 09:12
只是简单地举例igrouplayer 的用法。哈。。 pGLayer.Add pMap.Layer(pMap.LayerCount - 1)
pGLayer.Add pMap.Layer(pMap.LayerCount - 2)
测试用法当然是越简单越好，越快越好。但肯定会有一些问题。
[此贴子已经被作者于2004-8-17 9:14:29编辑过] |
|
|
|
8楼#
发布于：2004-08-16 18:37
楼上的代码会出现这样的问题： 当你删除原图层时，加入GROUP LAYER 的图层也没有了。而且如果你删除了GROUP LAYER的图层时，原图层也找不到了。 |
|
|
9楼#
发布于：2004-08-16 15:38
上面的代码容易弄混。看下这个吧。在VBA里做了简单测试，运得时最好加入三个以上测试图层。 Private Sub CommandButton1_Click() On Error GoTo EH Dim pApp As IMxApplication Dim pMap As IMap Dim pMxDocument As IMxDocument Set pApp = Application Set pMxDocument = ThisDocument Set pMap = pMxDocument.FocusMap Dim pGLayer As IGroupLayer Set pGLayer = New GroupLayer pGLayer.Name = "Just For Test" pMap.AddLayer pGLayer pGLayer.Add pMap.Layer(pMap.LayerCount - 1) pGLayer.Add pMap.Layer(pMap.LayerCount - 2) pMxDocument.UpdateContents MsgBox "ok" Exit Sub EH: MsgBox Err.Description End Sub |
|
|