CAD转为shp格式的AO怎么写?

<P>哪位高手可以给我个思路要解决这样一个问题,有程序付赠跪谢:</P>
<P>有一个CAD文件，分了好多层,在ARCGIS中编写程序将CAD文件转为shp文件，而且把CAD的层名做为每个地物要素的一个属性值!并依照CAD的层分层!谢谢!:)</P>

<P>如果你会 AutoCAD 二次开发的话，在CAD平台结合ArcEngine 来开发是一个比较不错的选择。</P>

<P>如果只是想用ArcEngine来开发，<EM>ICadDrawingWorkspace</EM>  <EM>ICadDrawingDataset</EM> 等几个接口，你看一下。</P>
<P>希望有帮助。 </P>

<P>用这个接口IFeatureDataConverter,下面是比较关键的部分代码，其它的你可以参照开发帮助的一些例子来实现，这里就不多说了。</P>
<P>Dim pCADtoshape As IFeatureDataConverter</P>
<P>Set pCADtoshape = New FeatureDataConverter</P>
<P>Public Function SetInCADFCSName(strInFilePath As String, strInFileName As String) As IFeatureClassName<BR>  <BR>  Dim pInCADWorkspaceName As IWorkspaceName<BR>  Dim pInFCName As IFeatureClassName<BR>  Dim pCADDatasetName As IDatasetName<BR>  ' now get the name object for the input CAD feature dataset name.<BR>  Set pInCADWorkspaceName = New WorkspaceName<BR>      pInCADWorkspaceName.PathName = strInFilePath<BR>      pInCADWorkspaceName.WorkspaceFactoryProgID = "esriCore.CadWorkspaceFactory.1"<BR>   <BR>   Set pInFCName = New FeatureClassName<BR>   Set pCADDatasetName = pInFCName<BR>   Set pCADDatasetName.WorkspaceName = pInCADWorkspaceName<BR>       pCADDatasetName.Name = strInFileName ; ":polyline"<BR>   Set SetInCADFCSName = pInFCName<BR>   <BR>End Function</P>