摘要： 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 = 阅读全文