班主求救，代码纠错

<P>想加入cad文件，敲入下面的代码，但是却提示错误，CADWORKSPACEFACTORY 不存在，我已经添加了引用，后来把cadworkspacefactory改为workspacefactory,还是不行，是不是要设置写什么参数?</P>
<P>Dim pCadWorkspacefactory As IWorkspaceFactory<BR>        pCadWorkspacefactory = New CadWorkspaceFactory</P>
<P>        Dim pWorkspace As IFeatureWorkspacepWorkspace = pCadWorkspacefactory.OpenFromFile("C:\ArcGIS\ArcTutor\Editor\ExerciseData ", 0)</P>
<P>        '打开一个要素数据集<BR>        Dim pFeatDataset As IFeatureDataset<BR>        pFeatDataset = pWorkspace.OpenFeatureDataset("PARCELS.DWG")<BR>        Dim pFeatClassContainer As IFeatureClassContainer<BR>        pFeatClassContainer = pFeatDataset 'pFeatClassContainer可以管理pFeatDataset中的每个要素集</P>
<P>        Dim pFeatClass As IFeatureClass<BR>        Dim pFeatLayer As IFeatureLayer<BR>        Dim i As Integer<BR>        '对其中的要素集进行逐个处理<BR>        For i = 0 To pFeatClassContainer.ClassCount - 1<BR>            pFeatClass = pFeatClassContainer.Class(i)<BR>            If pFeatClass.FeatureType = esriFeatureType.esriFTCoverageAnnotation Then<BR>                pFeatLayer = New CadAnnotationLayer '标注类型，必须设置为单位的标注图层<BR>            Else<BR>                pFeatLayer = New FeatureLayer '点线面类型<BR>            End If<BR>            pFeatLayer.Name = pFeatClass.AliasName<BR>            pFeatLayer.FeatureClass = pFeatClass<BR>            AxMapControl1.AddLayer(pFeatLayer)<BR>        Next</P>

<P>看看这个代码</P>
<P>'设置 Workspace Factory<BR>  Dim pWorkspaceFact As IWorkspaceFactory<BR>  Set pWorkspaceFact = New CadWorkspaceFactory<BR><BR>  '打开 Workspace<BR>  Dim pWorkspace As IWorkspace<BR>  Set pWorkspace = pWorkspaceFact.OpenFromFile("c:\data", 0)<BR><BR>  '设置 Feature Workspace<BR>  Dim pFeatureWorkspace As IFeatureWorkspace<BR>  Set pFeatureWorkspace = pWorkspace<BR><BR>  '打开 Feature Class<BR>  Dim pFeatClass As IFeatureClass<BR>  Set pFeatClass = pFeatureWorkspace.OpenFeatureClass("Parcels.dwg:Polyline")'注意这里，指定你要添加的类型<BR><BR>  '设置Feature Layer 的Feature Class<BR>  Dim pFeatLayer As IFeatureLayer<BR>  Set pFeatLayer = New CadFeatureLayer<BR>  Set pFeatLayer.FeatureClass = pFeatClass</P>
<P>然后添加到你的地图视图上了：）</P>
<P>。。。。<BR></P>