原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
6.Autolisp道路工程辅助设计
实验报告具体内容一般应包括：一、实验目的和要求;二、实验原理;三、主要仪器设备 软件 ;四、实验内容及实验数据记录;五、实验数据处理与分析;六、问题与建议
一、 实验目的
进行道路平曲线设计，根据设计结果进行Autolisp图形绘制。
二、 实验内容
根据单交点平曲线设计计算公式进行平曲线设计并绘图。算例：某公路曲线偏角实测为30°47′28″，为保证曲线内侧一楼房不拆除，需控制曲线外距不大于8m。按预先选定缓和曲线长40m的要求进行平曲线设计计算与绘图（AutoLisp 编程根据逐桩坐标计算仅绘制局部坐标系下第一回旋曲线段和圆曲线段，参考教材p106）。
三、 实验仪器、设备及材料
数字计算机，AutoCAD绘图软件。
四、 实验原理
单交点平曲线设计
确定圆曲线半径和缓和曲线长是平曲线设计的主要任务。考虑地形、地物、设计标准及线形协调等要求，半径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 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 P1 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 P1 P2 setq l + l 2 setq P1 list x y 在命令行输入QX，按照提示依次输入角度30.79，距离8、40，则，cad自动绘制图形如下：
五、问题与建议 这次实验是AutoCAD用于工程上的实践，用Autolisp编写程序完成缓和曲线的绘制，这是Autolisp语言命令的综合运用。本实验的难点是不能很好的将绘制缓和曲线的逻辑思路转化成lisp语言，在编写的过程中总是出现这样或那样的错误，通过不断地检查修改才能够完善程序，画出缓和曲线。
·2·
文档评论（0）