如何实现手动选择要操作的文件

changyiran

2. (defun BrowseForFolder (PrmStr / ShlObj Folder FldObj OutVal);创建浏览文件夹对话框,返回文件夹路径。
   
3.     (vl-load-com)
   
4.     (setq ShlObj (vla-getInterfaceObject(vlax-get-acad-object) "Shell.Application")
   
5.           Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 PrmStr 0)
   
6.     )
   
7.     (vlax-release-object ShlObj)
   
8.     (if Folder
   
9.         (progn
   
10.            (setq FldObj (vlax-get-property Folder 'Self)
    
11.                  OutVal (vlax-get-property FldObj 'Path)
    
12.            )
    
13.            (vlax-release-object Folder)
    
14.            (vlax-release-object FldObj)
    
15.              OutVal
    
16.         )
    
17.     )
    
18. )

(defun BrowseForFolder (PrmStr / ShlObj Folder FldObj OutVal);创建浏览文件夹对话框,返回文件夹路径。<br />     (vl-load-com)<br />     (setq ShlObj (vla-getInterfaceObject(vlax-get-acad-object) "Shell.Application") <br />           Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 PrmStr 0)<br />     ) <br />     (vlax-release-object ShlObj)<br />     (if Folder<br />         (progn<br />            (setq FldObj (vlax-get-property Folder 'Self)<br />                  OutVal (vlax-get-property FldObj 'Path)<br />            ) <br />            (vlax-release-object Folder)<br />            (vlax-release-object FldObj)<br />              OutVal<br />         )<br />     )<br /> )

上述代码是在论坛搜的一个高手编的返回文件夹路径的函数，具体忘了哪位高手了，在此谢过。用上述函数能返回文件夹的路径，再根据VL-DIRECTORY-FILES函数即可返回文件夹下所有的文件名，但有时候我想只选择文件夹下的指定的几个文件，请问大侠们该如何实现呢？

changyiran

顶啊，高手在哪呢？各位版主大人呢？

Andyhon

http://cadxp.com/index.php?/topic/12139-msgbox-input-en-lisp/

==> (defun FileBox(/ cdl f) ....)

changyiran

Andyhon 发表于 2013-4-14 15:48
http://cadxp.com/index.php?/topic/12139-msgbox-input-en-lisp/

==> (defun FileBox(/ cdl f) ....)

长老啊，为啥都是英文呢？看不懂啊！有中文解释的吗？

Andyhon

去上老猫的课程吧
http://bbs.mjtd.com/thread-79961-1-1.html