《关于等高线检查程序的研究.docx》由会员分享，可在线阅读，更多相关《关于等高线检查程序的研究.docx（2页珍藏版）》请在三一文库上搜索。
1、关于等高线检查程序的研究摘要：在地形图数据结构检查的过程中，利用程序来实现检查，可以大幅度降低生产成本，提高效率，本文主要是利用AUTOLISP语言编写程序来完成等高线所在图层及其属性值的检查，涉及到的软件平台为AutoCAD关键词：AutoCAD， 等高线 ， 检查程序， 研究在地形图数据结构检查的过程中，应用程序来实现检查，可以大幅度降低生产成本，提高效率，现在以AutoCAD平台下利用 AUTOLISP语言编写的等高线检查程序为例，来谈谈自己的体会。 一 等高线数据结构检查主要包括： （一）线条设计规范检查 等高线线条设计规范检查主要是检查线条是否符合规范和设计要求，主要包括： 线宽检查
2、 线型结构检查 回头线检查 重复线检查 交叉线检查 （二）图层和属性值检查 （三）扩展属性检查 扩展属性检查主要指根据设计的要求，对特定的属性进行检查，主要包括： 属性码检查 属性层检查 属性值检查 二 等高线层、值相符检查程序代码的实现 AUTOLISP语言是嵌套于AutoCAD内部的一种计算机表处理语言，其可以扩大图形的编辑功能，建立图形数据库和对数据库的访问和修改，其强大的功能使建立在 AutoCAD平台下的地形图软件更能很好的满足客户的要求。 用AUTOLISP语言来编写等高线层、值相符检查程序，源码和说明如下： (defun C:DGXC() (setvar cmdecho 0) (
3、if (car (atoms-family 1 (vl-load-com) (vl-load-com) (setq dgj(getreal n 输入等高距: ) (setq sqx(getstring n 输入等高线首曲线层:) (setq sqxk(getreal n 输入首曲线宽度:) (setq jqx(getstring n 输入等高线计曲线层:) (setq jqxk(getreal n 输入计曲线宽度:) (setq ss (xzj sqx jqx) (setq n (sslength ss) i 0 x 0) (repeat n (setq stm (ssname ss i) (
4、setq object(vlax-ename-vla-object stm) (setq gcz (vla-get-Elevation object) (setq l_with(vla-get-ConstantWidth object) (if (= gcz 0) (vla-put-Color object 2) (setq tc(vla-get-Layer Object) (if (= dgj 2.5) (progn (setq km(rem gcz dgj) ; 为零对 (setq ys(rem (/ gcz dgj) 4.0) ; 为零计曲线 (PROGN (setq km(rem gc
5、z dgj ) (setq ys(rem (/ gcz dgj) 5.0) (if (/= km 0) (progn (vla-put-Color object 2) (setq x 1) ) (if (and (= ys 0) (= tc sqx) (progn (vla-put-Color object 2) (setq x 1) (if (and (/= ys 0) (= tc jqx) (progn (vla-put-Color object 2) (setq x 1) (setq i(+ 1 i) (vlax-release-object object) (if (= x 0) (a
6、lert 等高线层、值都相符) (setq kk (ssget x (list (-4 . (-4 . OR)(cons 62 2) (-4 . AND) (if kk (alert (strcat 图内共有 (itoa(sslength kk) 根曲线层、值不符，注意查改! ) (setq stm nil dgj nil km nil ys nil kk nil xx nil xxx nil) (setvar cmdecho 1) (defun xzj(lay1 lay2) (ssget x (list(-4 . ) (-4 . ) (-4 . AND) 以上代码经运行后，能够很好的检查地形
7、图等高线的图层、高程值和线宽是否与设计相符，并用不同的颜色值体现在窗口界面上。 四、结束语 国内很多的地形图编辑和入库软件都是建立在AutoCAD平台下的，因而利用AUTOLISP语言可以根据不同的需求进行二次开发，提高软件的编辑和检查功能，使我们在实际工作中大幅度降低生产成本，提高效率。 参考文献 【1】陈伯雄等.VisualLISP程序设计技巧与范例(第三版).北京:人民邮电出版社,2002 【2】胡仁喜等. AUTOLISP 机械设计高级应用实例.北京:机械工业出版社,2005 【3】邬伦等.地理信息系统.北京:电子工业出版社,2002 【4】黄杏元等.地理信息系统概论.北京:高等教育出版社,2001