- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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)