《6Autolisp道路工程辅助设计》由会员分享，可在线阅读，更多相关《6Autolisp道路工程辅助设计（3页珍藏版）》请在金锄头文库上搜索。
1、实验报告具体内容一般应包括：一、实验目的和要求;二、实验原理;三、主要仪器设备（软件）;四、实验内容及实验数据记录;五、实验数据处理与分析;六、问题与建议一、实验目的进行道路平曲线设计，根据设计结果进行Autolisp图形绘制。二、实验内容根据单交点平曲线设计计算公式进行平曲线设计并绘图。算例：某公路曲线偏角实测为30 47， 28，为保证曲线内侧一楼房不拆除，需控制曲线外距不大于8m。按预先选定缓和曲线长40m 的要求进行平曲线设计计算与绘图（AutoLisp编程根据逐桩坐标计算仅绘制局部坐标系下第一 回旋曲线段和圆曲线段，参考教材pl06 ）。三、实验仪器、设备及材料数字计算机，AutoC
2、AD绘图软件。四、实验原理单交点平曲线设计确定圆曲线半径和缓和曲线长是平曲线设计的主要任务。考虑地形、地物、设计标准及线形协 调等要求，半径R和缓和曲线长LS值根据不同情况可分别由外距E、切线长T及曲线上任一点 的支距t , y求得。程序代码如下：图戸单交点平曲践(defun c:QX(/ a E Ls l x y)(setq a (getangle n Enter angle:)(setq E (getdist n Enter distance:)(setq Ls (getdist n Enter distance:)(setq A (- (/ 1.0000 (cos (/ a 2.0000
3、) 1)(setq B (- 0 E)(setq C (* (/ 1.0000 (cos (/ a 2.0000) (/ (* Ls Ls) 24)(setq R (/ (+ (- 0 B) (sqrt (- (* B B) (* 4.0000 A C) (* 2.0000 A)(setq l 2)(setq Pl (list 0 0)(while (= l 40)(setq x (- l (/ (* l l l l l) (* (* 40 R R) (* Ls Ls)(setq y (/ (* l l l) (* 6.0000 R Ls)(setq P2 (list x y)(Command LINE Pl P2 )(setq l (+ l 2)(setq Pl (list x y)在命令行输入QX，按照提示依次输入角度30.79，距离8、40，则，cad自动绘制图形如下:五、问题与建议这次实验是AutoCAD用于工程上的实践，用Autolisp编写程序完成缓和曲线的绘制，这是 Autolisp语言命令的综合运用。本实验的难点是不能很好的将绘制缓和曲线的逻辑思路转化成 lisp语言，在编写的过程中总是出现这样或那样的错误，通过不断地检查修改才能够完善程序， 画出缓和曲线。
