在autocad中缓和曲线的几种画法

在autocad中缓和曲线的几种画法

ID:25409983

大小:417.27 KB

页数:11页

时间:2018-11-20

在autocad中缓和曲线的几种画法_第1页
在autocad中缓和曲线的几种画法_第2页
在autocad中缓和曲线的几种画法_第3页
在autocad中缓和曲线的几种画法_第4页
在autocad中缓和曲线的几种画法_第5页
资源描述:

《在autocad中缓和曲线的几种画法》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、窗体底端在AutoCAD中缓和曲线的几种画法2011-06-2520:32   在AutoCAD中画缓和曲线比较困难,目前常用的画法有AutoLISP程序法(需要已知曲线要素)、坐标脚本法(需事先计算好各特征点及其他点为的坐标)、曲线命令法(需事先准备各特征点坐标),现分别介绍如下:画法一:缓和曲线AutoLISP 应用程序 一、制作缓和曲线AutoLISP 应用程序   复制AutoLISP程序源代码,打开“记事本”,粘贴进去后,另存为文件名“缓和曲线.LSP”,保存类型为“所有文件”(AutoLISP程序源代码见附件 )二、加载缓和曲线AutoLISP应用程序在命令行输入“appload

2、”打开自动加载对话框。在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序,选中后,点击【加载】,显示“已成功加载缓和曲线.LSP”后,关闭对话框,ok你那个程序自动启动加载了。三、在CAD中画出切线长四、运行程序在命令行中输入hh回车五、选择两条切线,然后输入曲线半径如:2204.5回车六、输入缓和曲线长,如270,绘图完成! 画法二:坐标脚本法1.现做一个CAD脚本,会的人跳过(用Windows文本另存为“.scr”文件)2.脚本编辑输入“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”以此类推!点输的越密,线条越平滑。也可以用EXCEL算出各个点的坐标后

3、粘贴进去,然后按照“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标……”格式编辑。3.进入CAD,运行脚本,就行了!注意:你可能输入了100个点,而出现的确只有几个点,这个很正常,你把图像删除了,多运行几次就行,一般不超过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

4、.9548Y=92.1117HY:X=285.3608Y=94.4667QZ:X=311.8101Y=99.2371YH:X=336.9780Y=108.6801HZ:X=383.6319Y=133.7401使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下:Command(命令):Spline(启动真样条曲线命令)object/(指定起点):232.9548,92.1117(通过ZH)Enterpoint:285.3608,94.4667Close/FitTolerance/(指定下一个点):311.8101,99.2371

5、<通过QZ>Close/FitTolerance/(指定下一个点):336.9708,108.6801<通过YH>Close/FitTolerance/(指定下一个点):383.6319,133.7401<通过HZ>Close/FitTolerance/(指定下一个点):<加如回车>(选择输入切点的模式)Enterstartangent(指定起点切向):232.9548,92.1117(输入起点切点)Enterstartangent(指定端点切向):383.6319,133.7401(输入终点的切点) 附件:缓和曲线Au

6、toLISP 程序源代码 ;;多义线摹拟缓和曲线。;;输入起止直线、半径、缓和曲线长或设计车速。;;命令:HH(defuncom_p()  (setql  0) (command"ucs""o"(list(-0x1)00)) (command"pline"(list000)"w""0"""   (repeat1000     (setql(+l(/Ls1000))           x(+(-l(/(*lllll)40CC))(/(*lllllllll)3456CCCC))           y(*id__(+(-(/(*lll)6C)(/(*lllllll)336CCC))(/(*ll

7、lllllllll)42240CCCCC)))     );setq     (command(listxy0))   );repaet );command  (setqpt5(trans(listxy0)10)) );com_p(defunll_v() (setqV  (getreal"GiveVelocity:")       Ls1(*V0.85)       Ls2(/(*0.0357VVV)R)

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。