数控车床上加工蜗杆的通用宏程序
广数980TD-五星文库
免费文档下载
数控车床上加工蜗杆的通用宏程序
导读：数控车床上加工蜗杆的通用宏程序，摘要很多中小型企业会遇到要在数控车床上加工大螺距，梯形螺纹和蜗杆，往往不能编制好加工程序，本文以实例探讨了数控车床中加工蜗杆和梯形螺纹通用宏程序的设计和编程，让中小企业也能轻松地应用宏程序加工蜗杆和梯形螺纹，关键词宏程序梯形螺纹蜗杆，去帮他们处理数控车床加工中遇到的一些问题，他们要加工一批蜗杆，并从宜昌纺织机械厂请了位师傅编了个很长的程序，但加工时还是很快损坏了
数控车床上加工蜗杆的通用宏程序
很多中小型企业会遇到要在数控车床上加工大螺距
梯形螺纹和蜗杆，由于这些企业条件限制，往往不能编制好加工程序，本文以实例探讨了数控车床中加工蜗杆和梯形螺纹通用宏程序的设计和编程，让中小企业也能轻松地应用宏程序加工蜗杆和梯形螺纹。
今年本人应某中小型企业邀请，去帮他们处理数控车床加工中遇到的一些问题。经交流得知，他们要加工一批蜗杆，并从宜昌纺织机械厂请了位师傅编了个很长的程序，但加工时还是很快损坏了刀具。我查阅了相关说明书，并无这方面内容，上网搜索，也没有找到免费的可以直接使用的相关文章，因此本人参考部分资料，给他们编制了一个通用的加工蜗杆和梯形螺纹的程序，告诉他们使用方法后，遇到蜗杆和梯形螺纹就可以直接套用该程序，这样即使对宏程序不太熟悉的工人也可以加工蜗杆和梯形螺纹了。
二、加工螺纹的一般方法
在数控车床加工螺纹一般有四种方法：直进法、斜进法、左右切削法和切槽刀粗切槽法四种。
1、直进法：如图1所示，螺纹刀间歇性进给到牙深处，采用此种方法加工梯形螺纹时，螺纹车刀的三面都参与切削，导致加工排屑困难，切削力和切削热增加，刀尖磨损严重，进刀量过大时，还可能产生扎刀现象。很显然，加工大螺距梯形螺纹和蜗杆是不可取的。
2、斜进法：如图2所示，螺纹车刀沿牙型角方向斜向间歇进给到牙深处，采用此种方法加工梯形螺纹时，螺纹车刀始终只有一侧刀刃参加切削，从而排屑比较顺利，刀尖的受力和受热情况有所改善，在车削中不易引起扎刀现象。
3、左右切削法：如图3所示，螺纹车刀沿牙型角方向交错间隙进给至牙深，该方法同于斜进法，在数控车床上采用宏程序编程来实现。
3、切槽刀粗切槽法：如图4所示，该方法先用切槽刀粗切槽，再用梯形螺纹车刀加工螺纹两侧面，这种方法在数控车中较难实现。
三、蜗杆和大螺距梯形螺纹特点和加工方法
车削加工蜗杆和大导程螺纹，无论用斜进法还是左右切削法，切削抗力非常大，以前只能用高速钢车刀低速车削加工，生产效率非常低。为了用硬质合金刀具也能加工，就得设法降低刀刃的切削深度，因此我采用了“分层切削”的方法来加工。
把螺纹或蜗杆的牙槽分成若干层，转化成若干个较浅的梯形槽来进行切削，每一层的切削都采用先直进后向左的车削方法。由于左切削时槽深不变，刀具只需做向左的方向（沿导轨方向）进给，这样就把左右切削法和斜进法有机地结合了起来，由于只有一个切削刃进行切削，还可以有效地控制切除余量，这样可以很好地保证表面质量和刀具的使用寿命。如图五所示。
四、加工蜗杆和梯形螺纹的宏程序
1、刀具的选择：由于中小企业多买经济型数控车床，常见国产机是广
州数控和华中数控，因此本文以广数980TD为例来编程加工。车刀选用硬质合金车刀，刀头宽度略小于梯形螺纹的槽底宽度。
2、加工的宏程序：如加工Tr40×10-7e的梯形螺纹，其程序如下： O001（程序名）
T0;（选取螺纹车刀，设定主轴转速每分钟350转）
G99 G21 G97
M08;(每转进给，开切削液)
G65 H01 P#101 Q10;(螺距10mm)
G65 H01 P#102 Q5.25;(牙高5.25mm)
G65 H01 P#103 Q0;(初始化每次Z向偏移量)
G65 H01 P#104 Q0.2;(每次X向进给量)
G65 H01 P#105 Q15;(每次Z向起点)
G65 H01 P#106 Q-30;(梯形螺纹长度30mm)
G65 H01 P#107 Q40;(螺纹公称直径)
G65 H01 P#130 Q3.5;(螺纹刀头宽度3.5mm)
G65 H01 P#131 Q3.928;(螺纹槽底宽3.928mm)
G65 H03 P#132 Q#131 R#130;(螺纹槽底宽减去刀头宽)
G65 H02 P#108 Q#107 R3;(偏离公称直径3mm,如果是加工内螺纹则改为H03)
G00 X#108;(X向起刀点)
N100 G65 H03 P#120 Q#105 R#103;(计算Z向起点)
G00 Z#120;(Z向起刀点)
G65 H03 P#109 Q#107 R#104;(X向的进给深度)
G92 X#109 Z#106 F#101;(梯形螺纹加工)
G65 H03 P#103 Q#103 R0.2;(Z向偏移量每次减0.2mm)
G65 H03 P#110 Q#102 R#104;
G65 H33 P#111 Q2 R15;（正切值计算，如果是蜗杆则R20）
G65 H04 P#121 Q#111 R#110;
G65 H02 P#133 Q#112 R#132;(每层Z向移动量)
G65 H86 P100 Q-#103 R#133;(若每层没切完，则返回N100,注意负号) G65 H02 P#104 Q#104 R0.2;
G65 H04 P#114 Q#102 R2;
G65 H03 P#116 Q#107 R#114;(每层X向移动量)
G65 H01 P#103 Q0;(每层切完Z向返回初始值)
G92 X#109 Z#106 F#101;(精加工右侧面第一刀)
G92 X#109 Z#106 F#101;(精加工右侧面第二刀)
G92 X#109 Z#106 F#101;(精加工右侧面第三刀)
G65 H03 P#134 Q#105 R#132;(精加工左侧面起刀点计算)
G00 Z#134;（精加工左侧面Z向起刀点）
G92 X#109 Z#106 F#101; （精加工左侧面第一刀）
G00 Z#134;
G92 X#109 Z#106 F#101; （精加工左侧面第二刀）
G00 Z#134;
G92 X#109 Z#106 F#101; （精加工左侧面第三刀）
G00 X100 Z100 M09;（远离工件，关切削液）
M05;（主轴停）
M30；（程序结束）
五、使用方法
把上述程序输入到机床中保存下来，如果在加工中遇到梯形螺纹或蜗杆，就把些主要参数在该程序中进行些修改，参数主要是大径、螺距、牙深、槽宽，以及刀具的刀具号、刀头宽度，修改的位Z见程序中括号内所描述。检查正确后就可以加工了，十分方便，不需要操作者有很高的宏程序编辑能力。
六、结束语
实践证明，采用“分层切削”法加工蜗杆和梯形螺纹，可以在保证刀具不打刀、不扎刀的情况下，高精度、高效率地完成蜗杆和大螺距螺纹的加工。
包含总结汇报、外语学习、人文社科、专业文献、资格考试、IT计算机、党团工作、文档下载、行业论文以及数控车床上加工蜗杆的通用宏程序
广数980TD等内容。
相关内容搜索地 址：东莞市黄江镇星光村鑫如意工业园
邮 箱：jiale@
FANUC Oi系统加工中心宏程序的应用
用户名：jiale 昵称：管理员 QQ：0 邮箱： 地址： 电话： 介绍：
宏程序具有灵活性、通用性和智能性等特点。 例如，对于规则曲面的编程来说，如果使用CAD/ CAM软件编程，工作量大、程序庞大、加工参数不易 修改。宏程序基本上包含了所有的加工信息（如所 使用的刀具几何尺寸信息等），通过简单的存储和 调用，可以很方便的重现当时的加工状态，给周期性 的生产特别是不定期的间隔式生产带来方便。
任何数控加工只要能运用宏程序完整的表达， 即使再复杂，其程序篇幅都比较精炼，可以说任何一 个合理、优化的宏程序，极少会超过60行，换算成字 节数,不超过2kB,节约了机床系统的内部存储空 间。
在传统的（圆）孔系加工工艺中，往往需要不同 直径、数量众多的钻头对孔进行粗加工。使用普通 机床加工，一般是采用一支一支地换刀方式。加工 中心拥有刀库并能自动换刀，即拥有一定数量的刀 具，否则就只能当铣床使用，失去了加工中 心的意义。
对于尺寸精度和表面粗糖度要求较高的孔更是 &一个萝卜一个坑&，需要众多专用的镗刀，对于被 加工的机械零件来说，孔径的参数是多种多样的，以 轴承孔为例，即使是标准系列的轴承孔，其规格从小 到大有数百种，受限于物理条件和制造工艺,即使是 调整能力较强的机夹式镗刀,其有效加工尺寸的范 围也有限。以某国际著名刀具品牌为例，在直径 100 以内的镗刀系列中可提供的规格有：25? 32 , 30 ~38 , 37 ~47 , 46 ~56 , 55 ~ 70 , 69 ~ 84 , 81 ~ 96 , 83 ~ 101
八 种，且每种规格所具备的调节幅度最多18 。实 际生产中需要的镗刀数量是非常大的，相对成本也 比较高。特别是遇到盲孔时，因为排削困难，很容易 对镗刀造成损害。
1.2内螺纹加工
加工中心中传统的内螺纹加工方法主要采用丝 锥攻螺纹，对机床主轴与切削进给之间的同步关系 要求很高，而且粗、精加工不能分开，有时受机床精 度、丝锥质量的影响，加工出的螺纹精度很难保证， 表面粗糙度也较难控制。用铣刀铣孔或用螺纹铣刀 铣螺纹，在一定程度上可以缓解以上矛盾。
2宏程序螺旋插补方式孔（螺纹）加工
数控系统的加工中心，圆弧插补通常为 必备的标准功能，但有的加工零件单单用圆弧插补 功能很难加工出来，例如用圆弧插补指令02 (03)&& 能加工出规则的整圆，却无法加工
出阿基米德螺旋线。在加工锥螺纹或锥孔时采用阿 基米德螺旋线的加工方法来加工效果会比较好。下 面介绍采用直线逼近法加工孔或锥孔的加工程序， 只需对程序参数稍加修改便可加工出直螺纹或锥螺 纹。
在系统中有个重要的参数，即州). 该参数定义为:在指令中，设定起始 点的半径与终点的半径之差的允许极限值。该参数是决定能否实现用螺旋插补功能来加工锥度螺纹的 关键因素。
下文程序中是以刀具中心回转半径为自变量， 依次递减半径变化量#101与Z向变化量#100实现 三轴联动螺旋插补，采用绝对坐标指令，对螺纹深度 控制很方便。右旋内螺纹，中心位置为(〇,〇),螺纹 大径为960 mm，螺距为3 mm,螺纹深度为Z-32,单 刃螺纹铣刀半径为11. 5,螺纹锥度角为10&。将参 数中赋值时可用G代码调用宏程序，本 程序将参数6050中赋值为113,即G113相当于 G65P9010。
3切削实验效果
以上程序在中小批量生产中得到广泛应用，尤 其是在产品中螺纹直径较大时使用频率比较高，为 公司节约了刀具使用成本，提高了生产效率。加工 孔径比较大时，镗刀规格有限,采用此程序分层逐步 切削，效率可提高50%以上。加工精度取决于机床 精度的等级，一般可以满足H7精度要求。表面粗 糙度取决于刀具的影响,可达到3.2以上。在加工 圆周均布阵列孔时，编程无需计算坐标尺寸，只要在 主程序中也给出变量系统将自动计算出所需加工孔 的位置。在实际生产中，加工同一类型规格不同的 孔时，一把刀可以代替多把刀,大大节省了刀具库存 量。程序格式与机床配备格式基本相同，对机床使 用空间得以扩展，程序简洁节省了机床系统内部存 储空间，机床运行速度得以提高。 4结语
经实际切削验证，使用机床系统圆弧插补指令 加工锥螺纹时，孔的直径并非是在插补过程中不断 的变小或变大,而是在进行一个整圆插补完成以后 直径在递增或递减一个值，刀具轨迹相当于阶梯形 状。但在车床加工外锥螺纹时，刀具轨迹是在从小 到大，或从大到小不停的变化。两者在配合时存在 间隙,上述程序的刀具轨迹，在圆弧插补的同时直径 也在不断的变化，与外螺纹加工时的刀具轨迹相同， 适用于各种高压油管以及其它高压密封接口的加工。
标签： &&&&&&&&【FANUC加工中心用极坐标指令在圆上打8个孔每个孔45度。然后再每个孔铣螺纹怎么编不用宏程序。】-突袭网
10:57:18【 转载互联网】 作者： &&|&责编：李强
&&& &为了解决用户可能碰到关于"FANUC加工中心用极坐标指令在圆上打8个孔每个孔45度。然后再每个孔铣螺纹怎么编不用宏程序。"相关的问题，突袭网经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"FANUC加工中心用极坐标指令在圆上打8个孔每个孔45度。然后再每个孔铣螺纹怎么编不用宏程序。"相关的详细问题如下:RT,我想知道:FANUC加工中心用极坐标指令在圆上打8个孔每个孔45度。然后再每个孔铣螺纹怎么编不用宏程序。===========突袭网收集的解决方案如下===========
解决方案1：FANUC加工中心用极坐标指令在圆上打8个孔每个孔45度。然后再每个孔铣螺纹怎么编，不用宏程序。 谢谢解决方案2：3,X代表编程半径Y代表角度.用G16极坐标编程1,用了G16后.具体内容,是在一个圆周上加工.首先是找到这个圆的圆心2：G40 G80 G49 G90T1 M6(用一号刀）G0 G90 G54 X50 Y0 M3 S**G0 G43 Z3 H1 M8G16G99 G81 X-50 Y0 Z-20 R3 F100Y45Y90Y135Y190Y235Y280Y325G15G0 G80 G49 G90 Z150 M9M5 M6 T2G0 G90 X-50 Y0G0 G43 Z3 H2G16M29 S200G99 G84 X-50 Y0 R3 F250(螺距1解决方案3：谢谢
================可能对您有帮助================
答：格式：G68 x_y_ R_； x和y是旋转中心的坐标值 R为旋转角度逆时针为正，顺时针为负 ok===========================================答：不知道你问的是什么系统的加工中心。所以不能给你确切的答案，暂时先给你一些fanuc的大部分通用的代码。 发那科加工中心指令G代码全集： G00 定位（快速进给） B * G01 直线插补（切削进给） B * G02 圆弧插补/螺旋线（CW） B G03 圆弧插补/螺旋...===========================================答：没图没真相===========================================首发 自己编的西门子的宏程序，有兴趣的看看_数控吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：58,081贴子：
首发 自己编的西门子的宏程序，有兴趣的看看收藏
主要加工需要左右赶刀的螺纹用的，如梯形螺纹，蜗杆类，普通大螺纹。加工方式，中间进刀，左右赶刀。西门子808D系统测试通过。pianyi_x,和pianyi_z是加工坐标。螺纹循环根据需要自行添加。;程序思路，先计算外形参数，检测左宽+右宽是否大于上宽（超出则提示错误）DEF REAL螺纹高度
用户设定DEF REAL kuan_螺纹上宽
用户设定DEF REAL jiaodu_螺纹左角度
用户设定DEF REAL jiaodu_螺纹右角度
用户设定DEF REAL qieshen1;每次进刀深度
用户设定DEF INT
qieshen2;进刀层数多少次左右赶刀
用户设定DEF REAL qie_横向赶刀宽度
用户设定DEF REAL star_x;起始X
用户设定DEF REAL star_z;起始Z
用户设定DEF REAL dao_刀具尖部宽度
用户设定DEF BOOL是否精加工0粗加工1精加工
用户设定 DEF BOOL外圆 0内控 1外圆
用户设定DEF REAL kuan_螺纹左宽
自动计算DEF REAL kuan_螺纹右宽
自动计算DEF REAL kuan_加工层宽
自动计算 DEF REAL kuan_螺纹底宽
自动计算 DEF REAL pianyi_x;偏移x
DEF REAL pianyi_z;偏移z
DEF REAL high2;加工剩余高度
DEF REAL linshi1;临时变量1
自动计算DEF REAL linshi2;临时变量2
DEF REAL linshi3;临时变量3
DEF REAL linshi4;临时变量4
DEF STRING[30] CCDEF STRING[30] DD DEF BOOL加工完成DEF BOOL shendu_深度完成DEF BOOL left_左赶刀完成DEF BOOL right_左赶刀完成DEF INT ceng2;临时层数
DEF INT ceng1;已加工层数
high=2.13高度=3jiaodu_left=15左角度=15jiaodu_right=30右角度=15kuan_top=7上宽=7jing=0精加工=0waiyuan=1外圆=1qieshen1=0.51进刀深度=0.1qieshen2=3进刀层数_赶刀=3qie_kuan=0.1横向赶刀宽度=0.3dao_kuan=1刀尖宽度star_x=0起始x=0star_z=0起始z=0;//开始计算外形参数kuan_left=TAN(jiaodu_left)*high;右宽=TAN(右角度)*高度kuan_right=TAN(jiaodu_right)*high;;;;if (左宽+右宽)&上宽 GOTOF 结束if (kuan_left+kuan_right)&kuan_top GOTOF cuowu1endif;//外形尺寸正确往下执行，开始运算;下宽=上宽-(左宽+右宽)if (kuan_top-kuan_left-kuan_right)&dao_kuan GOTOF cuowu2endif;;;;;//开始粗加工jieshu=0加工完成=0ceng2=0 ;临时层数=0ceng1=0 ;已加工层数=0shendu_wancheng=0;深度完成=0left_wancheng=0;左赶刀完成=0right_wancheng=0;左赶刀完成=0CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("起点");;切削开始while jieshu==0 ;开始螺纹切削循环 left_wancheng=0right_wancheng=0ceng1=ceng1+1;累加切削层数ceng2=ceng2+1;累加痈系恫闶?linshi1=ceng1*qieshen1;计算进刀深度
if linshi1&=如果进刀深度大于等于螺纹高度
linshi1=切削深度=螺纹高度
shendu_wancheng=1; 深度切削完成ceng2=qieshen2
;加入内外螺纹判断
linshi4=linshi1
if waiyuan==0
pianyi_x=star_x+linshi1*2得到深度切削位置相对起点坐标的偏移x
pianyi_x=star_x-linshi1*2得到深度切削位置相对起点坐标的偏移x
pianyi_z=star_得到深度切削位置相对起点坐标的偏移z;以下加入螺纹切削循环，螺纹参数另外定义CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("深度进给")螺纹深度进给完毕;;以下检测是否赶刀
if ceng2==qieshen2 ;当切削深度符合左右赶到条件是赶刀
kuan_left=kuan_top/2-TAN(jiaodu_left)*(linshi4)-dao_kuan/2计 算左;赶刀宽度
kuan_right=kuan_top/2-TAN(jiaodu_right)*(linshi4)-dao_kuan/2计算右赶刀宽度
if kuan_left==0 ;左边待赶刀宽度=0不需要赶刀
left_wancheng=1
gotof gan_跳转到右赶刀
endif;加入精加工判断循环
linshi2=0 ;左右赶刀次数
if jing==0 ;检测是否需要精加工
while left_wancheng==0
linshi2=linshi2+1
linshi3=linshi2*qie_kuan
if linshi3&=kuan_left
linshi3=kuan_左赶刀到尺寸
left_wancheng=1
pianyi_z=star_z-linshi3
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x;以下加入螺纹切削循环，螺纹参数另外定义CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("左侧赶刀粗车")
精加工直接到尺寸
linshi3=kuan_左赶刀到尺寸pianyi_z=star_z-linshi3
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x;以下加入螺纹切削循环，螺纹参数另外定义CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("左侧赶刀精车")
if kuan_right==0 ;左边待赶刀宽度=0不需要赶刀
right_wancheng=1
gotof you_
endif;加入精加工判断循环
if jing==0
linshi2=0 ;左右赶刀次数
while right_wancheng==0
linshi2=linshi2+1
linshi3=linshi2*qie_kuan
if linshi3&=kuan_right
linshi3=kuan_左赶刀到尺寸
right_wancheng=1
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x
pianyi_z=star_z+linshi3;以下加入螺纹切削循环，螺纹参数另外定义CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("右侧赶刀粗车")
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x
pianyi_z=star_z+kuan_right;以下加入螺纹切削循环，螺纹参数另外定义CC=&&pianyi_zDD=&&pianyi_xMSG("Z="&&CC&&" X="&&DD)MSG("右侧赶刀精车")
you_jieshu: ;右赶刀结束
ceng2=0;赶刀结束，归零变量
if shendu_wancheng==1 ;如果深度切削完成
赶刀结束并且深度完成，切削循环结束
结束左右赶刀循环结束切削循环，螺纹加工完成gotof renwuwanchengcuowu1: ; 结束 //提示外形尺寸错误msg("螺纹高度或者角度错误，重新输入");gotof renwuwanchengcuowu2: ; 结束 //提示外形尺寸错误msg("刀具尖部宽度超差，重新输入");gotof renwuwanchengrenwuwancheng:m30;
20年前的ps游戏全新复刻驾临pc端
反正我看不懂
好复杂的说！
一脸的没看懂
需要这么复杂吗
西门子的宏程序跟法兰克的不一样吗！
下面是完整版的加入切削循环后的。;程序思路，先计算外形参数，检测左宽+右宽是否大于上宽（超出则提示错误）;可加工内螺纹，外螺纹。蜗杆，梯形螺纹。异形角度螺纹。;加工方法1中间进刀（qieshen1）设定，
2中间进刀（qieshen2）次后左右赶刀。3 ;比如设定qieshen1=0.2，qieshen2=3, qie_kuan=0.2.
则每次进给深度0.2mm,则深度进给3次(进给深度=0.2*3=0.6mm)在左右赶刀，左右赶刀每次切削宽度=0.2mm。;比如设定qieshen1=0.4，qieshen2=4,qie_kuan=0.4. 则每次进给深度0.2mm,则深度进给3次(进给深度=0.4*4=1.6mm)在左右赶刀，左右赶刀每次切削宽度=0.4mm。;jing=0的时候进行粗加工和精加工。jing=1的时候则只进行精加工螺纹左右和底面的尺寸，中间不在进行开粗。;waiyuan=0进行内螺纹切削。waiyuan=1进行外螺纹切削。 DEF REAL螺纹高度
设定变量类型为浮点型。DEF REAL kuan_螺纹上宽
用户设定DEF REAL kuan_螺纹下宽
用户设定DEF REAL jiaodu_螺纹左角度
用户设定DEF REAL jiaodu_螺纹右角度
用户设定DEF REAL qieshen1;每次进刀深度
用户设定DEF INT
qieshen2;进刀层数多少次左右赶刀
用户设定DEF REAL qie_横向赶刀宽度
用户设定DEF REAL star_x;起始X
用户设定DEF REAL star_z;起始Z
用户设定DEF REAL end_z;终点Z
用户设定DEF REAL end_x;终点x
用户设定DEF REAL dao_导入
用户设定DEF REAL dao_导出
用户设定DEF REAL螺距
用户设定DEF REAL luo_螺纹头数
用户设定DEF REAL luo_可变螺纹返回距离
用户设定DEF REAL qidian_螺纹起点进入角度
用户设定DEF REAL luoju_螺距的单位1mm，2英制
用户设定DEF REAL dao_刀具尖部宽度
用户设定DEF BOOL是否精加工0粗加工1精加工
设定变量类型为布尔型。DEF BOOL外圆 0内控 1外圆
用户设定DEF REAL kuan_螺纹左宽
自动计算DEF REAL kuan_螺纹右宽
自动计算DEF REAL luowen_螺纹切深
自动计算DEF REAL kuan_加工层宽
自动计算 DEF REAL kuan_螺纹底宽
自动计算 DEF REAL pianyi_x;偏移x
DEF REAL pianyi_z;偏移z
自动计算DEF REAL end_z2;终点偏移z
DEF REAL high2;加工剩余高度
DEF REAL linshi1;临时变量1
自动计算DEF REAL linshi2;临时变量2
DEF REAL linshi3;临时变量3
DEF REAL linshi4;临时变量4
DEF STRING[30] CC; 设定变量类型为文本型用于输出程序调试信息。
DEF STRING[30] DD ;DEF STRING[30] EE;DEF BOOL加工完成DEF BOOL shendu_深度完成DEF BOOL left_左赶刀完成DEF BOOL right_左赶刀完成DEF INT ceng2;临时层数
设定变量类型为整数型。DEF INT ceng1;已加工层数
;///////////////////////以上为定义变量类型;///////////////////////;///////////////////////
kuan_down=0.2螺纹下宽
用户设定high=1高度=3jiaodu_left=30左角度=15jiaodu_right=30右角度=15kuan_top=3上宽=7jing=0精加工=0waiyuan=1外圆=1qieshen1=0.1进刀深度=0.1qieshen2=2进刀层数_赶刀=3qie_kuan=0.1横向赶刀宽度=0.3dao_kuan=0.2刀尖宽度star_x=20起始x=50star_z=0起始z=0end_z=-40螺纹终点zdao_ru=10;导入
用户设定dao_chu=8;导出
用户设定luoju=5;螺距
用户设定qidian_jiaodu=0;螺纹起点进入角度
用户设定luoju_mm=1;螺距的单位1mm，2英制
用户设定luo_toushu=1;螺纹头数
用户设定luo_fanhui=10;可变螺纹返回距离
用户设定;///////////////////////以上为给变量设定数值。也就是给加工参数赋值。;///////////////////////;///////////////////////
T1S500M3G0G90G54X40Z40;//开始计算外形参数kuan_left=TAN(jiaodu_left)*high;右宽=TAN(右角度)*高度kuan_right=TAN(jiaodu_right)*high;;;;if (左宽+右宽)&上宽 GOTOF 结束if (kuan_left+kuan_right)&kuan_top GOTOF cuowu1endif;//外形尺寸正确往下执行，开始运算;下宽=上宽-(左宽+右宽)if (kuan_top-kuan_left-kuan_right)&dao_kuan GOTOF cuowu2endif;///////////////////////以上检测螺纹外形尺寸是否有逻辑误差。;///////////////////////;///////////////////////
;;;;//开始粗加工jieshu=0加工完成=0ceng2=0 ;临时层数=0ceng1=0 ;已加庸げ闶?0shendu_wancheng=0;深度完成=0left_wancheng=0;左赶刀完成=0right_wancheng=0;左赶刀完成=0CC=&&pianyi_zDD=&&pianyi_xEE=&&end_z2MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&起点&);///////////////////////以上为重置临时变量数值。;///////////////////////;///////////////////////;;切削开始while jieshu==0 ;开始螺纹切削循环 left_wancheng=0right_wancheng=0ceng1=ceng1+1;累加切削层数ceng2=ceng2+1;累加痈系恫闶?linshi1=ceng1*qieshen1;计算进刀深度
if linshi1&=如果进刀深度大于等于螺纹高度
linshi1=切削深度=螺纹高度
shendu_wancheng=1; 深度切削完成ceng2=qieshen2
;加入内外螺纹判断
linshi4=linshi1
if waiyuan==0
pianyi_x=star_x+linshi1*2得到深度切削位置相对起点坐标的偏移x
pianyi_x=star_x-linshi1*2得到深度切削位置相对起点坐标的偏移x
pianyi_z=star_得到深度切削位置相对起点坐标的偏移z
end_z2=end_z;以下加入螺纹切削循环，螺纹参数另外定义
if (jing==0) or (shendu_wancheng==1);以下加入螺纹切削循环，螺纹参数另外定义螺纹起点Z=pianyi_z,螺纹起点x=pinyi_x ，终点z=end_z2;
CC=&&pianyi_z
DD=&&pianyi_x
EE=&&end_z2
MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&粗切削深度进给或者精加工 底面进给&)luowen_qieshen=(star_x-pianyi_x)/2;螺纹切深 ;/////////下面是西门子的螺纹循环
CYCLE99( pianyi_z, star_x, end_z2, pianyi_x, dao_ru, dao_chu, luowen_qieshen, 0.000, qidian_jiaodu, 1, 0, luoju, 300101, luo_toushu,luo_fanhui,0, 0, 0, 0, 0, 0, 0, luoju_mm,
else;这里jing=0 and shudu_wancheng=0 精加工只加工螺纹底面和，侧面。不执行螺纹循环
MSG(&精加工部执行循环&)
;///////////////////////以上为深度进给切削。;///////////////////////;///////////////////////
螺纹深度进给完毕;;以下检测是否赶刀
if ceng2==qieshen2 ;当切削深度符合左右赶到条件是赶刀
kuan_left=kuan_top/2-TAN(jiaodu_left)*(linshi4)-dao_kuan/2计 算左赶刀宽度
kuan_right=kuan_top/2-TAN(jiaodu_right)*(linshi4)-dao_kuan/2计算右赶刀宽度
if kuan_left==0 ;左边待赶刀宽度=0不需要赶刀
left_wancheng=1
gotof gan_跳转到右赶刀
endif;加入精加工判断循环
linshi2=0 ;左右赶刀次数
if jing==0 ;检测是否需要精加工
while left_wancheng==0
linshi2=linshi2+1
linshi3=linshi2*qie_kuan
if linshi3&=kuan_left
linshi3=kuan_左赶刀到尺寸
left_wancheng=1
pianyi_z=star_z-linshi3
end_z2=end_z-linshi3
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x
;以下加入螺纹切削循环，螺纹参数另外定义螺纹起点Z=pianyi_z,螺纹起点x=pinyi_x ，终点z=end_z2;CC=&&pianyi_zDD=&&pianyi_xEE=&&end_z2MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&左侧赶刀粗车&)luowen_qieshen=(star_x-pianyi_x)/2;螺纹切深
CYCLE99( pianyi_z, star_x, end_z2, pianyi_x, dao_ru, dao_chu, luowen_qieshen, 0.000, qidian_jiaodu, 1, 0, luoju, 300101, luo_toushu,luo_fanhui,0, 0, 0, 0, 0, 0, 0, luoju_mm,
精加工直接到尺寸
linshi3=kuan_左赶刀到尺寸
pianyi_z=star_z-linshi3
end_z2=end_z-linshi3
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x;以下加入螺纹切削循环，螺纹参数另外定义螺纹起点Z=pianyi_z,螺纹起点x=pinyi_x ，终点z=end_z2;CC=&&pianyi_zDD=&&pianyi_xEE=&&end_z2MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&左侧赶刀精车&)luowen_qieshen=(star_x-pianyi_x)/2;螺纹切深
CYCLE99( pianyi_z, star_x, end_z2, pianyi_x, dao_ru, dao_chu, luowen_qieshen, 0.000, qidian_jiaodu, 1, 0, luoju, 300101, luo_toushu,luo_fanhui,0, 0, 0, 0, 0, 0, 0, luoju_mm,
if kuan_right==0 ;左边待赶刀宽度=0不需要赶刀
right_wancheng=1
gotof you_
endif;加入精加工判断循环
if jing==0
linshi2=0 ;左右赶刀次数
while right_wancheng==0
linshi2=linshi2+1
linshi3=linshi2*qie_kuan
if linshi3&=kuan_right
linshi3=kuan_左赶刀到尺寸
right_wancheng=1
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x
pianyi_z=star_z+linshi3
end_z2=end_z+linshi3;以下加入螺纹切削循环，螺纹参数另外定义螺纹起点Z=pianyi_z,螺纹起点x=pinyi_x ，终点z=end_z2;CC=&&pianyi_zDD=&&pianyi_xEE=&&end_z2MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&右侧赶刀粗车&)luowen_qieshen=(star_x-pianyi_x)/2;螺纹切深
CYCLE99( pianyi_z, star_x, end_z2, pianyi_x, dao_ru, dao_chu, luowen_qieshen, 0.000, qidian_jiaodu, 1, 0, luoju, 300101, luo_toushu,luo_fanhui,0, 0, 0, 0, 0, 0, 0, luoju_mm,
pianyi_x=pianyi_x;偏移x=上一次深度切削的偏移x
pianyi_z=star_z+kuan_right
end_z2=end_z+linshi3;以下加入螺纹切削循环，螺纹参数另外定义螺纹起点Z=pianyi_z,螺纹起点x=pinyi_x ，终点z=end_z2;CC=&&pianyi_zDD=&&pianyi_xEE=&&end_z2MSG(&Z=&&&CC&&& X=&&&DD&&&终点z=&&&EE&&&右侧赶刀精车&)luowen_qieshen=(star_x-pianyi_x)/2;螺纹切深
CYCLE99( pianyi_z, star_x, end_z2, pianyi_x, dao_ru, dao_chu, luowen_qieshen, 0.000, qidian_jiaodu, 1, 0, luoju, 300101, luo_toushu,luo_fanhui,0, 0, 0, 0, 0, 0, 0, luoju_mm,
you_jieshu: ;右赶刀结束
ceng2=0;赶刀结束，归零变量
if shendu_wancheng==1 ;如果深度切削完成
赶刀结束并且深度完成，切削循环结束
结束左右赶刀循环结束切削循环，螺纹加工完成gotof renwuwancheng;///////////////////////以上为左右赶刀进给切削。;///////////////////////;///////////////////////
cuowu1: ; 结束 //提示外形尺寸错误msg(&螺纹高度或者角度错误，重新输入&);gotof renwuwanchengcuowu2: ; 结束 //提示外形尺寸错误msg(&刀具尖部宽度超差，重新输入&);gotof renwuwanchengrenwuwancheng:m30;
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或