明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3025|回复: 26

[函数] 【API】多文件选择函数,支持所有CAD版本的多选

  [复制链接]
发表于 2024-8-4 01:15:24 | 显示全部楼层 |阅读模式
本帖最后由 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);打开函数说明


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 10明经币 +10 金钱 +35 收起 理由
ssyfeng + 1 很给力!
dtucad + 1 赞一个!
tigcat + 1 + 5 很给力!
cjrun + 1 很给力!
magicheno + 1 很给力!
xshrimp + 1 很给力!
pzweng + 1 很给力!
highflybird + 1 + 30 很给力!
cchessbd + 1 很给力!
baitang36 + 1 很给力!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2024-8-4 15:26:45 | 显示全部楼层
好贴呀,可惜bricscad不支持fas,现在我们用这个了。
回复 支持 0 反对 1

使用道具 举报

发表于 2024-8-5 12:30:32 | 显示全部楼层
自贡黄明儒 发表于 2024-8-4 15:26
好贴呀,可惜bricscad不支持fas,现在我们用这个了。

黄大师 大朋有个内部函数群,你问问大朋,他研究的很透彻了
 楼主| 发表于 2024-11-2 09:20:02 | 显示全部楼层
ssyfeng 发表于 2024-11-1 10:11
在windows 10操作系统,auto CAD2022 64位上运行全部返回nil
不知道什么原因

把lispsys改成0重启
发表于 2024-8-4 01:23:37 | 显示全部楼层
抢个沙发坐坐
发表于 2024-8-4 01:47:52 | 显示全部楼层
牛,就一个字
发表于 2024-8-4 08:13:09 | 显示全部楼层
这个功能比较实用
发表于 2024-8-4 08:17:08 | 显示全部楼层
厉害,海哥这个程序很实用。
发表于 2024-8-4 09:44:07 | 显示全部楼层
大佬半夜了还在研究!
发表于 2024-8-4 11:30:10 | 显示全部楼层
似乎有点问题的

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

感谢反馈,附件已修正  发表于 2024-8-4 12:10

评分

参与人数 1明经币 +1 收起 理由
tryhi + 1

查看全部评分

发表于 2024-8-4 12:02:42 | 显示全部楼层
感谢分享                        
发表于 2024-8-4 13:20:45 | 显示全部楼层
Thanks for sharing <3
令人惊奇的是,您可以使用纯 Lisp 来构建具有非列表的可选参数的函数。
你能分享一个小秘密吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 17:09 , Processed in 0.216804 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表