勘界测量分类面积计算和统计方法的研究提要：本文阐述了使用ABDRS软件结合用AuloLISP语言编制的应用程序，进行土地分类面积的计算和统计，自动提取碎部面积量算表和土地分类面积统计表等工作的方法。关键词：土地分类面积；ABDRS软件；图斑面积；AutoLISP语言Abstract:ThistexthasexplainedthatusesABDRSsoftwaretocombinetheapplicationprogramworkedoutinAutoUSPlanguage,Carryonthecalculationandstatisticsofthecategorisedareaofland,Drawthemethodtoregardassuchworkasexpressingandstatisticalformofcategorisedareaofland,etc.ofareaamountofbreakingtopiecesdepartmentautomatically.Keywords:Categorisedareaof1and；ABDRSsoftware；Pursuetheareaofspot；AutoLISPlanguage：TU91文献标识码：A：1、引言勘测定界测量就是根据农用地转用、土地征用等工作的需要，实地确定用地范围，测量界址总坐标，实测土地利用现状和权属情况，计算土地分类面积，编制勘测定界测量报告，为农用地转征用报批等国土资源管理工作提供科学准确的图、数、资料的测绘技术工作。前期外业的勘界测量采用CASS、清华三维等软件可完成，对于后期内业的土地分类面积的计算和统计等工作没有统一的软件进行处理，使用的方法较多，ABDRS软件结合用AutoLTSP语言编制的应用程序来处理土地分类面积是其中的一种方法，ABDRS软件是由中国建筑科学研究院研制的计算房产面积的软件，建立在AutoCAD平台上，计算房产面积和土地分类面积有较多相同的地方，因此利用它结合应用程序能较快地计算出土地分类的面积。2、制作基本数据启动ABDRS软件，一一在外业测绘的数据资料基础，按土地分类原则圈注图斑（土地分类）；一一检查各图斑是否封闭，如果图斑没有封闭的地方，有小红圆圈标注，修改不封闭的图斑，反复进行几次，直至所有图斑完全封闭；利生成各图斑面积，而积的单位为平方米；定义图斑的地类属性和权属，由四位数组成，前三位为地类属性编码，第四位为权属单位的编号，例如1112,111表示地类属性的灌溉水田，2表示权属单位的编号；――定义图斑的编号。由上述各步生成的土地分类面积图（*.dwg）见图lo3、程序编写思路及代码（1）程序编写思路将在ABDRS下生成的图形转换成符合国土管理部门要求的勘测定界图，其中图斑号、面积、土地地类属性分别自动存入图斑号层、面积层、地类代码层，这样便于下一步工作的管理。土地分类面积由平方米转换为公顷，自动提取碎部面积量算表和土地分类面积统计表，作为编制勘测定界报告的基本依据。(2)建立表格模型和程序主要代码建立碎部面积量算表和土地分类面积统计表两个表格模型文件，分别命名为tbb.dwg和tbbl.dwg,其表格格式见图2o利用AuloLISP语言编制的程序主要代码：(defuncreatebiao(1istOtypeO/1istOprOxyOxOyOxOOyOOlenOnumnninsexynendOknthOshtbhdlmjqsdwxlqsdwyltbhxldlxlmjxl)(setqprO(strcat〃\n请点取生成〃type。〃左上角位置：〃))(setqxyO(getpointprO))(setqxO(carxyO))(setqyO(nth1xyO))(setqxOOxOyOOyO)(setqyO(-yO2.5))(setqlenO(lengthlistO))(setqnum(fix(/1en037.00)))(if(>lenOnum)(setqnum(1+num)))(setqnum(aloi(rtosnum20)))(repeatnum(setqxOO(+xO(*(-nn1)180)))(setqinsexy(listxOOyOO))(if(=typeO"图斑量算表”)(command"insert”〃tbb〃insexy”1〃(command"insert”〃tbbl〃insexy〃1〃〃1〃〃0〃))(setqn0)(setqn(*(-nn1)37))(setqendO(*nn37))(if(>endOlenO)(SetqendOlenO))(setqk0)(while(<nendO)(setqnthO(nthnlistO))(setqsh(nth1nthO))(setqtbh(nth2nthO))(setqdl(nth3nthO))(setqmj(nth4nthO))(setqqsdwxl(+11x00))(setqqsdwyl(-yO(*5k)))(setqk(1+k))(setqtbhxl(+33x00))(setqmjxl(+92x00))(commandtextshzjm(listqsdwxlqsdwyl)20sh)(command"text”〃s〃〃hz〃〃j〃〃ni〃(Iisttbhxlqsdwyl)〃2〃〃0〃tbh)(command"text”〃s〃〃hz〃〃j〃〃nT(listdlxlqsdwyl)〃2〃〃0〃dl)/二〃4〃〃〃L〃〃•〃〃〃/1・」•111、〃c〃〃八〃(commandtextshzjm(listmjxlqsdwyl；zUmj)(setqn(1+n)))(setqnn(1+nn))))(defungettotal(listOcmlistd...