【API】多文件选择函数，支持所有CAD版本的多选
本帖最后由 tryhi 于 2024-8-4 12:12 编辑感谢baitang36 大神的 [试验]用纯lisp打造一个多选文件对话框（仅实现32位，64位cad不能用）
一开始因其不支持64位而放弃，原因是lsp无法使用64位指针，后来发现结构体并不需要指针修改，可以直接创建，从而适配了64位，所以在其基础上增加64位CAD支持，更改对话框样式，增加多个参数
本fas单独加载时有回显，打包后就没有回显，不影响打包使用，无限制
;;[可选]参数1：标题（默认为打开）
;;[可选]参数2：起始目录（默认为上一次目录）
;;[可选]参数3：缺省文件名（默认为空）
;;[可选]参数4：过滤器（文件扩展名），默认为*.*
;;返回所选择的文件列表
;;示例：4个参数均为可选，也可使用nil
(try-getfiles);无参数调用
(try-getfiles "标题" "d:\\")
(try-getfiles nil nil nil "*.lsp;*.fas")
(try-getfiles "标题" "c:\\" "c:\\1.txt" "*.lsp;*.fas;*.vlx;*.txt")
(?try-getfiles);打开函数说明
好贴呀，可惜bricscad不支持fas,现在我们用这个了。 sandyvs 发表于 2025-2-18 00:41
海哥，文件夹的能实现类似的结果吗？用shell.ApplicationBrowseForFolder的话，如果指定了根目录，就无法 ...
BrowseForFolder方法有开关可以控制显示顶级目录。搜一下就行 海哥，文件夹的能实现类似的结果吗？用shell.ApplicationBrowseForFolder的话，如果指定了根目录，就无法选择上一级了。想打开一个默认的文件夹，还能返回这个文件夹的上一级 抢个沙发坐坐 牛，就一个字 这个功能比较实用 厉害，海哥这个程序很实用。 大佬半夜了还在研究！ 大海出品 似乎有点问题的 感谢分享 Thanks for sharing <3
令人惊奇的是，您可以使用纯 Lisp 来构建具有非列表的可选参数的函数。
你能分享一个小秘密吗？