AutoCAD平台下等高线程序检查实现摘要：在地形图数据结构检查的过程中，利用程序来实现检查，可以大幅度降低生产成本，提高效率，本文主要是利用AUT0LISP语言编写程序来完成等高线所在图层及其属性值的检查，涉及到的软件平台为AutoCAD.关键词：AutoCAD等高线程序检查实现中图分类号：C37文献标识码：A文章编号：在地形图数据结构检查的过程中，应用程序来实现检查，可以大幅度降低生产成本，提高效率，现在以AUT0LISP语言编写的等高线检查程序为例，来谈谈自己的体会。一等高线数据结构检查主要包括：（一）线条设计规范检查等高线线条设计规范检查主要是检查线条是否符合规范和设计要求，主要包括：线宽检查线型结构检查回头线检查重复线检查交叉线检查（二）图层和属性值检查（三）扩展属性检查(setqsqx(getstring"\n输入等高线首曲线层：”))扩展属性检查主要指根据设计的要求，对特定的属性进行检查，主要包括：属性码检查属性层检查属性值检查二等高线层、值相符检查程序代码的实现AUTOLISP语言是嵌套于AutoCAD内部的一种计算机表处理语言，其可以扩大图形的编辑功能，建立图形数据库和对数据库的访问和修改，其强大的功能使建立在AutoCAD平台下的地形图软件更能很好的满足客户的要求。用AUTOLISP语言来编写等髙线层、值相符检查程序，源码和说明如下：(defunC：DGXC()(setvar"cmdecho”0)(if(car(atoms-family1'(vl-load-comv)))(vl—load—com))(setqdgj(getreala\n输入等髙距：“))(setqsqxk(getreal“\n输入首曲线宽度：”))(setqjqx(getstring“\n输入等高线计曲线层："))(setqjqxk(getreal“\n输入计曲线宽度：”))(setqss(xzjsqxjqx))(setqn(sslengthss)i0x0)(repeatn(setqstm(ssnamessi))(setqobject(vlax-ename-〉vla-objectstm))(setqgcz(vla-get-Elevationobject))(setql_with(vla-get-ConstantWidthobject))(if(二gcz0)(vla-put-Colorobject2))(setqtc(vla-get-LayerObject))(if(=dgj2.5)(progn(setqkm(remgczdgj))；；为零对(setqys(rem(/gczdgj)4.0)))；；为零计曲线(PROGN(setqkm(remgczdgj))(setqys(rem(/gczdgj)5.0))))(if(/=km0)(progn(vla-put-Colorobject2)(setqx1)))(if(and(=ys0)(=tcsqx))(progn(vla-put-Colorobject2)(setqx1)))(if(and(/=ys0)(=tcjqx))(progn(vla-put-Colorobject2)(setqx1)))(setqi(+1i)))(vlax-release-objectobject)(if(=x0)(alert“等高线层、值都相符”))(setqkk(ssget“x”(list气一4・“'(-4.“0R>“)(cons622)(ifkk'(-4.“AND>“))))(alert(strcat"图内共有”(itoa(sslengthkk))“根曲线层、值不符，注意查改！”)))(setqstmnildgjnilkmnilysnilkknilxxnilxxxnil)(setvar“cmdecho”1))(defunxzj(layllay2)(ssget"x”(list'(-4."")'(-4."")'(-4.“AND>“))))以上代码经运行后，能够很好的检查地形图等高线的图层、高程值和线宽是否与设计相符，并用不同的颜色值体现在窗口界面上。四、结束语国内很多的地形图编辑和入库软件都是建立在AutoCAD平台下的，因而利用AUT0LISP语言可以根据不同的需求进行二次开发，提高软件的编辑和检查功能，使我们在实际工作中大幅度降低生产成本，提高效率。参考文献[1]陈伯雄等.VisualLISP程序设计一技巧与范例（第三版）•北京：人民邮电出版社,2002[2]胡仁喜等.AUT0LISP机械设计高级应用实例.北京:机械工业出版社,2005[3]乌卩伦等.地理信息系统.北京：电子工业出版社,2002[4]黄杏元等•地理信息系统概论•北京：高等教育出版社,2001