公路设计中的缓和曲线在cad中绘制时一直是个难题

《公路设计中的缓和曲线在cad中绘制时一直是个难题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、公路设计中的缓和曲线在CAD中绘制时一直是个难题。本人有一种简单的办法可以做到。望顶。输入导线：pline命令绘制1、2、3各点，其对应坐标如下     x1=213.7748   y1=92.1117        x2=313.7748    y2=92.1117        x3=399.6787    y3=143.3026     绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。通过计算，五个点的直角坐标为：ZH：X=232.9548 Y=92.1117HY：X=285.3608 Y=94.4667QZ：X

2、=311.8101 Y=99.2371YH：X=336.9780 Y=108.6801HZ：X=383.6319 Y=133.7401使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下：Command: Spline(启动真样条曲线命令)object/:232.9548,92.1117(通过ZH)Enter point :285.3608,94.4667Close/Fit Tolerance/:311.8101,99.2371<通过QZ>Close/Fit Tolerance/

3、:336.9708,108.6801<通过YH>Close/Fit Tolerance/:383.6319,133.7401<通过HZ>Close/Fit Tolerance/:<加如回车>（选择输入切点的模式）Enter star tangent:232.9548,92.1117   (输入起点切点)Enter star tangent:383.6319，133.7401  （输入终点的切点）---------------------------------------

4、以上是如何绘制缓和曲线的办法了， 如何在CAD中画缓和曲线学习发表于2010-4-1615:51:41分使用道具小中大楼主一、在CAD中画出切线长二、运行程序：在命令行中输入hh回车三、选择两条切线，然后输入曲线半径如：2204.5回车四、输入缓和曲线长，如270，绘图完成！如图记事本格式内容，新建的lisp语言，在CAD中要先加载;;多义线摹拟缓和曲线。;;输入起止直线、半径、缓和曲线长或设计车速。;;命令：HH(defuncom_p()　(setql　0)　(command"ucs""o"(list(-0x1)00))　(command"pli

5、ne"(list000)"w""0"""　　(repeat1000　　　(setql(+l(/Ls1000))　　　　　　x(+(-l(/(*lllll)40CC))(/(*lllllllll)3456CCCC))　　　　　　y(*id__(+(-(/(*lll)6C)(/(*lllllll)336CCC))(/(*lllllllllll)42240CCCCC)))　　　);setq　　　(command(listxy0))　　);repaet　);command　(setqpt5(trans(listxy0)10)));com_p(defunll

6、_v()　(setqV　(getreal"GiveVelocity:")　　　　Ls1(*V0.85)　　　　Ls2(/(*0.0357VVV)R)　　　　Ls　(maxLs1Ls2(/R9))　　　　Ls　(*(fix(/Ls10))10.0)　);setq　(if(>LsR)(setqLsR))　(ll_d));ll_v(defunll_d()　(setqos(getvar"osmode"))　(setvar"osmode"0)　(setqC　(*LsR)　　　　q　(-(+(-(/Ls2)(/(*LsLsLs)240RR))(/(*LsL

7、sLsLsLs)34560RRRR))(/(*LsLsLsLsLsLsLs)8386560RRRRRR))　　　　pt1(cdr(assoc10(entget(carp1))))　　　　pt2(cdr(assoc11(entget(carp1))))　　　　pt10(polarpt1(anglept1pt2)(/(distancept1pt2)2))　　　　pt3(cdr(assoc10(entget(carp2))))　　　　pt4(cdr(assoc11(entget(carp2))))　　　　pt20(polarpt3(anglept3pt4

8、)(/(distancept3pt4)2))　　　　p　(+(-(/(*LsLs)24R)(/(*LsLsLsLs)268