求一个PM程式批量重命名的宏，不单只改刀号

黎旭初

我现在只有龚老师做的将刀具路径改为刀具名称的宏，但是我还想把主轴转速、进给、余量等加上去。
附上现有宏做参考，希望有大神可以帮忙看看。
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

优胜编程龚老师

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

黎旭初

高手高手

黎旭初

PM2019运行了没有反应，调试程序发现相关信息可以读出来，但是写不进刀具路径名称里面。

1810

优胜编程龚老师 发表于 2020-10-9 08:40
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF

请问刀具长度是什么代码？
序号+刀具名+刀具长度