欢迎来到天天文库
浏览记录
ID:47682042
大小:562.88 KB
页数:7页
时间:2020-01-25
《缓和曲线CAD画法》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、.word格式,在AutoCAD中缓和曲线的几种画法2011-06-2520:32在AutoCAD中画缓和曲线比较困难,目前常用的画法有AutoLISP程序法(需要已知曲线要素)、坐标脚本法(需事先计算好各特征点及其他点为的坐标)、曲线命令法(需事先准备各特征点坐标),现分别介绍如下:画法一:缓和曲线AutoLISP应用程序一、制作缓和曲线AutoLISP应用程序复制AutoLISP程序源代码,打开“记事本”,粘贴进去后,另存为文件名“缓和曲线.LSP”,保存类型为“所有文件”(AutoLISP程序源代
2、码见附件 )二、加载缓和曲线AutoLISP应用程序 在命令行输入“appload”打开自动加载对话框。在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序,选中后,点击【加载】,显示“已成功加载缓和曲线.LSP”后,关闭对话框,ok你那个程序自动启动加载了。,专业.专注..word格式,三、在CAD中画出切线长四、运行程序在命令行中输入hh回车五、选择两条切线,然后输入曲线半径 如:2204.5回车,专业.专注..word格式,六、输入缓和曲线长,如270,绘图完成!,专业.专注..word格式
3、, 画法二:坐标脚本法1.现做一个CAD脚本,会的人跳过(用Windows文本另存为“.scr”文件)2.脚本编辑输入“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”以此类推!点输的越密,线条越平滑。也可以用EXCEL算出各个点的坐标后粘贴进去,然后按照“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”格式编辑。3.进入CAD,运行脚本,就行了!注意:你可能输入了100个点,而出现的确只有几个点,这个很正常,你把图像删除了,多运行几次就行,一般不超过
4、4次。 画法三:使用真样条曲线命令举例如下:输入导线:pline命令绘制1、2、3各点,其对应坐标如下x1=213.7748y1=92.1117x2=313.7748y2=92.1117x3=399.6787y3=143.3026绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。通过计算,五个点的直角坐标为:ZH:X=232.9548Y=92.1117HY:X=285.3608Y=94.4667QZ:X=311.8101Y=99.2371YH:X=336.9780Y=108.
5、6801HZ:X=383.6319Y=133.7401使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下:Command(命令):Spline(启动真样条曲线命令)object/(指定起点):232.9548,92.1117(通过ZH)Enterpoint:285.3608,94.4667Close/FitTolerance/(指定下一个点):311.8101,99.2371<通过QZ>Close/FitTolerance/6、oint>(指定下一个点):336.9708,108.6801<通过YH>Close/FitTolerance/(指定下一个点):383.6319,133.7401<通过HZ>Close/FitTolerance/(指定下一个点):<加如回车>(选择输入切点的模式)Enterstartangent(指定起点切向):232.9548,92.1117(输入起点切点)Enterstartangent(指定端点切向):383.6319,133.7401(输入终点的7、切点)附件:缓和曲线AutoLISP程序源代码;;多义线摹拟缓和曲线。;;输入起止直线、半径、缓和曲线长或设计车速。;;命令:HH(defuncom_p()(setql0)(command"ucs""o"(list(-0x1)00))(command"pline"(list000)"w""0""",专业.专注..word格式,(repeat1000(setql(+l(/Ls1000))x(+(-l(/(*lllll)40CC))(/(*lllllllll)3456CCCC))y(*id__(+(-(/(8、*lll)6C)(/(*lllllll)336CCC))(/(*lllllllllll)42240CCCCC))));setq(command(listxy0)));repaet);command(setqpt5(trans(listxy0)10)));com_p(defunll_v()(setqV(getreal"GiveVelocity:")Ls1(*V0.85)Ls2(/(*0.0357VVV)R)Ls(maxLs1Ls2(/R9
6、oint>(指定下一个点):336.9708,108.6801<通过YH>Close/FitTolerance/(指定下一个点):383.6319,133.7401<通过HZ>Close/FitTolerance/(指定下一个点):<加如回车>(选择输入切点的模式)Enterstartangent(指定起点切向):232.9548,92.1117(输入起点切点)Enterstartangent(指定端点切向):383.6319,133.7401(输入终点的
7、切点)附件:缓和曲线AutoLISP程序源代码;;多义线摹拟缓和曲线。;;输入起止直线、半径、缓和曲线长或设计车速。;;命令:HH(defuncom_p()(setql0)(command"ucs""o"(list(-0x1)00))(command"pline"(list000)"w""0""",专业.专注..word格式,(repeat1000(setql(+l(/Ls1000))x(+(-l(/(*lllll)40CC))(/(*lllllllll)3456CCCC))y(*id__(+(-(/(
8、*lll)6C)(/(*lllllll)336CCC))(/(*lllllllllll)42240CCCCC))));setq(command(listxy0)));repaet);command(setqpt5(trans(listxy0)10)));com_p(defunll_v()(setqV(getreal"GiveVelocity:")Ls1(*V0.85)Ls2(/(*0.0357VVV)R)Ls(maxLs1Ls2(/R9
此文档下载收益归作者所有