我来点更猛的 XX公司 宏程式!!!!!!!!!
G00 Z1000.0 (主轴头返到安全高度)
VC99=VATOL-32768 (这个变量可以读取主轴头的刀具号,只适用于40VB)
IF[VC101 EQ VC99]N19 (判断现时主轴头的刀具号是不是你所需要的)
IF[VC101 EQ VATOL]N19 (判断现时主轴头的刀具号是不是你所需要的)
G30P4 (X,Y,Z,返到可以是你的设定位置)
IF[VNTOL EQ 0]N10 (判断是否己有刀具在等待)
M6 (刀库与主轴头对换刀具)
VC99=VATOL-32768 (从新判断现时主轴头的刀具号是不是你所需要的)
IF[VC101 EQ VC99]N19 (从新判断现时主轴头的刀具号是不是你所需要的)
IF[VC101 EQ VATOL]N19 (从新判断现时主轴头的刀具号是不是你所需要的)
N10
T=VC101 M6 (当以上条件全部不成立时,这个动作一定叫出你需要的刀具)
N19
IF[VC110 EQ 10]N11
IF[VC110 EQ 11]N12
IF[VC110 EQ 12]N14
IF[VC110 EQ 13]N15
IF[VC110 EQ 14]N16
IF[VC110 EQ 1]N11
IF[VC110 EQ 2]N12
IF[VC110 EQ 3]N13
IF[VC110 EQ 5]N15
IF[VC110 EQ 6]N16
IF[VC110 EQ 21]N17
IF[VC110 EQ 22]N20
IF[VC121 EQ 1]N16
T=VC45
GOTO N20
N16
IF[VNTOL NE 0]N20
IF[VC70 EQ 1]N301
IF[VC8 EQ 0]N301
T=VC16
GOTO N20
N301
IF[VC11 EQ 0]N18
T=VC50
GOTO N20
N17
IF[VNTOL NE 0]N20
T=VC53
GOTO N20
N18
IF[VNTOL NE 0]N20
IF[VC27 EQ 0]N20
T=VC28
GOTO N20
N20 M1
IF[VC110 GT 2]N103
G00 G90 G15 H=VC100 X0 Y0
GOTO N104
N103
G15 H=VC100 G90 X=-[VC61] Y=-[VC62](刀具移动到要加工的第一个位置)
N104
G56 H=VC101 Z70.0 (Z轴长度補偿)
G71 Z70.0 (指定钻吼循环安全高度)
S=VC102 M3 (开动主轴正转)
M=VC103 (冷却水或气)
VC123=1 GOTO N106
N105
VC106=-5 (这个设定盲吼精波有效,等于原底吼深度减去VC106)
VC3=VC33 (设定钻吼深度)
IF[VC7 EQ 7]N106
VC106=5 (精波通吼时, 等于原底吼深度加上VC106)
N106
IF[VC110 EQ 5]N601 (判断是不是正加工第一组吼的精波)
IF[VC110 EQ 13]N601 (判断是不是正加工第二组吼的精波)
GOTO N602
N601 G60 (指令单方向移动加工吼的座标)
N602 VC17=VC3+VC106 (设定耍加工深度的总和)
VC104=加工模式,例G81.G73.G76等
X-VC61 Y-VC62 等于第一个加工吼的座标位置
I0.1 X方向精波刀尖退刀量, J0.1 Y方向精波刀尖退刀量,
R3.0 刀具与工件面快速移动值
Z-VC17 耍加工深度
F=VC21 钻吼时进给量
M53 与G71 Z70.0相配合
G=VC104 X-VC61 Y-VC62 I0.1 J0.1 R3.0 Q3.0 Z-VC17 F=VC21 M53
IF[VC6 NE 5]N107 (判断加工非标准吼距)
CALL O1241 (当非标准吼距成立時,那么非标准的座标请输入在这个副程式里)
GOTO N108
N107
X=-VC63 Y=VC64
X=VC65 Y=VC66
X=VC67 Y=-VC68
N108
IF[VC110 NE 5]N551
GOTO N552
N551
IF[VC110 NE 13]N109
N552
IF[VC3 NE VC33]N105 (判断现时加工深度是不是你所要的,此判断适用于精波)
N109
IF[VC123 GE VC128]N101 (判断现加工件数是否满足于你所给的)
G15 H=[VC100+VC123] (当上面条件不成立时,继续補偿顺序另一座标继续加工)
VC123=VC123+1 (记录加工件数)
GOTO N106
N101
G80 (取消固定循环功能)
M05 (主轴转速停止)
M09 (关闭冷却)
M19 (主轴定位)
G30 P4 (X.Y.Z返到你设定位置)
RTS (返回主程式) |