[讨论](老大再麻烦你一下)AE编写专题地图的浏览

<STRONG>主要的专题地图是一些shape文件，由于小弟没有做过，查了一些资料，是不是通过定制tool和toolbar这个思路来实现呢？还有，在VB中引用tool是通过调用dll文件来实现，是不是需要把调用shape的类模块编译成dll文件，怎么编译，还请指教！！！</STRONG><img src="images/post/smile/dvbbs/em12.gif" />

还是用ToolbarMenu来实现呢？

<P>下面有个例子</P>
<P><a href="http://gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=29338;replyID=;skin=1" target="_blank" >http://gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=29338;replyID=;skin=1</A></P>
<P>开发方法很多种了，可以参考下esri相关的介绍，帮助里就有了：）</P>

<STRONG>我要的是那种一级菜单和二级菜单，然后实现专题地图的调用，我知道这个问题比较菜，还是请教大家了</STRONG><img src="images/post/smile/dvbbs/em02.gif" />

<P>调用arcmap的对话框？</P>

<STRONG>不是对话框那种，就是点击菜单，相应的shape或者tif或者卫星影象文件就直接在mapcontrol中显示出来了，不好意思，小弟是半路出家，还请指教，最好能依葫芦画瓢就最好了。还有，我用AE+VB，AE的toolbarcontrol支不支持VB中的菜单编辑器呢？谢谢各位了！！！</STRONG>

<P>toolbarcontrol不支持vb的菜单编辑器，在AE中要打开shape和tif要分别编写函数来打开，下面是添加shape file的arcmap vba的程序，修改下imap等定义就可以转到ae中使用</P>
<P>        <DEVELOPENV>Public Sub AddShapeFile()<BR>  Dim pWorkspaceFactory As IWorkspaceFactory<BR>  Dim pFeatureWorkspace As IFeatureWorkspace<BR>  Dim pFeatureLayer As IFeatureLayer<BR>  Dim pMxDocument As IMxDocument<BR>  Dim pMap As IMap<BR>  <BR>  'Create a new ShapefileWorkspaceFactory object and open a shapefile folder<BR>  Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>  Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("C:\Program Files\ArcGIS\DeveloperKit\Samples\Data\World", 0)<BR>  'Create a new FeatureLayer and assign a shapefile to it<BR>  Set pFeatureLayer = New FeatureLayer<BR>  Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country")<BR>  pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR>  'Add the FeatureLayer to the focus map<BR>  Set pMxDocument = Application.Document<BR>  Set pMap = pMxDocument.FocusMap<BR>  pMap.AddLayer pFeatureLayer<BR>End Sub</DEVELOPENV><BR></P>

谢谢老大，我已经拷到一个类模块中了，他是提示用户类型未定义，象你说的，怎么修改它的定义呢？谢谢，不好意思哈，问这么菜的问题，小弟实在不知道啊

顶一下！

<P>       <DEVELOPENV>Public Sub AddShapeFile()<BR>  Dim pWorkspaceFactory As IWorkspaceFactory<BR>  Dim pFeatureWorkspace As IFeatureWorkspace<BR>  Dim pFeatureLayer As IFeatureLayer<BR>  Dim pMap As IMap<BR>  <BR>  'Create a new ShapefileWorkspaceFactory object and open a shapefile folder<BR>  Set pWorkspaceFactory = New ShapefileWorkspaceFactory<BR>  Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("C:\Program Files\ArcGIS\DeveloperKit\Samples\Data\World", 0)<BR>  'Create a new FeatureLayer and assign a shapefile to it<BR>  Set pFeatureLayer = New FeatureLayer<BR>  Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass("Country")<BR>  pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName<BR>  'Add the FeatureLayer to the focus map<BR>  Set pMap = <FONT color=#f73809>mapcontrol</FONT>.map  '<FONT color=#421ae6>这里mapcontrol改成你的控件名字就可以了</FONT></P>
<P>  pMap.AddLayer pFeatureLayer<BR>End Sub</DEVELOPENV><BR></P>