刀路+序号+刀具+刀号+余量+夹头+刃长+刀长.mac

Lj5171 · 发表于 2025-4-23 13:24:24

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF

INT b =1
FOREACH c IN folder('TOOLPATH') {
//STRING q= c.Tool.Name
STRING q= c.tool.Number.Value
STRING jc= c.Tool.HolderName
REAL sc= c.Tool.Overhang
REAL rc= c.Tool.Length
STRING j= c.Thickness
STRING z= c.AxialThickness
if $c.UseAxialThickness ==1 {
STRING d = b+"-"+q+"-"+"("+j+"|"+z+")"+"-"+jc+"-"+"L"+sc+"-"+rc
rename TOOLPATH $c.Name $d
}
if $c.UseAxialThickness ==0 {
STRING d = b+"-"+q+"-"+"("+j+"|"+j+")"+"-"+jc+"-"+"L"+sc+"-"+rc
rename TOOLPATH $c.Name $d
}
$b=b+1
}

DIALOGS MESSAGE ON
DIALOGS ERROR ON

//这个宏刀名称和刀不能同时出来，大师帮忙改改

Zh- · 发表于 2025-10-12 15:15:26

DIALOGS MESSAGE OFF
DIALOGS ERROR OFF

INT b =1
FOREACH c IN folder('TOOLPATH') {
string q1 = substring ($c.Tool.Name,0,position(c.Tool.Name,"_"))
STRING q= c.tool.Number.Value
STRING jc= c.Tool.HolderName
REAL sc= c.Tool.Overhang
REAL rc= c.Tool.Length
STRING j= c.Thickness
STRING z= c.AxialThickness
if $c.UseAxialThickness ==1 {
STRING d = b+"-"+q1+"-"+q+"-"+"("+j+"|"+z+")"+"-"+jc+"-"+"L"+sc+"-"+rc
rename TOOLPATH $c.Name $d
}
if $c.UseAxialThickness ==0 {
STRING d = b+"-"+q1+"-"+q+"-"+"("+j+"|"+j+")"+"-"+jc+"-"+"L"+sc+"-"+rc
rename TOOLPATH $c.Name $d
}
$b=b+1
}

DIALOGS MESSAGE ON
DIALOGS ERROR ON

[PowerMILL] 刀路+序号+刀具+刀号+余量+夹头+刃长+刀长.mac

浏览过的版块