11 2011 档案

• vba create rectangle 矩形
  摘要：Sub createrectangle() Dim pWorkspaceFactory As IWorkspaceFactory Set pWorkspaceFactory = New ShapefileWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace Set pFeatureWorkspace = _ pWorkspaceFactory.OpenFromFile("D:\数据\2222", 0) Dim pFeatureClass As IFeatureClass Set pFeatureClass = 阅读全文
  posted @ 2011-11-18 15:44 GIS的学习 阅读(953) 评论(0) 推荐(0)