|
|
有一部分代码，别人写的，只会变快进半径，下切半径不会变可能没有，有没有大佬看看怎么一起变啊？PM版本是2016的，有没有大佬啊？下面是代码
string xchj =substring(xchi,11,1)string xchk =substring(xchi,20,1)
real x3 = 100
$x3 = INPUT "请输入安全高度"
if $xchj == 3 and $xchk==7 {
EDIT TOOLPATH SAFEAREA SIZE $X3
}
string list X9 = extract(folder("TOOLPATH"),"name")
string list X7 = get_folders("TOOLPATH")
foreach X8 in X7 {
string list X1 = extract(folder($X8),"name")
$x9 = subtract(x9,x1)
INT X2 = size(folder(X8))
INT X4 = $x2-1
IF X2 < 1 {
CONTINUE
}
string x5 = pathname(entity("toolpath",x1[0]))
string x6 = pathname(entity("toolpath",x1[x4]))
EXPLORER SELECT Toolpath $x5 NEW
EXPLORER SELECT Toolpath $x6 SERIES
RESET SELECTED TOOLPATH RAPID
}
//设置文件夹外的
INT X2 = size(x9)
INT X4 = $x2-1
IF X2 < 1 {
macro abort
}
string x5 = pathname(entity("toolpath",x9[0]))
//string x6 = pathname(entity("toolpath",x9[x4]))
EXPLORER SELECT Toolpath $x5 NEW
EXPLORER SELECT Toolpath $x5 SERIES
RESET SELECTED TOOLPATH RAPID
|
|
发表于 2024-3-23 20:11:34
