autocad中实现地图自动着色与面积分类汇总初探 - 山东国土资源 .pdf

第２６卷第１０期　　　　　　　　　　　　　　　山东国土资源　　　　　　　　　　　　　　２０１０年１０月 ＡｕｔｏＣＡＤ中实现地图自动着色 与面积分类汇总初探 １ ２ ２ ２ 刘振南 ，卢晓龙 ，白立飞 ，范永杰 （１．安徽省地质测绘技术院，安徽 合肥　２３００２２；２．山东省地质测绘院，山东济南　２５０００２） 摘要：土地勘测定界是为了切实将“保护耕地，合理利用土地”落实到“实地”而进行的一项繁杂的工作。笔者根据 多年从事土地测量的经验，通过ＡｕｔｏＣＡＤ内置的开发工具ＶＢＡ（ＶｉｓｕａｌＢａｓｉｃｆｏｒＡｐｐｌｉｃａｔｉｏｎ）创建ＣＡＤ宏，自动进行 地块着色、权属注记、面积标注、地块面积按权属汇总和按地类汇总，有效杜绝了人工读写可能带来的错误。 关键词：ＡｕｔｏＣＡＤ；土地勘测定界；ＶＢＡ宏；扩展数据；ＡｄｄＨａｔｃｈ 中图分类号：Ｐ２８２；Ｐ２８３．７　　　　文献标识码：Ｂ 　　土地勘测定界包括土地利用详查，土地利用规 划、土地征用、土地出让或土地转让、农用地转用、土 地开发整理和复垦等方面的权属调查和地籍测绘。 近年来国家加大基础设施投入，直接导致建设项目 增加，大量农用地需要转为建设用地。在农用地转 用审批过程中，时效性很强，项目集中报批，政策处 理难度大，一系列工作都要求土地勘测定界走在前 面。 １　应用程序实例 １．１　实现流程 首先选择对象实体，对象实体最好选择轻量复 合线ＡｃａｄＬＷＰｏｌｙｌｉｎｅ，选择过程中按 Ｅｓｃ键就退出 图１　工艺流程图 程序，流程图如图１所示。 ＯｂｊｅｃｔＮｕｍｂｅｒ（实体编码）和４个命令按钮，即查看 １．２　新建工程 属性、添加属性、汇总统计、关闭（图３）。 打开 ＡｕｔｏＣＡＤ２００５，命令行中输入 ｖｂａｍａｎ，调 “查看”按钮用于查看已添加属性的实体，调用 入ＶＢＡ集成开发环境。新建一个工程“象山测 模块ＧｅｔＡｒｒｉｂ；“加属性”按钮用于添加属性和图斑， 绘”，添加ＯｂｊｅｃｔＡｔｔｉｂ窗体和若干模块，模块用途如 调用模块Ａｄｄ＿Ｈａｔｃｈ和Ａｄｄ＿ｌａｙｅｒ；“统计”按钮调用 图２所示。 模块ＦｉｌｔｅｒＡｎｄＴｏｔａｌ，用于过滤已加属性地块的面积。 １．３　主窗体界面 图层名称共设有耕地、园地、林地、其他农用地、建设 在ＯｂｊｅｃｔＡｔｔｉｂ窗体中加入复合框控件ＣｏｍｂｏＢ 用地、未利用地等６个；土地类别为复合框中显示的 （图层名称）、列表框控件 Ｌｉｓｔｂｏｘ１（土地类 各土地大类下的三级土地类别；实体编码为相应三 ｏｘＬａｙｅｒ 别）、文本框 ＴｅｘｔＢｏｘＯｂｌｉｇｅｅ权属主名称）、文本框 级地类的代码，为自动显示，地类编码颜色对照如表  收稿日期：２０１０ ０７ １７；修订日期：２０１０ ０８ ３０；编辑：曹丽丽 作者简介：刘振南（１９６０—），男，山东单县人，工程师，主要从事数字化制图、航空摄影测量等工作；Ｅ ｍａｉｌ：ｃｈｙｔｄｋｃｃ＠１６３．ｃｏｍ。 ·５４· 第２６卷第１０期　　　　　　　　　　　　　　　　技 术 方 法　　　　　　　　　　　　　　　　　２０１０年１０月 文档中（ＡｕｔｏＣＡＤ保留此信息，但不使用）。使用 ＳｅｔＸｄａｔａ方法添加属性，将程序名称 Ｄａｔａ（０）、扩展 数据图层 Ｄａｔａ（１）、土地类别 Ｄａｔａ（２）、土地权属 Ｄａｔａ（３）和土