求一个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,string(i)+"-"+$StrList)
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 高手高手:handshake:handshake:handshake:handshake:handshake PM2019运行了没有反应，调试程序发现相关信息可以读出来，但是写不进刀具路径名称里面。 优胜编程龚老师 发表于 2020-10-9 08:40
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
请问刀具长度是什么代码？
序号+刀具名+刀具长度
页:
[1]