求AUTOLISP能编出目录树的对话框吗

wu9602089

如题，就是TREE的目录树。如果可以能否提供原码和一个操作实例。

wu9602089

这个问题有这么难吗，还是CAD中没有这个功能。

ZZXXQQ

用GETFILED不行吗？

(GETFILED "对话框标题" "[文件名]" "[扩展名]" "标志")

无痕

转贴

2. ;|
3. 12.如何用LISP打开WINDOWS的选择目录对话框?
4.    方法有5种:
5.    a.(setq bmpdir (xdrx_getdir "选择目录" "" "请选取目录" ))
6.    b.(dos_getdir "选择目录:" "c:\\\")
7.    c.(setq picdir (Odcl_BrowseFolder "选取文件目录"  ""))
8.    d.(acet-ui-pickdir "选择目录" "" "请指定目录")
9.    e:
10.      Code:
11. |;
12. ;; (qf_getFolder "")
13. (defun qf_getFolder (msg / WinShell shFolder path catchit)
14.   (vl-load-com)
15.   (setq winshell (vlax-create-object "Shell.Application"))
16. ; (vlax-dump-object winshell T)
17.   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
18.   (setq
19.     catchit (vl-catch-all-apply
20.       '(lambda ()
21. (setq shFolder (vlax-get-property shFolder 'self))
22. (setq path (vlax-get-property shFolder 'path))
23.        )
24.     )
25.   )
26.   (if (vl-catch-all-error-p catchit)
27.     nil
28.     path
29.   )
30. )

;| 12.如何用LISP打开WINDOWS的选择目录对话框?    方法有5种:    a.(setq bmpdir (xdrx_getdir "选择目录" "" "请选取目录" ))    b.(dos_getdir "选择目录:" "c:\\\")    c.(setq picdir (Odcl_BrowseFolder "选取文件目录"  ""))    d.(acet-ui-pickdir "选择目录" "" "请指定目录")    e:      Code: |; ;; (qf_getFolder "") (defun qf_getFolder (msg / WinShell shFolder path catchit)   (vl-load-com)   (setq winshell (vlax-create-object "Shell.Application")) ; (vlax-dump-object winshell T)   (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))   (setq     catchit (vl-catch-all-apply       '(lambda () (setq shFolder (vlax-get-property shFolder 'self)) (setq path (vlax-get-property shFolder 'path))        )     )   )   (if (vl-catch-all-error-p catchit)     nil     path   ) )