请问:application的问题(AE)

<P>Dim pDoc As IMxDocument<BR>Set pDoc = ThisDocument</P>
<P>运行的时候说"变量未定义"</P>
<P>问题在　ThisDocument　上</P>
<P>不知道怎么办了啊</P>
<P>　</P>

<P>AE中没有你说的接口，那是arcmap里的定义</P>
<P>你可以看看开发帮助里的相关说明，你还是用imap和iactiveview来实现了</P>

<P>多谢楼上的兄弟</P>
<P>我现在是这样: Dim pMap As IMap<BR>             Set pMap = MapControl1.ActiveView.FocusMap</P>
<P>但下面还是有错 头痛啊</P>

<P>你可以:</P>
<P>              Dim pMap As IMap</P>
<P>             dim pAview as iactiveview<BR>             Set pMap = MapControl1.map</P>
<P>             paview=pmap</P>
<P>你看看效果吧,呵呵,这两个接口可以进行很多操作</P>

<P> Dim pMap As IMap<BR>  Dim pAview As IActiveView<BR>  Set pMap = MapControl1.Map<BR>  pAview = pMap</P>
<P>  Dim pGeoLayer As IGeoFeatureLayer<BR>  Set pGeoLayer = pMap.Layer(0)<BR>  <BR>  If Not TypeOf pGeoLayer.Renderer Is IUniqueValueRenderer Then<BR>    MsgBox "Current symbology is not Unique values. Exiting."<BR>    Exit Sub<BR>  End If</P>
<P>执行到 IF 块这里跳出来了啊 执行不下去了 呵呵</P>
<P>MsgBox "Current symbology is not Unique values. Exiting."</P>