arcEngine classic code(2)
摘要:
1 新建shp文件 Public Sub CreatShapeFile(ByVal sFilePath As String, ByVal sFileName As String) '创建shapefile层文件 On Error GoTo Errhandle: Dim pWorkspaceFactory As IWorkspaceFactory Dim pFeatureWo... 阅读全文
posted @ 2008-05-11 16:35 风过 无痕 阅读(471) 评论(0) 推荐(0) 编辑