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

afeng0712

Ea兄，烦把你联系方式告诉我好吗？我编程序涉及这方面问题，急想问你！急盼解决，几乎随时都在关心你们的答复，因为没有这方面的相关中文帮助目前我解决不了！

我的邮箱cwafeng@163.com

afeng0712

(DEFUN GETFILES (MSG WL / X)
  (VL-LOAD-COM)
  (IF (NOT (VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG"))
    (VL-REGISTRY-WRITE
      "HKEY_CLASSES_ROOT\\LICENSES\\4D553650-6ABE-11CF-8ADB-00AA00C00905"
      ""
      "GFJMRFKFIFKMKFFFRLMMGMHMNLULKMFMQKQJ"
    )
  )
  (IF (SETQ X (VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG"))
    (PROGN
      (IF (NOT PATH)
 (SETQ PATH "")
      )
      (VLAX-PUT-PROPERTY X "DIALOGTITLE" MSG)
      (VLAX-PUT-PROPERTY X "FILENAME" WL)
      (VLAX-PUT-PROPERTY X "FILTER" WL)
      (VLAX-PUT-PROPERTY X "INITDIR" PATH)
      (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 (AND ERG (/= ERG WL))
    (SETQ ERG (STTOLST ERG))
    (SETQ ERG NIL)
  )
)

(DEFUN STTOLST (STR / F F2 LST I)
  (SETQ I 1)
  (SETQ F2 "")
  (WHILE (/= (SETQ F (SUBSTR STR I 1)) "")
    (IF (= F " ")
      (PROGN
 (SETQ LST (APPEND LST (LIST F2)))
 (SETQ F2 "")
      )
      (SETQ F2 (STRCAT F2 F))
    )
    (SETQ I (1+ I))
  )
  (SETQ LST (APPEND LST (LIST F2)))
)

调用命令：(GETFILES "选择需要批处理打印的文件"  "*.PLT")

龙龙仔

mccad发表于2005-9-30 21:46:00虽然可以改成(vlax-put-property x \"Flags\" (+ 512 524288))来调用新的打开文件对话框，但返回值一直都调不出来。但用同样的方法在VBA中使用则没有问...

这个问题是可以解决的!

先让网友想想!!

 

;;test OK with XP
;;(mjtd-getfiles DialogTitle filter)
;;(mjtd-getfiles "选择图形文件" "Drawing Files|*.dwg|All Files|*.*")
 

citykunan

龙版主的作品就是不一样啊！！！

xiaomu

;;;说明:                                                       
;;;本函数使用MsComDlg.Commondialog对象                         
;;;可以进行多文件选取                                          
;;;功能上类同于dos_getfilem                                    
;;;返回值为"C:\\CAD\\DWG\000ct7b.dwg\000ct7c.dwg\000ct8.dwg"   
;;;其中"\000"为空字符；                                        
;;;(setq maxfs   32767                                         
;;;      flags    (+ 4 512 524288 1048576 1024)                
;;;      diatl   "请选择"                                      
;;;      filter  "图形文件(*.dwg)|*.dwg|所有文件(*.*)|*.*"     
;;;      initdir ""                                            
;;;)                                                           
;;;调用方式 (Ms_getfilem maxfs flags diatl filter initdir)     
;;;适用于cadR15以上任何本                                      
;;;引用时请保留本明                                            
;;;by cs 2005.8.15                                             

(defun Ms_getfilem (maxfs flags diatl filter initdir / wincomdlg filem)
  (vl-load-com)
  (setq wincomdlg (vlax-create-object "MSComDlg.CommonDialog"))
  (vlax-put-property wincomdlg 'CancelError :vlax-true)
  (vlax-put-property wincomdlg 'MaxFileSize maxfs)
  (vlax-put-property
    wincomdlg
    'Flags
    flags
  )
  (vlax-put-property wincomdlg 'DialogTitle diatl)
  (vlax-put-property
    wincomdlg
    'Filter
    filter
  )
  (vlax-put-property wincomdlg 'InitDir initdir)
  (vlax-invoke-method wincomdlg 'ShowOpen)
  (setq filem (vlax-get wincomdlg 'filename)) 
  (vlax-release-object wincomdlg)
  filem
)

xiaomu

不知道龙龙仔是怎么解决的，

我尝试了很多次才试出来的

用 (vlax-get wincomdlg 'filename)

替换(comdlgp-get-FileName wincomdlg)

但是其实还是不知道两种表达方式的真正差别?

请龙龙仔指导咯。

龙龙仔

;;返回值为"C:\\CAD\\DWG\000ct7b.dwg\000ct7c.dwg\000ct8.dwg"

;;你是指去除"\000"吗?那再简单不过!    函数:vl-string->list

afeng0712

龙老大，对话框打开后若取消会出错？能不能返回是NIL就好了，这样可执行相应后面操作！

afeng0712

你是指去除"\000"吗?那再简单不过!    函数:vl-string->list
好象不那么简单，我是这样解决的！

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN MS_GETFILEM (MAXFS FLAGS DIATL FILTER INITDIR / WINCOMDLG)
  (VL-LOAD-COM)
  (IF (NOT (VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG"))
    (VL-REGISTRY-WRITE
      "HKEY_CLASSES_ROOT\\LICENSES\\4D553650-6ABE-11CF-8ADB-00AA00C00905"
      ""
      "GFJMRFKFIFKMKFFFRLMMGMHMNLULKMFMQKQJ"
    )
  )
  (SETQ WINCOMDLG (VLAX-CREATE-OBJECT "MSCOMDLG.COMMONDIALOG"))
  (VLAX-PUT-PROPERTY WINCOMDLG 'CANCELERROR :VLAX-TRUE)
  (VLAX-PUT-PROPERTY WINCOMDLG 'MAXFILESIZE MAXFS)
  (VLAX-PUT-PROPERTY
    WINCOMDLG
    'FLAGS
    FLAGS
  )
  (VLAX-PUT-PROPERTY WINCOMDLG 'DIALOGTITLE DIATL)
  (VLAX-PUT-PROPERTY
    WINCOMDLG
    'FILTER
    FILTER
  )
  (VLAX-PUT-PROPERTY WINCOMDLG 'INITDIR INITDIR)
  (VLAX-INVOKE-METHOD WINCOMDLG 'SHOWOPEN)
  (SETQ FILEM (VLAX-GET WINCOMDLG 'FILENAME))
  (VLAX-RELEASE-OBJECT WINCOMDLG)
  (FSTR->LST FILEM)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN FSTR->LST (FM / N)
  (SETQ FF NIL)
  (IF (VL-STRING-POSITION (ASCII "\000") FM)
    (PROGN
      (WHILE (VL-STRING-POSITION (ASCII "\000") FM)
 (SETQ N (VL-STRING-POSITION (ASCII "\000") FM))
 (SETQ FF (APPEND FF (LIST (SUBSTR FM 1 N))))
 (SETQ FM (SUBSTR FM (+ N 2) (- (STRLEN FM) N 1)))
      )
      (SETQ FF (APPEND FF (LIST FM)))
    )
    (PROGN
      (SETQ FF (VL-FILENAME-DIRECTORY FM))
      (SETQ FF (LIST FF (VL-STRING-SUBST "" FF FM)))
    )
  )
调用命令
(DEFUN AA()
(SETQ MAXFS   32767
      FLAGS   (+ 4 512 524288 1048576 1024)
      DIATL   "请选择"
      FILTER  "打印文件(*.plt)|*.plt|所有文件(*.*)|*.*"
      INITDIR ""
)
(IF PATH
  (SETQ INITDIR PATH)
  (SETQ INITDIR "")
)
(MS_GETFILEM MAXFS FLAGS DIATL FILTER INITDIR))

xiaomu

没有，我指的是

为什么用 (vlax-get wincomdlg 'filename)可以得到返回值，

而 (comdlgp-get-FileName wincomdlg) 却只有路径没有文件名呢？

这两个到底有什么差别？