图层分组的问题。帮忙近来看看。

怎样把图层layer1和图层layer2合并成一个组layer.用代码怎么实现？？
给个例子或是提示，，谢谢啦。。请教斑竹！！<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

正在看在globe里新建一个图层组，可以借鉴下<img src="images/post/smile/dvbbs/em01.gif" />

看看，学习中<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

<U><FONT color=#800080>GroupLayersOperation是arcgis9的接口了，在8.3中难道真的不能实现吗？</FONT></U>

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />谢谢各位高手！！！！

<P>Private Sub CommandButton1_Click()
  On Error GoTo EH
  Dim pApp As IMxApplication
  Dim pMap As IMap</P><P>  Dim pMxDocument As IMxDocument
  
  Set pApp = Application
  Set pMxDocument = ThisDocument
  Set pMap = pMxDocument.FocusMap
  
  
Dim pGupOp As IGroupLayersOperation
Set pGupOp = New GroupLayersOperation</P><P>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)</P><P>pGupOp.AddLayer plyr1
pGupOp.AddLayer plyr2</P><P>Dim pop As IOperation
Set pop = pGupOp
pop.Do</P><P>pMxDocument.UpdateContents
  
 
  Exit Sub
EH:
  MsgBox Err.Description
End Sub</P><P>其它的自已去考虑如何解决吧。</P><P><U><FONT color=#800080>GroupLayersOperation (esriArcMapUI)</FONT></U></P><P><U><FONT color=#800080><a href="http://arcgisdeveloperonline.esri.com/ArcGISDeveloper/ComponentHelp/esriArcMapUI/UngroupLayerOperation.htm" target="_blank" >UngroupLayerOperation (esriArcMapUI)</A></FONT></U></P><P><U><FONT color=#800080>...别人不可能帮你做好每件事情。</FONT></U></P><P><U><FONT color=#800080></FONT></U> </P>

<P>问题市如何解决这样的问题啊。楼上高手请指点一二。</P><P>感谢中。。。。。</P>

<P>只是简单地举例igrouplayer 的用法。哈。。</P>

<DIV class=quote>pGLayer.Add pMap.Layer(pMap.LayerCount - 1)
  pGLayer.Add pMap.Layer(pMap.LayerCount - 2)
</DIV>测试用法当然是越简单越好，越快越好。但肯定会有一些问题。

<P>楼上的代码会出现这样的问题：</P><P>当你删除原图层时，加入GROUP LAYER 的图层也没有了。而且如果你删除了GROUP LAYER的图层时，原图层也找不到了。</P>

<P>上面的代码容易弄混。看下这个吧。在VBA里做了简单测试，运得时最好加入三个以上测试图层。</P><P>Private Sub CommandButton1_Click()
  On Error GoTo EH
  Dim pApp As IMxApplication
  Dim pMap As IMap</P><P>  Dim pMxDocument As IMxDocument
  
  Set pApp = Application
  Set pMxDocument = ThisDocument
  Set pMap = pMxDocument.FocusMap
  </P><P> 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</P>