勘界测量分类面积计算和统计方法研究.docVIP

勘界测量分类面积计算和统计方法研究 　　提要：本文阐述了使用ABDRS软件结合用AutoLISP语言编制的应用程序，进行土地分类面积的计算和统计，自动提取碎部面积量算表和土地分类面积统计表等工作的方法。 　　关键词：土地分类面积；ABDRS软件；图斑面积；AutoLISP语言 　　Abstract:This text has explained that uses ABDRS software to combine the application program worked out in AutoLISP language ,Carry on the calculation and statistics of the categorised area of land ,Draw the method to regard as such work as expressing and statistical form of categorised area of land ,etc. of area amount of breaking to pieces department automatically . 　　Key words: Categorised area of land；ABDRS software ；Pursue the area of spot；AutoLISP language 　　 　　中图分类号：TU91文献标识码：A文章编号： 　　 　　1、引言 　　勘测定界测量就是根据农用地转用、土地征用等工作的需要，实地确定用地范围，测量界址总坐标，实测土地利用现状和权属情况，计算土地分类面积，编制勘测定界测量报告，为农用地转征用报批等国土资源管理工作提供科学准确的图、数、资料的测绘技术工作。前期外业的勘界测量采用CASS、清华三维等软件可完成，对于后期内业的土地分类面积的计算和统计等工作没有统一的软件进行处理，使用的方法较多，ABDRS软件结合用AutoLISP语言编制的应用程序来处理土地分类面积是其中的一种方法，ABDRS软件是由中国建筑科学研究院研制的计算房产面积的软件，建立在AutoCAD平台上，计算房产面积和土地分类面积有较多相同的地方，因此利用它结合应用程序能较快地计算出土地分类的面积。 　　2、制作基本数据 　　启动ABDRS软件，――在外业测绘的数据资料基础，按土地分类原则圈注图斑（土地分类）； ――检查各图斑是否封闭，如果图斑没有封闭的地方，有小红圆圈标注，修改不封闭的图斑，反复进行几次，直至所有图斑完全封闭； 和――生成各图斑面积，面积的单位为平方米； ――定义图斑的地类属性和权属，由四位数组成，前三位为地类属性编码，第四位为权属单位的编号，例如1112，111表示地类属性的灌溉水田，2表示权属单位的编号 ； 　　――定义图斑的编号。由上述各步生成的土地分类面积图（*.dwg）见图1。 　　 　　 　　3、程序编写思路及代码 　　（1）程序编写思路 　　将在ABDRS下生成的图形转换成符合国土管理部门要求的勘测定界图，其中图斑号、面积、土地地类属性分别自动存入图斑号层、面积层、地类代码层，这样便于下一步工作的管理。土地分类面积由平方米转换为公顷，自动提取碎部面积量算表和土地分类面积统计表，作为编制勘测定界报告的基本依据。 　　（2）建立表格模型和程序主要代码 　　建立碎部面积量算表和土地分类面积统计表两个表格模型文件，分别命名为tbb.dwg和tbb1.dwg，其表格格式见图2。 　　利用AutoLISP语言编制的程序主要代码： 　　(defun create_biao (list0 type0 / list0 pr0 xy0 x0 y0 x00 y00 len0 num nn inse_xy n end0 k 　　nth0sh tbh dl mj qsdw_x1 qsdw_y1 tbh_x1 dl_x1 mj_x1 ) 　　(setq pr0 (strcat \n请点取生成 type0 左上角位置:)) 　　(setq xy0 (getpoint pr0)) 　　(setq x0 (car xy0)) 　　(setq y0(nth 1 xy0)) 　　(setq x00 x0 y00 y0) 　　(setq y0 (- y0 2.5)) 　　(setq len0 (length list0)) 　　(setq num(fix (/ len037.00) )) 　　(if ( len0 num) (setq num (1+ num)) ) 　　(setq num (atoi (rtos num 2 0))) 　　(setq nn 1) 　　(repeatnum 　　(setq x00 (+ x