上等兵
UID9513432
U币1
G币129
技术0
主题4
精华0
阅读权限20
注册时间2021-11-27
最后登录2024-10-15
在线时间18 小时
手机17692291078
上等兵
|
有一部分代码,别人写的,只会变快进半径,下切半径不会变可能没有,有没有大佬看看怎么一起变啊?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
|
|