摘要： Sub export() Dim pDoc As IMxDocument Dim pMap As IMap Dim pFLayer As IFeatureLayer Dim pFc As ifeatureclass Dim pINFeatureClassName As IFeatureClassName Dim pDataset As IDataset Dim pInDsName As IData... 阅读全文