怎么修复这个输出问题？

liu2000 · 发表于 2025-1-10 16:58:44

变量名	类型	静态	数组	备注
选中	整数型		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文件夹里

尛龍科技 · 发表于 2025-1-10 18:03:18

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

获取 ()
选中＝路径列表列表框1.取所有被选择项目 ()
成员数＝取数组成员数 (选中)

如果真 (成员数＝ 0)

信息框 (“你不选中路径往外输出什么？”, #错误图标, “错误”, 主界面.取窗口句柄 ())

返回 ()

调试输出 (成员数)

如果真 (上次保存目录 ≠ “” 且目录是否存在 (上次保存目录))

保存目录＝新浏览文件夹 (“”, “请选择转换保存位置”, 上次保存目录, , )

保存目录＝新浏览文件夹 (“”, “请选择转换保存位置”, , , )