基于AutoCAD的圆柱压缩弹簧的参数化绘图.pdfVIP

维普资讯 维普资讯 《重型机械科技~2oo5年第2期 (1)创建圆柱螺旋线 ：首先创建下支撑圈螺 (setqr(getreal”请输人弹簧平均半径：”)) 旋线 ，节距为弹簧丝直径 ；再创建工作圈螺旋线 ， (setqdO(getreal”请输人弹簧丝直径 ：”)) 节距为弹簧节距；然后创建上支撑圈螺旋线 ，节距 (setqs(getreal”请输人弹簧节距 ：”)) 为弹簧丝直径。注意应该使用三维多端线连续绘 (setqnO(getint”请输入弹簧工作圈数 ：”)) 制。 (setqn(getint”请输入每圈细化段数 (2)创建弹簧截面：变换坐标系 (将轴剖面作 (32／36／40／44／48／52／56／60)：”)) 为xy平面)，以螺旋线端点为圆t2,绘制弹簧截面。 (setqnl( 1．25n)) ；支撑圈细化段数 (3)拉伸实心体 ：以圆截面为母线 ，以螺旋线 (setqnl(fixn1)) 为导线 ，拉伸圆柱螺旋面。 (setqn2( nOn)) ；工作圈细化段数 (4)切割上下端面磨平部分 ：坐标变换 (恢复 (setqdelta(／( 2．0pi)n)) ；单位转角 到世界坐标系)，用水平面通过螺旋线上端点 向 (setqj(／Sn)) ；工作圈轴 向位移量 下 1／2弹簧丝半径处切割 (切去 3／4)，去掉上面 (setqj0(／dOn)) ；支撑圈轴向位移量 部分。同样用水平面通过螺旋线下端点向上 1／2 (setqbb(caddrp1)) 弹簧丝半径处切割 (切去 34／ 圆)，去掉下面部 (setqang0) 分 。 (setqJJ0) (command”UCS””0”p1) 2 参数化编程设计 (setqptl(1istr00)) 图2所示为圆柱压缩弹簧设计程序 的流程 (command”3dpoly”pt1) 图。 (repeatnl ；绘制下支撑图 (setqJJ(+JJ1)) 输入pl、r、dO、s、nO、n (setqang(+deltaang)) l 计算n1、n2、delta、j、jo (setqpt(1ist( r(COSang)) l ( r(sinang))( j0JJ))) 画螺旋线 (comm andpt)) I (setqp2(1ist00( j0JJ))) 计算Ho、上、下支撑 圈高度 (setq