oyxx1023 发表于 2009-1-2 10:48:00

<p>OCX文件的注册大大限制了这种方式的应用,想想看,有几个使用者为了用这个多选文件而去装VB6?</p><p>不装VB的话,(vlax-create-object "MSComDlg.CommonDialog")返回NIL,后面的都是空谈.</p><p>哪怕把OCX拷到SYSTEM32目录注册了也不行.</p>

wangph 发表于 2009-1-2 12:01:00

<p><font size="2">加入下面一句就行了</font></p><p><font size="2">(vl-registry-write<br/>"HKEY_CLASSES_ROOT\\Licenses\\4D553650-6ABE-11cf-8ADB-00AA00C00905"<br/>""<br/>"gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"<br/>)</font>
        </p>

hongchunxion 发表于 2009-7-3 11:55:00

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

yeshuaxing 发表于 2012-3-5 01:26:04

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

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

cabinsummer 发表于 2012-3-6 05:55:38

值得加精华

zyhandw 发表于 2012-12-25 15:04:31

受教了！真值得学习啊

snddd2000 发表于 2013-1-31 16:56:01

本帖最后由 snddd2000 于 2013-1-31 16:57 编辑

;;;;;;MsoFileDialogType 枚举
;;;;;;名称                              值               描述
;;;;;;msoFileDialogFilePicker      3         文件选取器”对话框。
;;;;;;msoFileDialogFolderPicker      4         文件夹选取器”对话框。
;;;;;;msoFileDialogOpen                1         打开”对话框。
;;;;;;msoFileDialogSaveAs      2         另存为”对话框。

(setq excelapp0 (vlax-create-object "Excel.Application"))
(setq fd (vlax-get-property excelapp0 'FileDialog 3))
(setq filelist nil)
(vlax-invoke-method
fd
'show
) ;_-1=打开文件；0=取消
(vlax-for file
               (vlax-get-property fd 'selecteditems)
(setq filelist (cons file filelist))
)
(vlax-release-object excelapp0)
(gc)
安装了office的话可以用excel里的FileDialog来实现文件窗口

xsso 发表于 2013-1-31 23:44:13

哇！虽然未知有功能，看了讨论应该是好复杂的问题被大伙们解决了！
页: 1 2 3 4 5 [6]
查看完整版本: vlisp如何打开多重选择文件对话框