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

oyxx1023

OCX文件的注册大大限制了这种方式的应用,想想看,有几个使用者为了用这个多选文件而去装VB6?

不装VB的话,(vlax-create-object "MSComDlg.CommonDialog")返回NIL,后面的都是空谈.

哪怕把OCX拷到SYSTEM32目录注册了也不行.

wangph

加入下面一句就行了

(vl-registry-write
"HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"
""
"gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"
)

hongchunxion

(SETQ ERG (VLAX-GET-PROPERTY X "FILENAME")在有些cad平台上得到的只是文件所在的文件夹的绝对路径信息（多选情况下）。不知道怎样做才能得到所有选择的文件的信息。

yeshuaxing

ayunger 发表于 2008-11-6 10:03
本帖最后由 作者 于 2008-11-7 11:13:03 编辑  非常感谢wangph楼主，已经修正了ayFSTR->LST 函数错误,同 ...

谢谢了,尽管我来的迟,但还是收获不小,有时间再慢慢研究一下

cabinsummer

值得加精华

zyhandw

受教了！真值得学习啊

snddd2000

1. ;;;;;;MsoFileDialogType 枚举
   
2. ;;;;;;名称                                值                 描述
   
3. ;;;;;;msoFileDialogFilePicker        3         文件选取器”对话框。
   
4. ;;;;;;msoFileDialogFolderPicker        4         文件夹选取器”对话框。
   
5. ;;;;;;msoFileDialogOpen                1         打开”对话框。
   
6. ;;;;;;msoFileDialogSaveAs        2         另存为”对话框。
   
7. 
   
8. (setq excelapp0 (vlax-create-object "Excel.Application"))
   
9. (setq fd (vlax-get-property excelapp0 'FileDialog 3))
   
10. (setq filelist nil)
    
11. (vlax-invoke-method
    
12.   fd
    
13.   'show
    
14. ) ;_-1=打开文件；0=取消
    
15. (vlax-for file
    
16.                (vlax-get-property fd 'selecteditems)
    
17.   (setq filelist (cons file filelist))
    
18. )
    
19. (vlax-release-object excelapp0)
    
20. (gc)

;;;;;;MsoFileDialogType 枚举 <br /> ;;;;;;名称                                值                 描述 <br /> ;;;;;;msoFileDialogFilePicker        3         文件选取器”对话框。 <br /> ;;;;;;msoFileDialogFolderPicker        4         文件夹选取器”对话框。 <br /> ;;;;;;msoFileDialogOpen                1         打开”对话框。 <br /> ;;;;;;msoFileDialogSaveAs        2         另存为”对话框。<br /> <br /> (setq excelapp0 (vlax-create-object "Excel.Application"))<br /> (setq fd (vlax-get-property excelapp0 'FileDialog 3))<br /> (setq filelist nil)<br /> (vlax-invoke-method<br />   fd<br />   'show<br /> ) ;_-1=打开文件；0=取消<br /> (vlax-for file<br />                (vlax-get-property fd 'selecteditems)<br />   (setq filelist (cons file filelist))<br /> )<br /> (vlax-release-object excelapp0)<br /> (gc)

安装了office的话可以用excel里的FileDialog来实现文件窗口

xsso

哇！虽然未知有功能，看了讨论应该是好复杂的问题被大伙们解决了！