ArcObject
文章平均质量分 64
lzx1221
这个作者很懒,什么都没留下…
展开
-
加载coverage文件代码
Dim pPropset As IPropertySet Set pPropset = New PropertySet pPropset.SetProperty "DATABASE", filePath 使用ArcInfoWorkspaceFactory类实现IWorkSpaceFactory接口对象原创 2007-08-03 17:14:00 · 625 阅读 · 0 评论 -
打开shapefile格式文件代码
Dim pShpWksFact As IWorkspaceFactory Set pShpWksFact = New ShapefileWorkspaceFactory Dim pFeatWks As IFeatureWorkspace Set pFeatWks = pShpWksFact.OpenFromFile(filePath, 0原创 2007-08-03 17:21:00 · 879 阅读 · 0 评论 -
应用ISaveAs接口进行栅格格式内部转换代码
Dim pWsf As IWorkspaceFactory Set pWsf = New RasterWorkspaceFactory Dim pRasterWs As IRasterWorkspace Set pRasterWs = pWsf.OpenFromFile("d:/AE/testData", 0) Dim pRasterDs As IR原创 2007-08-03 17:25:00 · 972 阅读 · 0 评论 -
打开栅格数据代码
Dim pWsFact As IWorkspaceFactory Set pWsFact = New RasterWorkspaceFactory Dim pWs As IRasterWorkspace Set pWs = pWsFact.OpenFromFile(filePath, 0) Dim pRasterDataset原创 2007-08-03 17:18:00 · 672 阅读 · 0 评论 -
coverage转shapefile代码
Dim sInPath, sCoverageName, sOutPath, sShapefileName As StringsInPath = "d:/AE/testData"sCoverageName = "cover1:polygon"sOutPath = "d:/AE/testData"sShapefileName = "zhuan"Dim pPropertySet As IProperty原创 2007-08-03 17:23:00 · 1049 阅读 · 0 评论