登录【网站注册】点击左边“微信账号登陆”图标,微信扫描即自动注册并登陆
搜索
查看: 3486|回复: 4

[PowerMILL] 求一个PM程式批量重命名的宏,不单只改刀号

[复制链接]
发表于 2020-9-30 08:53:18 | 显示全部楼层 |阅读模式
我现在只有龚老师做的将刀具路径改为刀具名称的宏,但是我还想把主轴转速、进给、余量等加上去。
附上现有宏做参考,希望有大神可以帮忙看看。
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
//-----------重命名----------
INT i=1
FOREACH toolpath IN folder('TOOLPATH') {
STRING thname=toolpath.Name
STRING toolname=toolpath.tool.name
STRING LIST StrList=tokens(toolname,"_")
STRING NewName=select(i<10,"0"+string(i)+"-"+$StrList[0],string(i)+"-"+$StrList[0])
RENAME TOOLPATH $thname $NewName
$i=i+1
}
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
【温馨提示】技术问题请优先发到问答专栏,优胜教师团队将及时回复,谢谢!
发表于 2020-10-9 08:40:45 | 显示全部楼层
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF

INT b =1
FOREACH c IN folder('TOOLPATH') {

STRING q= c.Tool.Name    //这是刀具名

STRING l= c.Stepover    //这是精光刀间距

STRING ll= c.Stepover    //这是开粗刀间距

STRING j= c.Thickness  //这是侧面余量

STRING z= c.AxialThickness   //这是底部余量

STRING s= c.SpindleSpeed.Value  //这是转速

STRING f= c.FeedRate.Cutting.Value   //这是进给





if $c.UseAxialThickness ==1 {

if $c.ToolpathType == 'finishing' {  

STRING d = b+"-"+q+"-("+j+"|"+z+")-步距"+l+"-转速"+s+"-进给"+f

rename TOOLPATH $c.Name $d

}

if $c.ToolpathType == 'roughing' {  

STRING d = b+"-"+q+"-("+j+"|"+z+")-步距"+ll+"-转速"+s+"-进给"+f

rename TOOLPATH $c.Name $d

}




}

if $c.UseAxialThickness ==0 {

if $c.ToolpathType == 'finishing' {  

STRING d = b+"-"+q+"-("+j+"|"+z+")-步距"+l+"-转速"+s+"-进给"+f

rename TOOLPATH $c.Name $d

}

if $c.ToolpathType == 'roughing' {  

STRING d = b+"-"+q+"-("+j+"|"+z+")-步距"+ll+"-转速"+s+"-进给"+f

rename TOOLPATH $c.Name $d

}



}


$b=b+1
}
DIALOGS MESSAGE ON
DIALOGS ERROR ON
【温馨提示】技术问题请优先发到问答专栏,优胜教师团队将及时回复,谢谢!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-10-13 18:49:36 | 显示全部楼层
PM2019运行了没有反应,调试程序发现相关信息可以读出来,但是写不进刀具路径名称里面。
【温馨提示】技术问题请优先发到问答专栏,优胜教师团队将及时回复,谢谢!
回复 支持 反对

使用道具 举报

发表于 2021-6-28 15:59:13 | 显示全部楼层
优胜编程龚老师 发表于 2020-10-9 08:40
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF

请问刀具长度是什么代码?
序号+刀具名+刀具长度
开心
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


快速回复 返回顶部 返回列表