基于CAD的VisualLISP二次开发在农村土地现状调查中的应用.docVIP

第 10 卷第 5 期Vol. 10, No. 5GEO 第 10 卷第 5 期 Vol. 10, No. 5 GEOSPATIAL INFORMATION 基于 CAD 的 VisualLISP 二次开发在农村 土地现状调查中的应用 林志鹏，余代俊 （成都理工大学 地球科学学院，四川 成都 610059） 摘 要：为加速 CAD 二次开发而提供的 VisualLISP 语言是嵌入在 AutoCAD 内部的计算机编程语言。以几个具体的实例说 明在农村土地现状调查中利用 VisualLISP 程序设计能提高作业效率，减少劳动力，灵活高效。 关键词：VisualLISP；AutoCAD；程序设计；土地调查 中图分类号：P258 文献标志码: B 文章编号: 1672-4623 (2012) 05-0153-04 随着现代科学技术的不断发展，AutoCAD 已在各 行业得到了极其广泛的应用。但是，由于 AutoCAD 涉 及范围较大，深层次运用针对性不足，使其不能满足 许多行业在深层次运用中的功能需求。因此，CAD 二 次开发技术的推广也就成为眼下迫切需要解决的问题。 AutoCAD 公司为此相继向用户推出了各种开发工具： ADS、VisualLISP、VBA 和 ObjectARX [1]。然而，每种 开发工具都有各自的优缺点，各行业的开发者应视具体 情况而选取。为方便 CAD 在农村土地现状调查中的应 用，笔者采用 VisualLISP 作为二次开发工具，以具体的 程序代码和实例说明其在该领域的确起到了极大的作用。 的范围不仅包括农村集体建设用地还包括农户个体用 地，后者需落实到具体的户。在进行土地承包经营权 权属调查中，依据外调人员所划分的实际各户承包地 面积和所提供的影像图资料进行承包地绘制、分割、调 整、检查承包地面积及地块面积属性统计与导出等一 系列工作时，产生了诸多问题。如：图形数据不规范 （内业勾绘的田块图及斑权属界线重复或未闭合，相邻 图斑和界线间出现交叉、缝隙等），属性数据与图形数 据未匹配（地块编号漏号、重号或与权力人未对应，地 类符号与实际地类不匹配等）。由于此类问题的存在， 无法建立相关 GIS 数据库，但若完全依靠人工干预解 决这些问题，势必效率低下且易造成遗漏 [4]。因此，利 用 VisualLISP 语言在 CAD 下进行编程，进行某些自动 化处理，极大地方便了内业作业人员成图，提高了工 作效率。对此，笔者着重讨论了 CAD 图形中的相关数 1 VisualLISP 语言 VisualLISP 语言是内嵌于 AutoCAD，建立在 Auto- LISP 基础上的软件开发工具。它具有独立的集成开发 环境，包括文本编辑器、语法检查器、源代码调试器 及智能化的控制台等，用户利用它可以随意地编辑、编 译、修改及调试 AutoLISP 源程序，通过编译得到运行 效率高，代码紧凑，源代码受保护的应用程序 [2]。 在功能方面，从 AutoCAD R14 开始，VisuaLISP 被 引入到 AutoCAD 中，继承了 AutoLISP 所有的优点，并 对其功能进行了扩展，用户可通过 Microsoft ActiveX Automation 接口与 AutoCAD 对象进行交互，访问 Auto- CAD 的多文档设计环境，利用反应器函数扩展AutoLISP 相应事件的能力 [3]。 据及属性与Excel 交互操作在具体的工程实例中的应用。 2.2 应用实例 在测绘行业领域中，基于 CAD 的二次开发——南 方 CASS 数字化成图软件，虽向测绘人员提供了许多 辅助该行业数字化成图的工具，但其在对某些具体需 求的图形操作、地物检查、与外部应用程序交互等方 面，仍存在较多问题都还有待作业人员自己解决，由 此列举几个具体的应用实例供相关人员参考。 2.2.1 CAD 图形操作 1 ) 图形绘制。由于在绘图过程中存在多种属性的 图层，如地块编号、地类类型、村、组界等，在绘图 过程中，对图层的操作和修改必须通过 CAD 的图层管 理器，这样的操作势必给内业人员来带不便，因此有 必要编制与图层控制相关的绘图程序以达到一键控制 的快速操作，从而提高作业效率。因此，可直接通过 2 VisualLISP 语言在土地现状调查中的应用 2.1 解决问题 近两年，农村产权制度改革在某些城市得到推行。 该方案包括了权属调查和土地利用现状的调查，调查 收稿日期：2011-10-17 (Defun c: tk()者相同，再求出两图元之间的距离，如果其值在 (Defun c: tk () 者相同，再求出两图元之间的距离，如果其值在一定 范围之内，则说明它们相互重合，便将当前图元标识 出来存放于独立的“重复块”图层之中，同时将该图 元从选择