此宏没人搞得了啊

幸福很简单

此提取刀具宏  我想改成提取端铣刀宏 缺怎么都不行  谁知道问题在哪里啊
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[t]
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;
}

这么近

把第五行 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

6666666666666666666666

幸福很简单

这么近 发表于 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-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)
  }
}

这么近

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