宏程序加工流水号

茶叶同学

刻字2.rar (1.61 KB, 下载次数: 143)

2024-4-24 14:42 上传

点击文件名下载附件
下载积分: G币 -1

新手勿喷，看论坛里的内容自己琢磨的，优点是只有一个程序。
有一个版本可以随意改变大小角度，但是我到处找都没有找到资源，就自己写了这个，已在北京精雕机床上测试
字中心距和字深可以更改，中心距改G52后面的X值，字深改每个数字程序的Z值
逻辑就是把十个数字的程序都在原点编出来，把四位数拆分出来，0~9999，用IF去判定加工位置，用G52去偏移距离
然后直接GOTO数字程序，数字程序的行号是 数字是多少 就加100，比如数字0 行号100，数字1 行号101
具体用法：#600输入0则加工0001，输入1则加工0002
如果要加位数，按照逻辑继续加就行了，要加日期，就要读取机床日期，然后拆分，还没有研究
变量值，程序头尾可以根据自己机床更改
下面为逻辑内容，所有内容请看附件
%
O0001
G91G28Z0
G90G40G49G98
G21G0G58G17

T6M6
(TOOL NAME      :[锥度平底]JD-30-0.20)
(字高            :4)
(字中心距         :2.5)
(字深            :0.2)
G90G40G49G58G17
S12000M3
G0X0Y0M7
M590 P1 L1
G43H6


#600=#600+1(工件计数)

#604=FIX[#600/1000](拆分千位数字)
#603=FIX[#600/100]-FIX[#600/1000]*10(拆分百位数字)
#602=FIX[#600/10]-FIX[#600/100]*10(拆分十位数字)
#601=#600-FIX[#600/10]*10(拆分个位数字)

#610=0(工序归零)
N89
#610=#610+1(以下五个IF工序选择判定)
IF[#610EQ1] GOTO91
IF[#610EQ2] GOTO92
IF[#610EQ3] GOTO93
IF[#610EQ4] GOTO94
IF[#610GT4] GOTO110

N91
G52X-7.5Y0(千位数字坐标原点，非模态偏移，不影响其它程序段)
GOTO[#604+100](千位数字值+100行号，与数字加工工序行号对应)

N92
G52X-5Y0(百位数字坐标原点)
GOTO[#603+100](百位数字值+100行号，与数字加工工序行号对应)

N93
G52X-2.5Y0(十位数字坐标原点)
GOTO[#602+100](十位数字值+100行号，与数字加工工序行号对应)

N94
G52X0Y0(个位数字坐标原点)
GOTO[#601+100](个位数字值+100行号，与数字加工工序行号对应)

茶叶同学

更新增加年月日，读取机床的当前日期，可改字深，间距，一共12位数

lixuha250

太感谢大佬了。

fenghouyiran

好好学习，天天向上

407826739

謝謝分享。。

wangfeiff

下载看看，谢谢分享！！

茶叶同学

niu123456 发表于 2024-5-18 10:30
就是有要求序列号每周一变.就是一年里的第几周排序

简单说一下逻辑，具体就你自己去实现了
首先要给一个变量放这是第几周，比如放在#200
第一种方法是直接每周固定改一次#200，在程序里的工序判定里选择加工在哪个位置，然后通过
“G52X[-#16*7]Y0(月1位坐标原点)”
“GOTO[#200+100](月1位数字值+100行号，与数字加工工序行号对应)“
这两行去加一位数。这两行与工序判定是对应的。
第二种方法是自动去算今天属于这月第几周，由于每月第一周天数不固定，暂时没想到有啥好方法去算

rqq1208

牛逼,之前见过这样的宏程序，是之前的一个大神编的，这是这种，根据机床系统时间把它刻上去，非常的叼

niu123456

茶叶同学 发表于 2024-5-18 10:10
没懂什么意思，刻日期是读取的机床日期，刻字可以自己输入。如果机床日期七天一变，那就得改机床日期了

就是有要求序列号每周一变.就是一年里的第几周排序

茶叶同学

niu123456 发表于 2024-5-14 16:03
7天一变怎么改？

没懂什么意思，刻日期是读取的机床日期，刻字可以自己输入。如果机床日期七天一变，那就得改机床日期了

niu123456

7天一变怎么改？