基于AutoCAD的复杂线状地物符号开发.pdf

《基于AutoCAD的复杂线状地物符号开发.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第3期矿山测量No．32010年6月MINESURVEYINGJun．2010doi：lO．3969／j．issn．1001—358X．2010．03．008赢基于AutoCAD的复杂线状地物符号开发半杨永菊，乔旭宁．杨腊梅(1．河南理工大学测绘与国土信息工程学院，河南焦作454003；2．西安水利规划勘测设计院。陕西西安710054)摘要：运用AutoLISP语言与线型及形文件相结合开发复杂线状地物符号，建立线状地物图库，并将其制作为下拉菜单，可提高测绘及其它相关专业人员制图效率，同时为AUTOCAD的二次开发提供借鉴。关键词：AutoLIS

2、P；线状地物符号；编程语言中图分类号：P209文献标识码：B文章编号：1001—358X(2010}03—0024—02AutoCAD系统是一种通用的绘图软件系统．具012，2，O1C，1，016，040，10，(0．5，040)，2，010，备非常完善的绘图功能。但是各行各业都有自己的040，016，2，O1C，1，012，0设计规范和行业标准．而每个工程技术人员又各有PEIDI各的习惯和工作方式，因此，通用的绘图软件不可能A，2，[PE，pe．shx，S=1]，2完全满足每一个用户的需求⋯。测绘及相关专业人员用AutoCAD绘图时。每一种地

3、物的符号是固定的(2)篱笆而且多次使用，多次重复相同操作，效率低下。本文$132，5，XX用AutoCAD提供的二次开发编程语言——Aut0LISP020，2，016，02C，0语言与线型及形文件相结合开发线状符号．并对每LIBA一种类型的地物作一个符号图库，并将其制作为下A，5，一0．75，[XX，xx．shx，S=0．5]，一0．75拉菜单，直接调用，可提高制图效率。+——-_1l_1复杂线状地物的实现(3)栅栏复杂线状地物的实现过程有两种方法．一种是133，6，ZA用复杂线型自定义的方法开发一些较复杂的线状地01C，050，10，(1，0

4、40)，0物图例符号．另一种是用AutoLISP语言调用形的方ZHALAN法开发复杂的线状地物。A，5，[ZA，za．shx，S=1]，一2．51．1用复杂线型自定义方法开发线状地物复杂线型是AutoCAD从R13版本起新增的功(4)架空索道能．它使线型的定义不再局限于简单的线段、点和间；lcl34，8，SD隔．还可以在线型中嵌入文本字符或形文件中的形。020，02C，028，024，2，012，03C，0在复杂线型的定义中．描述行中除了简单线型的线SUODOU段、点和间隔外。增加了用方括号括起的特殊参数，A，2，[SD，sd．shx，S=0．

5、5]，lO，[SD，sd．shx，S=用以告诉AutoCAD系统如何嵌人文本或形I2]。配电0．5]，2线、篱笆等较复杂线状地物的实现过程如下：(1)配电线131．19。PE1．2AutoLISP语言开发复杂的线状地物AutoLISP是嵌人在AutoCAD内部的LISP编程基金项目：河南理工大学青年基金IQ2010—59)和河南理工大学博士基金《B2010—51)资助。语言。它采用了LISP语言中CommonLISP的语法和第3期杨永菊等：基于AutoCAD的复杂线状地物符号开发2010年6月习惯约定，同时在其基础上扩充了很多专用函数。这使得它

6、既具有CommonLISP的一些特性．又可以把AutoLISP程序和AutoCAD命令结合起来。使用Au．(setqpl(getpoint”请输入第一点：”))toLISP可以实现对AutoCAD当前图形文件的图形数(setqp2(getpoint”请输入下一点：”))据库进行直接访问和修改、定义新的AutoCAD命令、(setqys0)实现参数化绘图、扩充AutoCAD的现有功能等。(whilep2下面以公路和围墙的开发为例．介绍基于AutoLISP(setqa(angleplp2))的复杂线状地物的二次开发过程。(setqb(angtosa

7、))(1)公路(setqp0(polarpl(+pia)ys))(defunC：gonglu()(setqjl(distancep0p2))(setqpl(getpoint”请输入第一点：”))(setqds(／jl10))(setqp2(getpoint”请输入下一点：”))(setqys(rcmjl10))(setqys0)(setqp3(polarp0a10))(whilep2(setqn0)(setqpl(polarpl(+(／(}3pi)2)b)0．(while(<=n(一ds．1))1))fcommand”shape””WEIQIA

8、NG”p3”1”b(setqp2(polarp2(+(／(}3pi)2)b)0．．．．。、，1))(setqp3(polarp3a10))(setqp