基于AutoLISP程序的圆环零件排料设计.pdf

《基于AutoLISP程序的圆环零件排料设计.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基于AutoLISP程序的圆环零件排料设计邯郸新兴重型机械有限公司(河北056017)李振合李平军常根生杨利芬我公司生产中常有圆环零件，如裙座底板、支撑的尺寸”)圈、大直径法兰等。该类零件的特点是直径较大，环的(setqRw(getreal”＼n请输入大圆直径mm：”))宽度与直径相比很小。因为板宽及节省材料的原因，该(setqRn(getreal”＼n请输入小圆直径mm：”))(if(>=RnRw)类零件一般需要分瓣下料，拼焊成形，然后加工。一般工序为：1／n下料一拼焊一校平一机加工(焊缝探伤及焊后热处理根据零

2、件要求增加)。1．数学模型的建立与分析圆环类零件分瓣下料，拼焊成形可以显著节省材料(如附图所示，1／3下料比整圆下料节省近50％，1／4下所需下料面积：0．5DX0．649D：O．325D2料节省近60％)。1／6下料进行自动排版(排料)时需要计算相邻两扇形所围成的月牙形状内外圆弧中点之间的距离尺寸，并加上适当的割缝宽度作为间隔，依次排料。2．Aut0LISP程序及运行方法利用AutoCAD内嵌的AutoLISP程序，笔者设计编所需下料面积：．制了如下程序。运行该程序可以准确快捷地进行圆环零D×0．796／)=-

3、0．305D1／8下料件下料的排版模拟。运行AutoCAD，单击下拉菜单“工具——Au—t0LlsP—VisualLISP编辑器”，打开编辑器窗口，点击“新建”，键入以下程序代码，键人文件名并保存。(defunC：yuanhuan()所需下料面积：所需下料面积：O．866D×O．584D=-0．506D20707DXO．558／3=-0．395D2fcommand”osnap””of”．1／3下料1／4下料(alert”圆环分瓣下料，若不是整圆，请按照提示输入圆环中夹角。注意：未考虑加工余量，需要加工时须输入带加

4、工余量圆环类零件分瓣下料如果发现自定义的钣4．结语金工具不满足要求，可以(1)用常规的方法建模，并将其定义为成形工具用右键单击打开，直接进(用作折弯、伸展或成形钣金的冲模)，由此可以建立常行尺寸或形状的修改，然用的成形工具库，方便调用。后保存或再次定义为钣金(2)从上面的例子可以看出，通过自定义工具库，工具并入库，就可以使用比用其他方法简洁、省时，特别为后面钣金零件展开料了图5的自动计算奠定基础。MW(收稿日期：20100618)幽兰!笪!!塑参磊工冷加工WWW．meta

5、workIng1950．tom删：／(p

6、rogn(alert”错误!小圆直径>=大圆直径”)(setq1str3(strcat(rtosx21)”，”(rtosy2)))(exit))(setqlstr4(strcat(rtosx22)”，”(rtosy2))))(while(<=in)(setqa(getreal”＼n请输入圆环夹角<360>”))(command”arc””c””0，0”strl1strl2)(if(=anil)(setqa360))(command”arc””c””0，0”str21str22)(setqaa((／a180)pi)

7、)；；degtoradfcommand”line”lstrllstr3””1(setqht'kd(getint”＼n请输入割缝宽度一请取整数值(connnand”line”lstr2lstv4””、mln：”))(setqx0)(if(=hfkdnil1)(setqy0)(progn(alert”注意!割缝宽度为0”)(setqY(+ydelta))(setqhfkd0))(setqY(+Yhfkd))；；浩0缝宽度)(setqx(rtosx))(setqN(getint”＼n请输入等分数量：”))(setqY(

8、rtosY))(setqal(／a(}n2)))(setqptem(strcatx”，”y))(setqRw(／Rw2))command”UCS””move”ptem)(setqRn(／Rn2))(setqi(1+i))(setqda(／aa(N2))))(setql(Rn(sinda)))(command”一osnap””end，mid，cen，int”)(setqconda((／270180)pi))(command”regen”)(setqbb(一condada))(command”zoom””all”)(

9、setqcc(+condada))(princ)(setqb(一270a1)))(setqc(+270a1))3．应用示例(setql(exptl2))运行AutoCAD，单击下拉菜单“工具一Au—(setqRwl(exptRw2))t0ⅡsP一加载”，在其页面上“查找范围”窗体内找到并(setqRnl(exptRn2))选择该HSP文件，然后点击页面上的“加载”按钮，将