关于等高线检查程序探究.docVIP

关于等高线检查程序探究 　　摘要：在地形图数据结构检查的过程中，利用程序来实现检查，可以大幅度降低生产成本，提高效率，本文主要是利用AUTOLISP语言编写程序来完成等高线所在图层及其属性值的检查，涉及到的软件平台为AutoCAD． 关键词：AutoCAD，等高线， 检查程序，研究 Abstract: in the topographic map data structure of the examination process, use program to realize the check, can reduce the production cost, improve efficiency, this paper is mainly use AUTOLISP language programming to complete contour and the attribute values in the layer check, involves platform as AutoCAD. Keywords: AutoCAD, contours, check programs, research 中图分类号：TU74文献标识码：A 文章编号： 在地形图数据结构检查的过程中，应用程序来实现检查，可以大幅度降低生产成本，提高效率，现在以AutoCAD平台下利用 AUTOLISP语言编写的等高线检查程序为例，来谈谈自己的体会。 一 等高线数据结构检查主要包括： （一)线条设计规范检查 等高线线条设计规范检查主要是检查线条是否符合规范和设计要求，主要包括： 线宽检查 线型结构检查 回头线检查 重复线检查 交叉线检查 （二） 图层和属性值检查 （三） 扩展属性检查 扩展属性检查主要指根据设计的要求，对特定的属性进行检查，主要包括： 属性码检查 属性层检查 属性值检查 二 等高线层、值相符检查程序代码的实现 AUTOLISP语言是嵌套于AutoCAD内部的一种计算机表处理语言，其可以扩大图形的编辑功能，建立图形数据库和对数据库的访问和修改，其强大的功能使建立在 AutoCAD平台下的地形图软件更能很好的满足客户的要求。 用AUTOLISP语言来编写等高线层、值相符检查程序，源码和说明如下： (defun C:DGXC() (setvar “cmdecho” 0) (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)) (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 gcz 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) (=