论坛 › PowerMill › 此宏没人搞得了啊

幸福很简单 发表于 2024-5-22 18:27:17

此宏没人搞得了啊

此提取刀具宏我想改成提取端铣刀宏 缺怎么都不行谁知道问题在哪里啊
FUNCTION Main() {
DIALOGS MESSAGE OFF
DIALOGS ERROR OFF
GRAPHICS LOCK
STRING LIST KaiCu=EXTRACT(FOLDER("Tool"),'name')
int t = INPUT CHOICE $KaiCu "选择刀具："
ACTIVATE TOOL $KaiCu
ECHO OFF DCPDEBUG UNTRACE COMMAND ACCEPT
STRING LIST THList={}
FOREACH TH IN FOLDER('Toolpath') {
IF th.Coolant.value=='both' {
   int i=add_last(THList,th.name)
}
}
FOREACH D IN $THList {
EDIT TOOLPATH $D REPLACE_TOOL;
}

这么近 发表于 2024-5-23 13:00:42

把第五行 STRING LIST KaiCu=EXTRACT(FOLDER("Tool"),'name')
换成下面5行
FOREACH TL IN FOLDER('Tool') {
IF $tl.type == "end_mill" {
   int iL=add_last(KaiCu,TL.name)
}
}

qqq19303 发表于 2024-5-23 20:58:19

6666666666666666666666

幸福很简单 发表于 2024-5-24 01:15:14

这么近 发表于 2024-5-23 13:00
把第五行 STRING LIST KaiCu=EXTRACT(FOLDER("Tool"),'name')
换成下面5行
FOREACH TL IN FOLDER('Tool') ...

你好 我试了下 命令窗口出现下列代码；
Process Command : [   int iL =add_last(KaiCu,TL.name)\n]

错误： 不能求值表达式:nadd_last(KaiCu,TL.name)
错误: #错误: 无效参数
不知是我哪里设置出现了问题

这么近 发表于 2024-5-25 08:27:46

幸福很简单 发表于 2024-5-24 01:15
你好 我试了下 命令窗口出现下列代码；
Process Command : [   int iL =add_last(KaiCu,TL.name)\n]
...

少了一行, 替换这6行
STRING LIST KaiCu={}
FOREACH TL IN FOLDER('Tool') {
IF $tl.type == "end_mill" {
   int iL=add_last(KaiCu,TL.name)
}
}

这么近 发表于 2024-5-25 08:29:42

少了一行,是替换以下6行
STRING LIST KaiCu={}
FOREACH TL IN FOLDER('Tool') {
IF $tl.type == "end_mill" {
   int iL=add_last(KaiCu,TL.name)
}
}

查看完整版本: 此宏没人搞得了啊