1、第 46 卷 第 1 期2023 年 1 月测绘与空间地理信息GEOMATICS&SPATIAL INFORMATION TECHNOLOGYVol.46,No.1Jan.,2023收稿日期:2022-01-24作者简介:周 扬(1992-),男,湖北咸宁人,工程师,硕士,2015 年毕业于华中农业大学农村与区域发展专业,主要从事国土资源管理与测绘相关工作。基于 VB 编程语言的土地征收成片开发方案编制数据处理方法 以界址点成果表自动化生成为例周 扬,郭庆坤,魏 辉(济南市勘察测绘研究院,山东 济南 250101)摘要:土地征收成片开发方案编制对地区的经济和社会快速发展起到了重要的作用,数据处
2、理与界址点成果表的制作是方案编制中的重点内容及必不可少的上报成果。本文分析了方案编制中界址点成果表生成的方法和存在难点问题,采用 VB 编程语言实现了界址点成果表的自动化生成,解决了数据量大的处理难题,极大地提高了工作效率和准确度,具有一定的应用和推广价值。关键词:土地征收成片开发;VB(Visual Basic);数据处理;界址点成果表;自动化中图分类号:P208 文献标识码:A 文章编号:1672-5867(2023)01-0115-03Data Processing Method of Land ExpropriationDevelopment Plan Based on VB:Taki
3、ng Automated Generation of Boundary Point Table as an ExampleZHOU Yang,GUO Qingkun,WEI Hui(Jinan Geotechnical Investigation and Surveying Research Institute,Jinan 250101,China)Abstract:The compilation of land expropriation development plan plays an important role in the rapid economic and social dev
4、elopment of the region.The data processing and the generation of boundary point table are the key content and the essential report results.This paper analyzes the methods and difficulties in the generation of boundary point table.VB programming language is used to realize the automatic generation of
5、 boundary point table,which can solve the problem of large amount of data processing,greatly improves the work efficiency and accuracy,and has certain application value.Key words:land expropriation development;VB(Visual Basic);data processing;boundary point table;automation0 引 言新修订的中华人民共和国土地管理法第四十五条
6、将成片开发纳入了实施征收的情形之一,2020 年 11 月,自然资源部印发了关于土地征收成片开发标准(试行)的通知。根据相关规定,征收农民集体所有的土地,符合“在土地利用总体规划确定的城镇建设用地范围内,经省级以上人民政府批准由县级以上地方人民政府组织实施的成片开发建设需要用地的情形”,县级以上地方人民政府应当依据当地国民经济和社会发展规划、国土空间规划,组织编制土地征收成片开发方案,纳入当地国民经济和社会发展年度计划,并报省级人民政府批准。中共中央、国务院关于构建更加完善的要素市场化配置体制机制的意见要求建立公共利益征地的相关制度规定,科学界定成片开发标准刻不容缓,不仅直接影响新法规施行,而
7、且影响土地要素市场化配置改革效果1。1 土地征收成片开发方案编制简介本文所称土地征收成片开发,是指在国土空间规划确定的城镇开发边界内的集中建设区,由县级以上地方人民政府组织的对一定范围的土地进行的综合性开发建设活动。县(市、区)人民政府通过编制成片开发方案,说明实施成片开发对于促进当地城镇发展建设的必要性,明确成片开发范围、拟征收地块、拟实施的项目安排时序等成片开发相关事项,充分听取人大代表、政协委员、社会公众和有关专家学者的意见,经依法批准后实施。方案内容应包括未来 3 年内成片开发用地的位置、面积和用途,将具体位置落到土地利用总体规划和城市(镇)总体规划图上,需要提交规定格式的数据文件。其
8、中含有包括坐标系统、高程基准、投影类型、带号等的 txt 数据和Excel 界址点成果表。传统的处理方法主要采用逐个地块多步骤处理及修改格式,由于地块数量及界址点数量庞大,需耗费大量的时间且容易出错,增加了生成成本,不利于项目的开展。本文采用 Visual Basic(简称 VB)编程语言改进了繁杂的数据处理和转换工作,控制好输入端后能批量且正确地输出数据,提高了土地征收成片开放方案编制效率。2 程序设计实现本程序以 VB 为开发语言,是一种通用的基于对象的程序设计语言,该语言不但可以满足结构化程序所设计的多项对象这一设计语言需求,而且还兼具图形用户接口,方便向设计程序语言方面创造更优质的服务
9、2。VB调用、融合 Excel、ArcGIS 等软件,对地块的界址点进行数据输入、处理、成果生成等工作。2.1 拟解决的问题及难点成片开发是大面积对土地进行开发建设,规模可达到上百平方千米3。编制土地征收成片开发方案进行的权属调查与勘测定界工作,重点要审核土地权属的确认程序,同时为满足公益性用地比例不低于 40%的标准,形成的首批成果存在多次调整、修改的可能4,给成果输出的准确度和工作效率的提高带来阻碍。数据和界址点成果处理时,对格式及数据质量要求非常高,格式不对可能导致无法录入系统,无法进行地类和相关规划的分析,数据的输入错误可能导致分析结果错误,对未来的区域开发建设造成障碍。2.2 程序设
10、计和功能本程序融合 Excel、ArcGIS 软件,以要求的格式为标准,输入整理后的界址点坐标数据,程序自动识别并分析数据,按照设定的要求快速自动生成相关成果。用户界面设计本着简洁清晰、无须多媒体效果的原则,尽量减少用户的视觉疲劳和冗余操作。根据成片开发方案中界址点成果表的生成步骤,用户界面使用了 VB 6.0 的 Com-mand 控件、Label 控件、ComboBox 控件、ProgressBar 控件、Statusbar 控件、CommonDialog 控件和 Timer 控件进行设计,可以简洁清晰地显示生成界址点成果表的操作顺序和步骤,同时可以看到数据处理的实时时间。点击用户界面中的
11、“选择文件”“生成 Excel”“生成 txt”按钮,均会启动相应的数据处理程序,点击“关闭”即可退出程序。2.3 成片开发方案数据处理与程序实现为增加代码的可维护性和可读性,代码设计应简洁清晰,并能有效运行,反复调试的代码更应尽量简化。1)确定成片开发范围及拟征收地块根据经济社会发展,初步确定成片开发范围及成片开发的规模,一个成片开发方案内的开发范围应尽可能集中连片。通过进一步叠加国民经济和社会发展规划、土地利用总体规划、城市(镇)规划、详细规划、永久基本农田划定成果、生态保护红线成果等数据,结合成片开发拟建设项目相关资料,综合分析确定成片开发范围及拟征收地块。2)数据检查数据输入前,对确定
12、的成片开发范围及拟征收地块数据进行拓扑处理,建立拓扑结构。检查要素图形空间位置的正确性,以及数据间是否存在重叠、相交、缝隙等拓扑错误。3)数据处理利用 ArcGIS 软件的“要素折点转点”功能,将开发范围及拟征收地块转为点文件。在属性表中增加“X 坐标”“Y 坐标”字段,字段类型为“双精度”。批量计算 X 坐标、Y 坐标,并导出为 Excel 文件。4)程序实现根据成片开发方案中界址点数据的处理流程,首先选择导出的 Excel 文件,然后读取数据所在工作簿的 sheet名称,最后生成固定格式的 Excel 文件和 txt 文件。下面就几个主要过程进行介绍。1)本程序初始界面提供了 4 个选项,
13、分别是“选择文件”“选择数据所在 sheet”“生成 Excel”“生成txt”。2)点击“选择文件”按钮,弹出“选择 Excel 文件”对话框,选择导出的 Excel 文件。其具体实现主要借助公用对话框 CommonDialog 控件来确定所要选择的文件路径和索引,主要代码如下:CommonDialog1.DialogTitle=选择 Excel 文件CommonDialog1.Filter=xls 文件(.xls)|.xls|xlsx 文件(.xlsx)|.xlsx|xlsm 文件(.xlsm)|.xlsm CommonDialog1.ShowOpensFile=CommonDialog1
14、.FileNameIf sFile=ThenExit SubElseCommand2.Enabled=TrueLabel1.Caption=sFileCall 读取 sheetEnd If3)在“选择数据所在 sheet”的组合框中,选择数据所在的 sheet。为保证在任意工作簿的不同 sheet 中的数据均能在程序中进行识别,利用 ComboBox 控件设置了读取 sheet 名称的 sub 子程序,主要代码如下:If fileadd ThenCombo1.ClearDim xlApp1 As ObjectDim xlBook1 As ObjectDim xlSheet1 As Object
15、Set xlApp1=CreateObject(Excel.Application)611 测绘与空间地理信息 2023 年Set xlBook1=xlApp1.Workbooks.Open(fileadd)xlApp1.DisplayAlerts=FalseFor Each a In xlBook1.SheetsCombo1.AddItem a.NameNextCombo1.Text=Combo1.List(0)ElseMsgBox 请选择文件,vbExclamation,提示4)点击“生成 Excel”按钮,开始加载数据,加载完成后自动生成指定上报格式和内容的 Excel 界址点成果表,并
16、弹出“信息提示”对话框,提出“输出完成,成片开发界址点成果表.xlsx”。在确定了数据所在位置后,对该位置的数据进行读取,并按照封装好的模板文件输出 Excel 格式。该过程主要包含 2 个步骤,一是读取数据,二是输出数据,2 个步骤的实现均主要使用了记录类型的动态数组。读取数据的主要代码如下:For i=1 To xlSheet.Range(A65536).End(3).Row DoEventsReDim Preserve a(k)As j 界址点a(k).序号=ia(k).点号=xlSheet.Cells(i,1)a(k).x=xlSheet.Cells(i,2)a(k).y=xlSheet.Cells(i,3)a(k).边长=xlSheet.Cells(i,4)k=UBound(a)+1ProgressBar1.Value=iLabel3.Caption=正 在 加 载 数 据&i&/&xlSheet.Range(A65536).End(3).RowNext i读取完成后,对数据进行固定格式分页输出,主要代码如下:For i=0 To UBound(a)DoEventsProgr