流水号刻印宏程序编制

客户要求在产品上刻印供应商代码和产品流水号，格式为如下
B01×××××，其中B01为供应商代码固定不变，×××××从一定数字开始递增，如10001，10002，10003-----.
因为对宏程序不熟悉，特向高手求助，先行谢过。
刻印在产品一固定平面上进行，对字体、大小、字高有要求。

我刚好做过这样的宏,但好久了,源程序可能找不到了,就是找到可能也不是你要的字体、字高、字间,所以用处不大.
还是我告诉你方法你自己做一个好了.

我找到了以前的程序(在FANUC上运行通过),在下面:
%
O1000       主程序
(PROGRAM NAME )
(DATE, Day-Month-Year )
G0G17G40G49G80G90
(TOOL - 11 DIA. OFF. - 11 LEN. - 11 DIA. - 1.)
(刻字前面不变的)
T1T0M6
中间的程序写自己要的
G65 P1200      刻要变字的主程序,刻字:000~999
M5
G91G28Z0.M9
G28X0.Y0.
M30
%

%
O1200                    刻变字主程序
T1T0M6
#1=0                          ;定义计数常数
#2=19.5                        ;定义字符起始偏移(X方向)?
#3=2.0                         ;字间距(X方向)
#4=#5221                       ;记录当前G54坐标系X的机器坐标
#10=#4+#2                      ;第一个字的坐标
WHILE[#1 LT 3]DO1
    G90 G10 L2 P01 X#10   
    IF [#1 NE 0]GOTO5   
    G65 P1201                  ;刻第一个字
    GOTO5
    IF [#1 NE 1]GOTO5
    G65 P1202                   ;刻第二个字
    GOTO5
    IF [#1 NE 2]GOTO5
    G65 P1203                   ;刻第三个字
N5  #5=#[101+#1]                ;计数第几个字
   
N10 #10=#10+#3                  ;下一个字的X坐标
N20 #1=#1+1.                    ;计数加1
END1
G90 G10 L2 P01 X#4              ;写回G54坐标系X的机器坐标
M99
%

%
O1201                      ;刻第一个变字
#1=#101                     ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P0010
G53
GOTO100
N10 IF [#1 NE 1]GOTO20
G65 P0001
G53
GOTO100
N20 IF [#1 NE 2]GOTO30
G65 P0002
GOTO100
N30 IF [#1 NE 3]GOTO40
G65 P0003
GOTO100
N40 IF [#1 NE 4]GOTO50
G65 P0004
GOTO100
N50 IF [#1 NE 5]GOTO60
G65 P0005
GOTO100
N60 IF [#1 NE 6]GOTO70
G65 P0006
GOTO100
N70 IF [#1 NE 7]GOTO80
G65 P0007
GOTO100
N80 IF [#1 NE 8]GOTO90
G65 P0008
GOTO100
N90 IF [#1 NE 9]GOTO100
G65 P0009
GOTO200
N200 M99
%

%
O1202                       刻第二个变字
#1=#102                     ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P10
GOTO100
N10 IF [#1 NE 1]GOTO20
G65 P1
GOTO100
N20 IF [#1 NE 2]GOTO30
G65 P2
GOTO100
N30 IF [#1 NE 3]GOTO40
G65 P3
GOTO100
N40 IF [#1 NE 4]GOTO50
G65 P4
GOTO100
N50 IF [#1 NE 5]GOTO60
G65 P5
GOTO100
N60 IF [#1 NE 6]GOTO70
G65 P6
GOTO100
N70 IF [#1 NE 7]GOTO80
G65 P7
GOTO100
N80 IF [#1 NE 8]GOTO90
G65 P8
GOTO100
N90 IF [#1 NE 9]GOTO100
G65 P9
#102=0
#101=#101+1. GOTO200
N100 #102=#102+1.
N200 M99
%

%
O1203                        ;刻第三个变字
#1=#103                      ;下面程序是判断刻0~9中的哪个字符
IF [#1 NE 0]GOTO10
G65 P10
GOTO300
N10 IF [#1 NE 1]GOTO20
G65 P1
GOTO300
N20 IF [#1 NE 2]GOTO30
G65 P2
GOTO300
N30 IF [#1 NE 3]GOTO40
G65 P3
GOTO300
N40 IF [#1 NE 4]GOTO50
G65 P4
GOTO300
N50 IF [#1 NE 5]GOTO60
G65 P5
GOTO300
N60 IF [#1 NE 6]GOTO70
G65 P6
GOTO300
N70 IF [#1 NE 7]GOTO80
G65 P7
GOTO300
N80 IF [#1 NE 8]GOTO90
G65 P8
GOTO300
N90 IF [#1 NE 9]GOTO300
G65 P9
#2=#102
#103=0
IF [#2 NE 9] GOTO200
#102=0
#101=#101+1.
GOTO400
N200 #102=#102+1.
GOTO N400
N300 #103=#103+1.
N400 M99
%

好心人，虽然不明白这是什么意思，但还是要祝贺楼主遇到好心人

呵呵，赞一个。。。

支持一下，以前用过，其实可以先把字体程序编出来0-9，然后和机床计数器建立一个变量关系，这样可以满足你字体要求了

谢谢ysk提供程序参考，研究中----

谢谢版大加分!
6#的方法是不错,但太烦锁,也容易出错.
我的方法,前面跟你说的是一样,后面偏坐标就不是人自己计算,而是控制器算了自己走的!
楼主,还有个要跟你说一下.这个程序其实不难,稍有学过电脑编程语言的都能看懂.只是控制器没有那么高级,太复杂的算不出罢了!
其中#101~#103是系统变量(相当于VB中的全局变量),如你要从尾数138的编号开如刻,那你那你就在宏变量中预先这样写入:#101=1、#102＝3、#103＝8;这样一运行程式刻的第一个字就是********138
特注:以上发表内容全属原创,会因控制器的不同而不能运行,如用于商业,产生不良后果,本人不负任何责任!

出差一周，有几处看的不太明白，能否解释一下。
G90 G10 L2 P01 X#10   
-----
G90 G10 L2 P01 X#4  

G10使用不是太多，看说明书也不太明白。

#1=0                          ;定义计数常数   这里的计数常数具体代表什么？#2=19.5                        ;定义字符起始偏移(X方向)?   Y方向需要参数指定吗？

P10-P9 子程序是不是就是刻字“0-9”的程序。就这个程序，是不是使用相对值编程比较好呢。

大大的支持
学习中