【已解决】有没有可以弹窗，然后选择路径的函数？

zc1zc2 · 发表于 2021-2-10 19:11:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 zc1zc2 于 2021-2-11 12:45 编辑

类似getfiled，但是不是获取某个文件路径，而是生成文件夹路径。像cad里保存时弹出的对话框，功能是通过弹窗可以选择保存的路径，返回文件夹的路径。

muwind · 发表于 2021-2-26 21:47:36

zc1zc2 发表于 2021-2-26 18:42
这个弹窗里没有桌面的选项，知道怎么改能有么？

个人用的下面这个，也是从论坛找到的，欢迎拿走，不用谢
(defun FyGetFolder ( / Folder shell)
(vl-load-com)
(setq FyShell (Vlax-Get-Or-Create-Object "Shell.Application"))
(if (setq Folder (Vlax-Invoke-Method FyShell 'BrowseForFolder 0 "请选择你要备份的文件夹" 255))
(setq Folder (vlax-get-property (vlax-get-property Folder 'self) 'path))
)
(vlax-release-object FyShell)
(if (vl-file-directory-p Folder) Folder)
)

muwind · 发表于 2021-2-10 21:13:39

http://bbs.xdcad.net/forum.php?m ... highlight=getfolder
[文档类] [函数发布] （XD::DOC:GetFolder）目录选择对话框

kmliro_2017 · 发表于 2021-2-12 08:21:04

谢谢分享！！！

kmliro_2017 · 发表于 2021-2-13 08:01:08

谢谢分享！！！！！

SHUNDocker · 发表于 2021-2-14 16:16:32

谢谢分享！！！！！

zc1zc2 · 发表于 2021-2-26 18:42:48

muwind 发表于 2021-2-10 21:13
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=707928&highlight=getfolder
[文档类] [函数发布] （ ...

这个弹窗里没有桌面的选项，知道怎么改能有么？

账号		自动登录	找回密码
密码			立即注册

[求助] 【已解决】有没有可以弹窗，然后选择路径的函数？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

评分

点评