UG爱好者

标题: 此宏没人搞得了啊 [打印本页]

作者: 幸福很简单 时间: 2024-5-22 18:27
标题: 此宏没人搞得了啊
此提取刀具宏  我想改成提取端铣刀宏缺怎么都不行  谁知道问题在哪里啊
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;
}

作者: 这么近 时间: 2024-5-23 13:00
把第五行 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
6666666666666666666666

作者: 幸福很简单 时间: 2024-5-24 01:15

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

幸福很简单发表于 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
少了一行,是替换以下6行
STRING LIST KaiCu={}
FOREACH TL IN FOLDER('Tool') {
IF $tl.type == "end_mill" {
int iL=add_last(KaiCu,TL.name)
}
}

欢迎光临 UG爱好者 (https://www.ugsnx.com/)