iCAx开思网
标题:
宏程序问题
[打印本页]
作者:
45guop
时间:
2006-5-2 21:24
标题:
宏程序问题
我编了一个宏程序,不知那位能不能用这个软件Cgtech Vericut v54给我检查一下错在什么地方.宏程序如下
65 P9010 x-y-z-R-K-D-H-T-F-S-E-
和变量的含义如下:
X(#24) 工件的长,正值
Y(#25) 工件的宽,正值
z(#26) 加工深度,正值
R(#18) 快速趋近平面,绝对坐标值
K(#6) 精加工余量,正值(不赋值则不 行精加工)
D(#7) 刀具半径,正值
H(#11) 对刀点判别参数,未赋值则在工件对称中心上.对刀点在左下角,可赋予任何值.
T(#20) 精加工进给率
F9(#9)粗加工进给率
S(#19)粗加工主轴转速
E(#8)精加工主轴转速
#100--#120变量为运算变量
O9010
IF [#24EQ#0] GOTO 100 ;工件的长不赋值则报警.
IF [#25EQ#0] GOTO 100 ;工件的宽不赋值则报警.
IF [#26EQ#0] GOTO 100; 加工深度不赋值则报警
F [#18EQ#0] GOTO 100 ;R点平面未赋值则报警
IF [#7EQ#0] GOTO 100;刀具半径未赋值则报警
IF [#19EQ#0] GOTO 100 ;粗加工主轴转速未赋值则报警
IF [#9EQ#0] GOTO 100 ;粗加工进给率未赋值则报警
IF [#11NQ#0] GOTO 10;#11未赋值则对刀点为工件几何中心,赋值则对刀点为左下角.
#100=[#24/2]+2. ;2MM为X,Y方向下刀时的安全距离
#101=*[#25/2]-2.
GOTO20
N10#100=[#24+2]
#101=-2.
N20#120=#5003 ;保存初始平面
#121=#4003;保存03组G代码
S#19
IF[#4113NE3]GOTO110 ;主轴未转则报警N510
#104=0
#106=0
#107=0
G0#18;快速趋近R平面
X#100Y#101;定位到A点
IF[#6EQ#0]GOTO30;是否进行精加工,是则保存精加工余量
#26=#26-#6
N30G1Z-[#26]F[#9*8];以8倍的进给率下刀
N35G91G1X-[#100+#7]F#9
Y[#7*2*0.8]
X[#100+#7]
Y[#7*2*0.8]
#104=#104+2
#105=#104*[#7*2*0.8]
#106=#106-#105
IF[#106GT2*#7*2*0.8]GOTO35 判断是否是最后两刀
G1X-[#100+#7]
Y[#7*2*0.8]
#106=#106-[#7*2*0.8]
X[#100+#7]
Y[#106+2]
IF[#6EQ#0]GOTO90 不精加工则程序结束
IF[#20 NQ# 0] GOTO 40
#20=#9 ;F不赋值用前面的值
IF[#8NQ#0] GOTO 40; S不赋值用前面的值
#8=#19
N40 G90G0Z#18 ;快速趋近到R平面
X#100Y#101S#8;定位于A点
N50G1Z-[#26+#6]F[#20*8];以8倍的进给率下刀
G91 X-[#100+#7]F#20
G0Z#18
X[#100+#7*2*0.8]Y[#7*2*0.8]
#107=#107-[#7*2*0.8]
IF[#107LE0]GOTO50;宽度是否到,不到继续加工
N90G90G0Z#18
X0Y0
Z#120返回初始平面
GOTO120
N100#3000=10(DATA LACK)报警NO.510
N110#3000=20 报警NO.520
N120G#33 恢复03组G代码
M99
作者:
airen
时间:
2006-5-2 22:29
不懂。。
有什么用处?
作者:
45guop
时间:
2006-5-3 18:11
用于面铣呀,
作者:
qiaoshao
时间:
2006-5-7 19:15
我明白你写此程序的目的,但我感觉这种写法不是最佳,虽然我不是宏程序高手,
但可以看出此程序中有些错误之处,特别是最后就更乱了,精加工时。不但没有
完全铣出,退刀时在R点还回X0Y0,很不安全。程序头保留了03组G代码,但程序
结尾却G#33 恢复03组G代码,头尾不统一,开始加工时定位于A点,X#100 容易撞坏
零件或刀具,应该考虑刀具半径X[#100+#7],里面的NQ应该是NE吧!还有你的N40放错位置了吧!
提供一些参考意见
1.此程序不必写的这么复杂,简单明了最好了,一般精加工尺直接可以加工到的,都是已知的,可以计算的。
2.主轴的旋转最好放在主程序中,子程序中不必有。
3.在进入子程序和退出子程序时最好把刀具停留在同一位置。
4.一些安全措施还是要有的,就是你程序开始的那些没赋值会报警的。
先说这么多了,有机会切磋切磋,如果我们俩联合起来,肯定会更棒!
:
作者:
luhongmo168
时间:
2006-5-7 19:24
看不懂~~~~```
欢迎光临 iCAx开思网 (https://www.icax.org/)
Powered by Discuz! X3.3