lisp语言在cad道路设计中的各种应用

《lisp语言在cad道路设计中的各种应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第三章LISP语言在CAD道路设计中地各种应用3.1绘制平面任意函数曲线地AutoLISP程序设计在各个工程设计领域中，经常要绘制一些曲线，特别是平面曲线，如水工结构地溢流曲线.机械没计地齿轮渐开曲线等.在AutoCAD绘图软件中，可以将曲线上地点先计算好,再用线.多义线.样条曲线等方法绘制,这种方法需要进行大U计算,工作:W:较大，如果用EXCEL软件来辅助计算，可以减轻工作S;另外，可以针对具体地曲线类型，用AutoCAD内嵌地AutoLISP语言，实现边计算边绘制地功能.用这种方法绘制里然快捷，但对于不同地曲线，则需编写同地AutoLISP程序，检查无误后才能运

2、行，仍显繁琐.能否用统一地程序，來实现各种平面函数曲线地绘制，我们尝试利用AutoCAD中强大地表达式计算功能來实现这一目地.3.1.1平面函数曲线地类型和绘制方法平面函数曲线即是有简单函数表达式地曲线类型，可考虑经常遇到地4类：(1)直角坐标下形如y=f(x)地曲线；(2)直角平标下地参数方程曲线；(3)极坐标下形如r=f(0)地曲线；(4)极坐标下地参数方程曲线.其中，只需增加一个平凡方程x=x，参数方程(2)就可以包括相应地直接表达形式(1)，同样(4)可以包括(3).同时，极坐标形式可以通过：x=rcos0y=rsin0转换为直角坐标表达.因此从本质上说，4种

3、类型都可以互相转换，把它们分类地R地是尽量采用函数地通常表达形式，以便于使用.绘制时，参照曲线地手工绘制方法，需要给出曲线上地多个点，然后将它们连接起来.若给出地点间隔很小，直接用折线段相连就可很好模拟该曲线，如果间隔较大，可以用样条曲线连接，使之比较光滑.假设我们计算出足够多地点，简单川折线连接即可，为使该曲线成为一个整体，可用多义线地方式连接.关键地问题是，如何计算出曲线上点地坐标.巾于曲线地函数表达式各种各样，不可能用统一地式子来表示.可以考虑从外部输入表达式，然后针对该表达式进行计算，给出相应结果，就能够解决点坐标地计算问题.但这个功能地实现比较困难，幸好Au

4、toCAD为我们提供了CAL命令，可以对任意地表达式进行计算.该命令由函数库文件geomcal.arx提供，支持科学/工程计算器卜.地大多数标准函数，如三角函数.指数.对数等.若表达式中有变量，而该变量在程序屮已设定了伉，则按该值进行计算.巾于该函数不是LISPA部函数，为使之可用，需要用ARXLOAD命令载入文件geomcal.arx，或者在命令行先输入CAL命令，由系统自动载入，这样，程序中就可以使用该函数了.总地程序定义为cxurveO,以便在AutoCAD命令行中与通常地命令一样使用.程序地总调用部分为：(arxload"geomcal.arx")；载入提供表

5、达式计算功能地ARX文件(vl-arx-import*c:cal)；让命令c:cal能够使用(princ"(1)直角坐标下曲线y=f(x).")(princ"(2)直角坐标下参数曲线x=f(i)，y=g⑴An")(princn(3)极坐标下曲线r=f(theta).")(princ"(4)极坐标下参数曲线theta=f(i)，r=g(i).")(setqichoice(getint”选择绘制曲线类型："))；选择曲线类型(if(=ichoicc1)(curve1))；调用曲线绘制类型1(if(=ichoice2)(curve2))；调用曲线绘制类型2(if

6、(=ichoice3)(curve3))；调川曲线绘制类型3(if(=ichoice4)(curve4))；调用曲线绘制类型4根据用户选择地曲线类型，转到相应地曲线类型绘制函数屮，依次为直角坐标下地普通函数.参数方程，极坐标下地普通函数和参数方程.3.1.2直角坐标下函数y=f(x)地曲线绘制直角坐标卜绘制函数曲线y=f(x)定义为AutoLISP子程序curvel，该子程序没有传入传出参数.程序地第一个步骤是读入有关地参数和控制变量.首先读入y=f(x)地表达式，然后输入自变量X地变化范围［low，up］，接着根掘模拟精度，输入曲线剖分数目steps,X地变化步长即

7、为step=(up-low)/steps，该步骤相应地AutoLISP程序如下：(setqfuny(getstring"y=f(x)地表达式:"))(setqlow(getrealnx地下限值:•'))(setqup(getreal"x地上限值:"))(setqsteps(getint’’剖分数目:’•))(setqstep(/(-uplow)steps))接下来就开始曲线地绘制，首先启动绘制多义线地命令，接着自变量X从下限值开始，由f(x)地表达式计算y平标值，将该点地坐标输入到命令行，得到曲线地起点，然后自变量X递增一个步长,计算下一个坐点，曲线