cad上机报告

  • 格式:doc
  • 大小:58.50 KB
  • 文档页数:2
(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)))
预习分
操作分
报告分
总成绩
实 验 报 告
学 号
姓 名
同 组 者
实验名称指导老师
班 级实验日期
实验报告具体内容一般应包括:一、实验目的和要求;二、实验原理;三、主要仪器设备(软件);四、实验内容及实验数据记录;五、实验数据处理与分析;六、问题与建议
一、 实验目的
进行道路平曲线设计,根据设计结果进行Autoliቤተ መጻሕፍቲ ባይዱp图形绘制
四、实验原理
确定圆曲线半径和缓和曲线长是平曲线设计的主要任务,考虑地形、地物、设计标准及线形协调等要求,半径R和缓和曲线长LS值根据不同情况可分别由外距E、切线长T及曲线上一点的支距to、yo求得。
五、实验内容
程序如下:
(defun c:QX(/ a E Ls l x y)
(setq a (getangle "\n Enter angle:"))
二、主要仪器设备(软件)
数字计算机,AutoCAD绘图软件。
三、实验内容
根据单交点平曲线设计计算公式进行平曲线设计并绘图。算例:某公路曲线偏角实测为30o47'28'',为保证曲线内侧一楼房不拆除,需控制曲线外距不大于8m。按预先选定缓和曲线长40m的要求进行平曲线设计计算与绘图(AutoLisp编程根据逐桩坐标计算仅绘制局部坐标系下第一回旋曲线段和圆曲线段)
(setq R (/ (+ (- 0 B) (sqrt (- (* B B) (*4.0000 AC)))) (*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))
)
)
六、实验成果
七、实验小结