LISP语言在A道路设计中的各种应用..doc

第三章LISP语言在CAD道路设计中地各种应用 3.1绘制平面任意函数曲线地AutoLISP程序设计 在各个工程设计领域中，经常要绘制一些曲线，特别是平面曲线，如水工结构地溢流曲线. 机械没计地齿轮渐开曲线等.在AutoCAD绘图软件中，可以将曲线上地点先计算好,再用线.多 义线.样条曲线等方法绘制,这种方法需要进行大U计算,工作:W:较大，如果用EXCEL软件来辅 助计算，可以减轻工作S;另外，可以针对具体地曲线类型，用AutoCAD内嵌地AutoLISP语言， 实现边计算边绘制地功能.用这种方法绘制里然快捷，但对于不同地曲线，则需编写同地 AutoLISP程序，检查无误后才能运行，仍显繁琐.能否用统一地程序，來实现各种平面函数曲线 地绘制，我们尝试利用AutoCAD中强大地表达式计算功能來实现这一目地. 3.1.1平面函数曲线地类型和绘制方法 平面函数曲线即是有简单函数表达式地曲线类型，可考虑经常遇到地4类： 直角坐标下形如y=f(x)地曲线； 直角平标下地参数方程曲线； 极坐标下形如r=f(0)地曲线； 极坐标下地参数方程曲线. 其中，只需增加一个平凡方程x=x，参数方程(2)就可以包括相应地直接表达形式(1)，同样 (4)可以包括(3).同时，极坐标形式可以通过： x=rcos0 y=rsin0 转换为直角坐标表达.因此从本质上说，4种类型都可以互相转换，把它们分类地R地是尽量采 用函数地通常表达形式，以便于使用.绘制时，参照曲线地手工绘制方法，需要给出曲线上地多 个点，然后将它们连接起来.若给出地点间隔很小，直接用折线段相连就可很好模拟该曲线，如 果间隔较大，可以用样条曲线连接，使之比较光滑.假设我们计算出足够多地点，简单川折线连 接即可，为使该曲线成为一个整体，可用多义线地方式连接. 关键地问题是，如何计算出曲线上点地坐标.巾于曲线地函数表达式各种各样，不可能用 统一地式子来表示.可以考虑从外部输入表达式，然后针对该表达式进行计算，给出相应结果， 就能够解决点坐标地计算问题.但这个功能地实现比较困难，幸好AutoCAD为我们提供了 CAL命令，可以对任意地表达式进行计算.该命令由函数库文件geomcal.arx提供，支持科学/ 工程计算器卜.地大多数标准函数，如三角函数.指数.对数等.若表达式中有变量，而该变量在程 序屮已设定了伉，则按该值进行计算.巾于该函数不是LISP A部函数，为使之可用，需要用 ARXLOAD命令载入文件geomcal.arx，或者在命令行先输入CAL命令，由系统自动载入，这样， 程序中就可以使用该函数了.总地程序定义为cxurveO,以便在AutoCAD命令行中与通常地 命令一样使用.程序地总调用部分为： (arxload geomcal.arx)；载入提供表达式计算功能地ARX文件 (vl- arx- import *c:cal)；让命令 c:cal 能够使用 (princ (1)直角坐标下曲线y=f(x).\n) (princ (2)直角坐标下参数曲线x=f(i)，y=g⑴An) (princ n(3)极坐标下曲线 r=f(theta).\n) (princ (4)极坐标下参数曲线 theta=f(i)，r=g(i).\n) (setq ichoice (getint ”选择绘制曲线类型：))；选择曲线类型 (if(= ichoicc 1) (curve 1))；调用曲线绘制类型 1 (if (= ichoice 2) (curve2))；调用曲线绘制类型 2 (if (= ichoice 3) (curve3))；调川曲线绘制类型 3 (if (= ichoice 4) (curve4))；调用曲线绘制类型 4 根据用户选择地曲线类型，转到相应地曲线类型绘制函数屮，依次为直角坐标下地普通函 数.参数方程，极坐标下地普通函数和参数方程. 3.1.2直角坐标下函数y=f(x)地曲线绘制 直角坐标卜绘制函数曲线y=f(x)定义为AutoLISP子程序curvel，该子程序没有传入传出 参数.程序地第一个步骤是读入有关地参数和控制变量.首先读入y=f(x)地表达式，然后输入自 变量X地变化范围［low，up］，接着根掘模拟精度，输入曲线剖分数目steps,X地变化步长即为 step=(up- low)/steps，该步骤相应地AutoLISP程序如下： (setq funy (getstring y=f(x)地表达式:))(setq low(getreal nx 地下限值:?)) (setq up (getreal x 地上限值:)) (setq steps (getint ’’ 剖分数目:’?)) (setq step (/ (- up low) steps)) 接下来就开始曲线地绘制，首