怎么修复这个输出问题？

liu2000

  

变量名	类 型	静态	数组	备 注
选中	整数型		0
成员数	整数型
n	整数型
t	文本型

获取 ()
选中 ＝ 路径列表列表框1.取所有被选择项目 ()
成员数 ＝ 取数组成员数 (选中)
' t ＝ 新浏览文件夹 (“”, “请选择转换保存位置111”, , , )
如果真 (成员数 ＝ 0)
信息框 (“你不选中路径往外输出什么？”, #错误图标, “错误”, 主界面.取窗口句柄 ())
返回 ()
调试输出 (成员数)
计次循环首 (成员数, n)
如果真 (路径列表列表框1.取项目文本 (选中 [n]) ≠ “”)
获取 ()
发送 (“DELETE NCPROGRAM ALL\r”)
发送 (“CREATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “APPEND TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “DEACTIVATE NCPROGRAM”)
发送 (“EDIT NCPROGRAM PREFERENCES FILETYPE CUTFILE”)
发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “SET WORKPLANE 'G54'”)
发送 (“EDIT NCPROGRAM ” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “FILENAME ” ＋ 新浏览文件夹 () ＋ “/” ＋ “{ncprogram}”)
发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “ITEM 0 COMPONENT 0 LENGTH” ＋ #引号 ＋ 输入摆长.内容 ＋ #引号 )
发送 (“ACTIVATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “KEEP NCPROGRAM ;”)
发送 (“YES”)
发送 (“ACTIVATE TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 )  ' 激活刀路

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 选中, 整数型, , "0"<br /> .局部变量 成员数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 t, 文本型<br /> <br /> 获取 ()<br /> 选中 ＝ 路径列表列表框1.取所有被选择项目 ()<br /> 成员数 ＝ 取数组成员数 (选中)<br /> ' t ＝ 新浏览文件夹 (“”, “请选择转换保存位置111”, , , )<br /> .如果真 (成员数 ＝ 0)<br />     信息框 (“你不选中路径往外输出什么？”, #错误图标, “错误”, 主界面.取窗口句柄 ())<br />     返回 ()<br /> .如果真结束<br /> 调试输出 (成员数)<br /> .计次循环首 (成员数, n)<br />     .如果真 (路径列表列表框1.取项目文本 (选中 [n]) ≠ “”)<br />         获取 ()<br />         发送 (“DELETE NCPROGRAM ALL\r”)<br />         发送 (“CREATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “APPEND TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “DEACTIVATE NCPROGRAM”)<br />         发送 (“EDIT NCPROGRAM PREFERENCES FILETYPE CUTFILE”)<br />         发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “SET WORKPLANE 'G54'”)<br />         发送 (“EDIT NCPROGRAM ” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “FILENAME ” ＋ 新浏览文件夹 () ＋ “/” ＋ “{ncprogram}”)<br />         发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “ITEM 0 COMPONENT 0 LENGTH” ＋ #引号 ＋ 输入摆长.内容 ＋ #引号)<br />         发送 (“ACTIVATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “KEEP NCPROGRAM ;”)<br />         发送 (“YES”)<br />         发送 (“ACTIVATE TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号)  ' 激活刀路<br />     .如果真结束<br /> <br /> .计次循环尾 ()

问题1：现在问题是输出1个文件没问题（不显问题输出多个才会显出来），输出多个文件就会输出1个弹1次浏览文件夹，一直弹出浏览文件夹到输出完

问题2：如何浏览文件夹输出1次后比如是D盘里的A文件夹里，下次浏览文件夹，输出默认选中为上次输出目录到D盘里的A文件夹里

liu2000

尛龍科技 发表于 2025-1-10 18:03
[e=0].版本 2

.局部变量 上次保存目录, 文本型

不行哇老哥，全是报错

菜鸟路过

尛龍科技 发表于 2025-1-10 18:03
[e=0].版本 2

.局部变量 上次保存目录, 文本型

上次保存目录 你这个变量要申明静态，否则也是无效的

尛龍科技

  

变量名	类 型	静态	数组	备 注
上次保存目录	文本型
选中	整数型		0
成员数	整数型
n	整数型
t	文本型
保存目录	文本型

获取 ()
选中 ＝ 路径列表列表框1.取所有被选择项目 ()
成员数 ＝ 取数组成员数 (选中)
如果真 (成员数 ＝ 0)
信息框 (“你不选中路径往外输出什么？”, #错误图标, “错误”, 主界面.取窗口句柄 ())
返回 ()

调试输出 (成员数)
如果真 (上次保存目录 ≠ “”  且  目录是否存在 (上次保存目录))
保存目录 ＝ 新浏览文件夹 (“”, “请选择转换保存位置”, 上次保存目录, , )
保存目录 ＝ 新浏览文件夹 (“”, “请选择转换保存位置”, , , )

上次保存目录 ＝ 保存目录
计次循环首 (成员数, n)
如果真 (路径列表列表框1.取项目文本 (选中 [n]) ≠ “”)
获取 ()
发送 (“DELETE NCPROGRAM ALL\r”)
发送 (“CREATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “APPEND TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “DEACTIVATE NCPROGRAM”)
发送 (“EDIT NCPROGRAM PREFERENCES FILETYPE CUTFILE”)
发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “SET WORKPLANE 'G54'”)
发送 (“EDIT NCPROGRAM ” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “FILENAME ” ＋ 保存目录 ＋ “/” ＋ “{ncprogram}”)
发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “ITEM 0 COMPONENT 0 LENGTH” ＋ #引号 ＋ 输入摆长.内容 ＋ #引号 )
发送 (“ACTIVATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “KEEP NCPROGRAM ;”)
发送 (“YES”)
发送 (“ACTIVATE TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 )  ' 激活刀路

计次循环尾 ()

.版本 2<br /> <br /> .局部变量 上次保存目录, 文本型<br /> .局部变量 选中, 整数型, , "0"<br /> .局部变量 成员数, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 t, 文本型<br /> .局部变量 保存目录, 文本型<br /> <br /> 获取 ()<br /> 选中 ＝ 路径列表列表框1.取所有被选择项目 ()<br /> 成员数 ＝ 取数组成员数 (选中)<br /> .如果真 (成员数 ＝ 0)<br />     信息框 (“你不选中路径往外输出什么？”, #错误图标, “错误”, 主界面.取窗口句柄 ())<br />     返回 ()<br /> .如果真结束<br /> <br /> 调试输出 (成员数)<br /> <br /> .如果真 (上次保存目录 ≠ “”  且  目录是否存在 (上次保存目录))<br />     保存目录 ＝ 新浏览文件夹 (“”, “请选择转换保存位置”, 上次保存目录, , )<br />     保存目录 ＝ 新浏览文件夹 (“”, “请选择转换保存位置”, , , )<br /> .如果真结束<br /> <br /> 上次保存目录 ＝ 保存目录<br /> <br /> .计次循环首 (成员数, n)<br />     .如果真 (路径列表列表框1.取项目文本 (选中 [n]) ≠ “”)<br />         获取 ()<br />         发送 (“DELETE NCPROGRAM ALL\r”)<br />         发送 (“CREATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “APPEND TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “DEACTIVATE NCPROGRAM”)<br />         发送 (“EDIT NCPROGRAM PREFERENCES FILETYPE CUTFILE”)<br />         发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “SET WORKPLANE 'G54'”)<br />         发送 (“EDIT NCPROGRAM ” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “FILENAME ” ＋ 保存目录 ＋ “/” ＋ “{ncprogram}”)<br />         发送 (“EDIT NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “ITEM 0 COMPONENT 0 LENGTH” ＋ #引号 ＋ 输入摆长.内容 ＋ #引号)<br />         发送 (“ACTIVATE NCPROGRAM” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号 ＋ “KEEP NCPROGRAM ;”)<br />         发送 (“YES”)<br />         发送 (“ACTIVATE TOOLPATH” ＋ #引号 ＋ 路径列表列表框1.取项目文本 (选中 [n]) ＋ #引号)  ' 激活刀路<br />     .如果真结束<br /> <br /> .计次循环尾 ()