浅谈VLISP提取宅基地基础数据CAD二次开发.docVIP

浅谈VLISP提取宅基地基础数据CAD二次开发 　　摘 要：宅基地基本信息库的建设是项耗费时间的繁复工作，为了提高宅基地基本信息库建设的效率并保证基础数据的准确性，通过应用Vlisp计算机程序语言对AutoCAD软件的二次开发，编译了从宅基地数字化地籍图中提取宗地基本信息数据的应用与AutoCAD软件程序命令。 　　关键词：宅基地；地籍图；Vlisp；AutoCAD 　　中图分类号：TP391.72 文献标志码：A 文章编号：1673-291X（2014）02-0253-02 　　一、宅基地信息管理系统创建的关键是宅基地基本信息库的建立 　　Visual LISP（简称Vlisp）是AutoCAD软件自带的可视化、集成型CAD二次开发的计算机语言，采用递归的语法结构控制计算机的运行，程序的设计比较简单，易于使用户接受。作为CAD软件的二次开发工具，它完整地提供了集成开发环境，使用户能够快捷地调用CAD命令，高效地调试程序。 　　宅基地管理信息系统是地理信息系统的一个分支，是将宅基地权属信息及规划等信息在计算机技术的支持下，按照住户信息或者地籍属性以一定的格式输入、存储、管理、分析、检索、统计、显示以及应用决策的地理信息系统。 　　宅基地信息管理系统创建的关键是宅基地基本信息库的建立，而宅基地基本信息库的主要指标之一是从宅基地数字化地籍图中提取宅基地宗地界址点坐标。为了适应这一需求，本文依据宅基地信息管理系统中宅基地基本信息库文件的格式需求，应用Vlisp计算机语言对CAD软件进行了二次开发的学习研究。 　　二、获取数字化地籍图中特定数据格式的程序开发 　　（一）宅基地宗地基础数据库格式要求 　　在获得宅基地AutoCAD地籍图的基础上，为了明确工作的内容，我们先确定出所需输出的数据的文件格式，即： 　　提取日期，户主姓名，界址点1，X坐标，Y坐标，宗地编号 　　提取日期，户主姓名，界址点2，X坐标，Y坐标，宗地编号 　　提取日期，户主姓名，界址点3，X坐标，Y坐标，宗地编号 　　提取日期，户主姓名，界址点4，X坐标，Y坐标，宗地编号 　　… 　　通过分析数据格式，我们可以知道，该格式中需要人工输入确认的数据只有户主的相关信息，即姓名汉字拼音简称，其他如提取时间、户主姓名、界址点序号，坐标及宗地编号都是地籍图上已有的内容或可以通过计算机后台完成，完全可以通过Vlisp计算机语言进行快速且准确地提取。 　　（二） Vlisp计算机语言对宅基地宗地信息的编程实现 　　Vlisp计算机程序设计语言通过特定的计算机语法结构可让用户对AutoCAD软件进行二次开发。 　　在计算机技术中，只要建立文件，就必须确定文件的存储路径及文件名称。本文为了方便文件管理，将所输出文件存储于宅基地数字化地籍图所在的计算机路径下，命名为该主文件名+界址点文件，后缀根据需要设定为所需的格式后缀。为了确定输出文件的路径及名称，可以读取Vlisp语言中的dwgprefix函数，该函数能够给出当前AutoCAD中活动文件的具体路径，如AutoCAD中当前打开的文件名为“**地籍图.dwg”的文件保存于计算机D盘中的“**村地籍图文件”文件夹下，在读取dwgprefix函数后，计算机在AutoCAD软件中便会显示该文件路径为：“D：＼＼**村地籍图文件＼＼”，在用Vlisp语言实现中我们将读取的文件路径定义为变量wjmlj，语言代码为：（setq wjmlj （getvar dwgprefix））；所需输出数据的文件名称可以读取DWGNAME函数，该函数直接给出AutoCAD软件当前活动文件的文件名，如“**地籍图.dwg”，我们所需的文件名称应该为“**地籍图界址点文件.txt”，这一步的实现首先需要将“**地籍图.dwg”中的文件名后缀“.dwg”去掉，得到一个只代表文件名“**地籍图”，通过组合字符“界址点文件.txt”确定出所要输出的文件名称，这一步的Vlisp语言代码可综合整理为：（setq wjm （getvar DWGNAME） ln （strlen wjm） wjm （substr wjm 1 （- ln 4））） （setq wjm1 （strcat wjmlj wjm 界址点文件.txt））。 　　在确定了工作中所要输出的文件的存储路径及文件名称后，需要完成宅基地基础数据库所需数据的计算机写出工作，针对输出的数据格式要求，先确定计算机可以自动识别的“提取日期”数据，这一数据可以通过直接读取计算机当前日期，在Vlisp计算机语言中可以用特定的函数cdate来实现。在编程中，需要定义一个有关当天日期的变量，根据Vlisp计算机语言的语法结构，我们定义rq为“提取日期”的变量名称，具体实现表达式为：（setq