摘要： Sub exportfeatureclass()Dim pfws As IFeatureWorkspaceSet pfws = OpenFeatureWorkspaceDim prwse As IRasterWorkspaceExSet prwse = OpenSDEGeodatabaseDim prc As IRasterCatalogSet prc = prwse.OpenRasterCatalog("ORI002009002乌海")ExportFootprint2 prc, pfws, "newfeatureclass"End Sub'op 阅读全文