利用系统时间变量#3011完成对加工零件雕刻数字日期的加工，调用此变量，并对其相应的位数进行取整运算，同时叠加每位数字的间隔步距值，完成如下序列号的雕刻：2016092408-001。
该程式已上小日本FANUC机器（小黄机），实际加工运行屡试不爽，是一款出色巧妙的程序。
该程序可以做扩展，宏程序本质其实就是赤裸裸的数学运算，在此作抛砖引玉之用。
变量说明：
#20(安全高度)
#21(起始点X坐标)
#22(起始点Y坐标)
#23(起始点Z坐标／刻字高度)
#24(刻字深度)
#25(刻字大小)
#26(机台号第一位)
#27(机台号第二位)
#28(机台号第三位)
#29（刻字间距）
#3011（系统日期）
刻字样版：
2016092408-001
1～4位年
5～6位月
7～8位日
9位 分隔符
10～11位时
12分隔符
13～15机台号
%
O0002
G17G40G49G69G80G90
G91G28Z0.
G52X0.Y0.Z0.
T11M06
G54
G90
#13001=0.001(TOOL DIAMETER OFFSET)
#15=15(START NO.)
#20=10.(CLEAR HEIGHT)
#21=34.1(X)
#22=4.1(Y)
#23=6.7(Z)
#24=0.05(DEEP HEIGHT)
#25=2.(SCALE RATIO)
#26=0(MACHINE NO.)
#27=7(MACHINE NO)
#28=6(MACHINE NO)
#29=1.5(STEP)
G00X#21Y#22M03S10000
G43H11Z20.
G41D01
G40
GOTO#15
N11
#1=[FIX[#3011/10000000]-FIX[#3011/100000000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#1+1]
N12
#2=[FIX[#3011/1000000]-FIX[#3011/10000000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#2+1]
N13
#3=[FIX[#3011/100000]-FIX[#3011/1000000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#3+1]
N14
#4=[FIX[#3011/10000]-FIX[#3011/100000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#4+1]
N15
#5=[FIX[#3011/1000]-FIX[#3011/10000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#5+1]
N16
#6=[FIX[#3011/100]-FIX[#3011/1000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#6+1]
N17
#7=[FIX[#3011/10]-FIX[#3011/100]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#7+1]
N18
#8=[FIX[#3011/1]-FIX[#3011/10]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#8+1]
N19
#21=[#21+#29]
G00X#21Y#22
GOTO11
N20
#9=[FIX[#3012/100000]-FIX[#3012/1000000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#9+1]
N21
#10=[FIX[#3012/10000]-FIX[#3012/100000]*10]
#21=[#21+#29]
G00X#21Y#22
GOTO[#10+1]
N22
#21=[#21+#29]
G00X#21Y#22
GOTO11
N23
#21=[#21+#29]
G00X#21Y#22
GOTO[#26+1]
N24
#21=[#21+#29]
G00X#21Y#22
GOTO[#27+1]
N25
#21=[#21+#29]
G00X#21Y#22
GOTO[#28+1]
N26
G91G28Z0.
G91G28Y0.
M05
M09
M99
N1
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(0)
#15=#15+1
GOTO#15
N2
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(1)
#15=#15+1
GOTO#15
N3
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(2)
#15=#15+1
GOTO#15
N4
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(3)
#15=#15+1
GOTO#15
N5
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(4)
#15=#15+1
GOTO#15
N6
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(5)
#15=#15+1
GOTO#15
N7
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(6)
#15=#15+1
GOTO#15
N8
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(7)
#15=#15+1
GOTO#15
N9
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(8)
#15=#15+1
GOTO#15
N10
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(9)
#15=#15+1
GOTO#15
N11
G1025C#20F3000.E3000.P1.H#21V#22B#23L#24U#25A1.(-)
#15=#15+1
GOTO#15
%
网友评论