??如何通过对话框加入cov文件中的arc,tic和polygon???

<P>我想通过一个对话框commdialog,将cov文件中的arc,tic和polygon加入到mapcontrol中 ,   不知道 哪位 高手 可以 指点一二??</P>
<P> 很急</P> 先<img src="images/post/smile/dvbbs/em12.gif" />拉!!!!!!!!!!!!

<P>我想通过对话框加入,但是总是过滤不出来arc ,tic等等 </P>
<P>不知道什么原因?</P>
<P>指点一下......</P>

<P>这个可以实现你的功能</P>
<P>Dim pWorkspaceFactory as IWorkspaceFactory <BR>Dim pFeatureWorkspace as IFeatureWorkspace <BR>Dim pFeatureClass as IFeatureClass <BR>Dim pFeatureLayer as IFeatureLayer <BR><BR>Set pWorkspaceFactory = new ArcInfoWorkspaceFactory <BR>Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("C:\Temp\MyCoverages", 0) <BR>Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("TestCoverage:Polygon") <BR><BR>Set pFeatureLayer = new FeatureLayer <BR>Set pFeatureLayer.FeatureClass = pFeatureClass <BR>pFeatureLayer.Name = "My New Layer" <BR><BR>MapControl1.AddLayer pFeatureLayer </P>

<P>下面的程序是添加coverage的注记</P><PRE>Option Explicit
Sub Test()
    Dim pLayer As ILayer
    Set pLayer = GetAnnoLayer("D:\ambergis\citynames", _
                              "MyCoverage:annotation")
    If Not pLayer Is Nothing Then
        Dim pMxDoc As IMxDocument
        Set pMxDoc = ThisDocument
        pMxDoc.FocusMap.AddLayer pLayer
    End If
End Sub

Function GetAnnoLayer(sWSPath As String, sCovFC As String) As IFeatureLayer
    Dim pWSF As IWorkspaceFactory
    Set pWSF = New ArcInfoWorkspaceFactory
    
    Dim pFWS As IFeatureWorkspace
    Set pFWS = pWSF.OpenFromFile(sWSPath, 0)
    
    Dim pFC As IFeatureClass '     "coverage:featureclass"
    Set pFC = pFWS.OpenFeatureClass(sCovFC)
    
    Dim pFLayer As IFeatureLayer
    Set pFLayer = New CoverageAnnotationLayer
    
    Set pFLayer.FeatureClass = pFC
    pFLayer.Name = pFC.AliasName
    Set GetAnnoLayer = pFLayer
End Function
</PRE>