如何调用64位的多文件选择框

carrot1983

2. 
   
3. 
   
4. *
   
5. ' *   commdlg.h -- This module defines the 32-Bit Common Dialog APIs      *
   
6. 
   
7. Type OPENFILENAME
   
8.         lStructSize As Long
   
9.         hwndOwner As Long
   
10.         hInstance As Long
    
11.         lpstrFilter As String
    
12.         lpstrCustomFilter As String
    
13.         nMaxCustFilter As Long
    
14.         nFilterIndex As Long
    
15.         lpstrFile As String
    
16.         nMaxFile As Long
    
17.         lpstrFileTitle As String
    
18.         nMaxFileTitle As Long
    
19.         lpstrInitialDir As String
    
20.         lpstrTitle As String
    
21.         flags As Long
    
22.         nFileOffset As Integer
    
23.         nFileExtension As Integer
    
24.         lpstrDefExt As String
    
25.         lCustData As Long
    
26.         lpfnHook As Long
    
27.         lpTemplateName As String
    
28. End Type
    
29. 
    
30. Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
    
31. 
    
32. Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
    
33. 
    
34. Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer

<br /> <br /> *<br /> ' *   commdlg.h -- This module defines the 32-Bit Common Dialog APIs      *<br /> <br /> Type OPENFILENAME<br />         lStructSize As Long<br />         hwndOwner As Long<br />         hInstance As Long<br />         lpstrFilter As String<br />         lpstrCustomFilter As String<br />         nMaxCustFilter As Long<br />         nFilterIndex As Long<br />         lpstrFile As String<br />         nMaxFile As Long<br />         lpstrFileTitle As String<br />         nMaxFileTitle As Long<br />         lpstrInitialDir As String<br />         lpstrTitle As String<br />         flags As Long<br />         nFileOffset As Integer<br />         nFileExtension As Integer<br />         lpstrDefExt As String<br />         lCustData As Long<br />         lpfnHook As Long<br />         lpTemplateName As String<br /> End Type<br /> <br /> Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> <br /> Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long<br /> <br /> Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer

在AutoCAD 2012 时，win7 用的是64位的，发现(setq WINDLG (vlax-create-object "MSComDlg.CommonDialog")) 返回为nil

想用  WIN32API ，发现还是不行。

http://bbs.mjtd.com/thread-85724-1-1.html
http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid737820

      (setq name "C:\\DynWrapX.dll")
      (setq wsh (vlax-Create-Object "wscript.shell"))
      (vlax-invoke wsh 'Run (strcat "RegSvr32.exe " name))
      (setq wrap (vlax-create-object "DynamicWrapperX"))

wrap返回的是nil
AutoCAD2012　64位的时候，好像还是不行

carrot1983

API　什么的，不是太懂。
想问一下，有没有可能调用像AutoCAD自身在使用的多文件选择框？
不管是６４位还是３２位。

http://wangye.org/blog/archives/551/
找了很久，一直无果。

zzyong00

64位系统 64位cad，在vba用API调用文件选择对话框，简直是恶梦，至今未成功，只有一个调用文件夹选择对话框成功过

carrot1983

目前是先用opendcl替代，ＡＲＸ好是好，就是有版本的问题，ＣＡＤ版本一变，就得更新。

陨落

(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
  )
)

哪位大侠写的，忘了

carrot1983

文件夹选择的，很早就有了，作用不太人性化。

http://www.mjtd.com/function/info-129-369.html