AutoCAD平台下等高线程序检查实现

《AutoCAD平台下等高线程序检查实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、AutoCAD平台下等高线程序检查实现摘要：在地形图数据结构检查的过程中，利用程序来实现检查，可以大幅度降低生产成本，提高效率，本文主要是利用AUT0LISP语言编写程序来完成等高线所在图层及其属性值的检查，涉及到的软件平台为AutoCAD.关键词：AutoCAD等高线程序检查实现中图分类号：C37文献标识码：A文章编号：在地形图数据结构检查的过程中，应用程序来实现检查，可以大幅度降低生产成本，提高效率，现在以AUT0LISP语言编写的等高线检查程序为例，来谈谈自己的体会。一等高线数据结构检查主要包括：（一）线条设计规范检查等高线线条设计规范检查主要是检查

2、线条是否符合规范和设计要求，主要包括：线宽检查线型结构检查回头线检查重复线检查交叉线检查（二）图层和属性值检查（三）扩展属性检查扩展属性检查主要指根据设计的要求，对特定的属性进行检查，主要包括：属性码检查属性层检查属性值检查二等高线层、值相符检查程序代码的实现AUTOLISP语言是嵌套于AutoCAD内部的一种计算机表处理语言，其可以扩大图形的编辑功能，建立图形数据库和对数据库的访问和修改，其强大的功能使建立在AutoCAD平台下的地形图软件更能很好的满足客户的要求。用AUTOLISP语言来编写等髙线层、值相符检查程序，源码和说明如下：(defunC：DG

3、XC()(setvar"cmdecho”0)(if(car(atoms-family1'(vl-load-comv)))(vl—load—com))(setqdgj(getreala输入等髙距：“))(setqsqx(getstring"输入等高线首曲线层：”))(setqsqxk(getreal“输入首曲线宽度：”))(setqjqx(getstring“输入等高线计曲线层："))(setqjqxk(getreal“输入计曲线宽度：”))(setqss(xzjsqxjqx))(setqn(sslengthss)i0x0)(repeat

4、n(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(se

5、tqkm(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“等高线层、值都相符”))(s

6、etqkk(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>“))))以上代码经运行后，能够很好的检查地形图等高线的图层、高程值和线宽是否

7、与设计相符，并用不同的颜色值体现在窗口界面上。四、结束语国内很多的地形图编辑和入库软件都是建立在AutoCAD平台下的，因而利用AUT0LISP语言可以根据不同的需求进行二次开发，提高软件的编辑和检查功能，使我们在实际工作中大幅度降低生产成本，提高效率。参考文献[1]陈伯雄等.VisualLISP程序设计一技巧与范例（第三版）•北京：人民邮电出版社,2002[2]胡仁喜等.AUT0LISP机械设计高级应用实例.北京:机械工业出版社,2005[3]乌卩伦等.地理信息系统.北京：电子工业出版社,2002[4]黄杏元等•地理信息系统概论•北京：高等教育出版社,2

8、001