问关于AO实现CAD文件转化为5个shp文件的问题

要用AO实现把CAD文件转化成为四个shp文件，就像arcmap里面的一样，有point、polyline、polygon、multipatch、annotation 首先我把读CAD文件，得到5个featureclass

首先有这么一个问题，我看了一下arcmap里面的转化结果,point层和annotation层都是点层，featuretype都是FTsimple，那如何分别得到point要素类和annotation要素类啊，

我发现annotation要素类属性数据有text和fontid字段（点要素类里有text但无fontid)

所以我就用有无fontid来判断是否为annotation，最后转化的数据是正确的，但是fontid不是每个annotation要素类都有的，是不是有别的更标准的方法判断出annotation要素类啊

Dim pPolyGonCls As IFeatureClass  '面要素类
       Dim pLineCls As IFeatureClass  '线要素类
       Dim pPointCls As IFeatureClass  '点要素类
       Dim pMulPatchCls As IFeatureClass  '多点要素类
       Dim pAnnoCls As IFeatureClass   '标注要素类
       Dim i As Short
       '分名别类得到CAD文件的各个要素类
       For i = 0 To pClsContainer.ClassCount - 1
                   pClsContainer.Class(i).ShapeType = esriGeometryType.esriGeometryPoint AndAlso Not pClsContainer.Class(i).FindField("FontId") >= 0 Then
               pPointCls = pClsContainer.Class(i)
                    ElseIf pClsContainer.Class(i).ShapeType = esriGeometryType.esriGeometryPoint AndAlso pClsContainer.Class(i).FindField("FontId") >= 0 Then
               pAnnoCls = pClsContainer.Class(i)
           End If
       Next

下面我创建一个shp文件对应的要素类，再把上面得到的对应的要素类的每一个要素的数据付给新建的要素，部分代码如下

pNewFeatCls = pFeatWs.CreateFeatureClass(sShpDir, pFields, Nothing, Nothing, esriFeatureType.esriFTSimple, "shape", "")
       Dim pFeat As IFeature
       pFeat = pCursor.NextFeature()
       Dim pNewFeat As IFeature
       While Not pFeat Is Nothing
           pNewFeat = pNewFeatCls.CreateFeature()
           pNewFeat.Shape = pFeat.Shape
           For i = 2 To pFeat.Fields.FieldCount - 1
               pNewFeat.Value(i) = pFeat.Value(i)
           Next
           pNewFeat.Store()
           pFeat = pCursor.NextFeature()
       End While

最后的确转化成功为5个shp文件，和arcmap里的转化结果比较，图形数据和属性数据都是正确的，

但是arcmap结果里的annotation直接显示的是标注，而我的annotation显示的是一个个点

不知道是哪里出了问题

还有关于新建的要素类的字段的问题，我需要把原来CAD文件对应的要素类的属性字段都付给新建的要素类，该如何操作啊

我大致是这样做的

先定义一个shape字段，然后用下面的代码把CAD文件对应要素类的字段付给新建的要素类（除第一二个字段，第一个字段是图员的唯一标识，第二个字段是shape)

但是感觉这样也太麻烦了，而且还不见得能和原来的完全一致，是否有更方便的方法啊

 For i = 2 To pAnnoCls.Fields.FieldCount - 1
           pField = New Field
           pFieldEdit = pField
           With pFieldEdit
               .Name_2 = pAnnoCls.Fields.Field(i).Name
               .Type_2 = pAnnoCls.Fields.Field(i).Type
               .AliasName_2 = pAnnoCls.Fields.Field(i).AliasName
               .DefaultValue_2 = pAnnoCls.Fields.Field(i).DefaultValue
               .Editable_2 = pAnnoCls.Fields.Field(i).Editable
               .IsNullable_2 = pAnnoCls.Fields.Field(i).Editable
               .Length_2 = pAnnoCls.Fields.Field(i).Length
               .Precision_2 = pAnnoCls.Fields.Field(i).Precision
           End With
           pFieldsEdit.AddField(pField)
       Next

这些困扰我很久，期待高手的指点，在此谢谢了

给你一个　新的思路，你可以　在ＡｕｔｏＣＡＤ上　用　ＣＡＤ　的开发包和　ＡｒｃＥｎｇｉｎｅ进行开发。　因为我以前是做ＣＡＤ开发的　所以这个对我比较适合。；）