勘界测量分类面积计算及统计方法计划研究.docx

勘界测量分类面积计算及统计方法计划研究.docx

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
精品文档 精品文档 PAGE PAGE6 精品文档 PAGE 最新【精品】范文 参考文献 专业论文 勘界测量分类面积计算和统计方法的研究 勘界测量分类面积计算和统计方法的研究 提要:本文阐述了使用ABDRS软件结合用AutoLISP语言编制的应用程序,进行土地分类面积的计算和统计,自动提取碎部面积量算表和土地分类面积统计表等工作的方法。 关键词:土地分类面积;ABDRS软件;图斑面积;AutoLISP语言 Abstract:Thistexthas explained that usesABDRSsoftware tocombinetheapplicationprogramworkedoutinAutoLISP language,Carryonthecalculationandstatisticsofthe categorised areaofland,Drawthemethodtoregardassuchwork asexpressingandstatisticalformofcategorisedareaof land,etc.ofareaamountofbreakingtopiecesdepartment automatically. Keywords:Categorisedareaofland;ABDRSsoftware ;Pursue theareaofspot ;AutoLISPlanguage 中图分类号: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语言编制的程序主要代码: (defuncreate_biao(list0type0/list0pr0xy0x0y0x00 y00len0numnninse_xynend0k nth0shtbhdlmjqsdw_x1qsdw_y1tbh_x1dl_x1mj_x1) (setqpr0(strcat\n 请点取生成type0 左上角位置:)) (setqxy0(getpointpr0)) (setqx0(carxy0)) (setqy0(nth1xy0)) 最新【精品】范文 参考文献 专业论文 (setqx00x0y00y0) (setqy0(-y02.5)) (setqlen0(lengthlist0)) (setqnum(fix(/len037.00))) (if(len0num)(setqnum(1+num))) (setqnum(atoi(rtosnum20))) (setqnn1) (repeatnum (setqx00(+x0(*(-nn1)180))) (setqinse_xy(listx00y00)) (if(=type0图斑量算表)(commandinserttbbinse_xy

文档评论(0)

183****3717 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档