vlisp如何打开多重选择文件对话框

iceberg2509

lisp中有getfiled函数打开选择文件，可是不能多重选择，又没有别的办法，可以进行多重选择？

alin

(dos_getfilem) in DosLib

Ea

http://www.xdcad.net/forum/showthread.php?s=&threadid=462509

iceberg2509

alin版主：可以不用doslib吗？因为这个跟版本有关系的，我个人不是很喜欢。

ea：你那个链接打不开。我在xdcad上搜索了一下，也没有发现有价值的。

其实，这个功能我可以通过vb ActiveX DLL来实现，但是我就是想知道不通过这个，在vlisp下的直接调用系统资源能否实现？

alin

这是最简洁的办法。DosLib又不是只有这个函数有用。

Ea

2. http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=50
3. ;;test OK with XP
4. (defun xd-getfiles (/ x erg)
5.   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))
6.     (progn (vlax-put-property x "DialogTitle" "选择图形文件")
7. 	   (vlax-put-property x "Filename" "*.dwg")
8. 	   (vlax-put-property x "Filter" "*.dwg")
9. 	   (vlax-put-property x "MaxFileSize" 10000)
10. 	   ;; in lisp unbedingt notwendig, sonst kommt ne
11.            ;;fehlermeldung von wegen zu wenig speicher
12. 	   (vlax-put-property x "Flags" 512)
13. 	   (vlax-put-property x "Action" 1) ;_ showopen-dialog  
14. 	   (setq erg (vlax-get-property x "Filename"))
15.     )
16.   )
17.   (if (/= erg "*.dwg")
18.     erg
19.     nil
20.   )
21. )

http://www.xdcad.net/forum/forumdisplay.php?s=&forumid=50 ;;test OK with XP (defun xd-getfiles (/ x erg)   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))     (progn (vlax-put-property x "DialogTitle" "选择图形文件") 	   (vlax-put-property x "Filename" "*.dwg") 	   (vlax-put-property x "Filter" "*.dwg") 	   (vlax-put-property x "MaxFileSize" 10000) 	   ;; in lisp unbedingt notwendig, sonst kommt ne            ;;fehlermeldung von wegen zu wenig speicher 	   (vlax-put-property x "Flags" 512) 	   (vlax-put-property x "Action" 1) ;_ showopen-dialog   	   (setq erg (vlax-get-property x "Filename"))     )   )   (if (/= erg "*.dwg")     erg     nil   ) )

iceberg2509

Ea发表于2005-9-25 17:38:00

谢谢ea:可以实现，但是这个窗口很难看，不是vb中的那个多选框那么漂亮。ea:这个程序一模一样相同功能还可以通过脚本来实现。

Ea

很遗憾漂亮的对话框不能多选，解决方案寻找中。

ttthhh_hb

6楼 ，我在winxps2 + CAD2006 下运行，返回nil。

怎么回事啊？

xiaomu

改变 "flags"参数的值，可以得到不同的对话框

(vlax-put-property x "Flags" 512)

具体的数值可以查相关的帮助。