[求助]：列出文件列表

knight928

如何返回一文件下的所有文件?
如:列出C:\\1 文件里的所有.DWG文件的?

xshrimp

[php]
(vl-directory-files "c:\\\\1" "*.dwg")
[/php]

knight928

;;我本意的是:选择一包含多个.DWG的文件夹及后
;; 程序自动打开每一图形执行相应的命令后再退出
;; 接着操作下一副图形....但这程序有问题......
(defun C:VLOP()
  (SETQ I 0)
  (SETQ DIR(getfiled "选择要编辑的文件" "C:\\" "dwg" 0))
  (setq filedir (vl-filename-directory dir));;以上就是为了获取一选定文件夹路径,但不知怎么写..
  (setq fileLST(DOS_FIND (strcat filedir "\\*.dwg")))
  (REPEAT (LENGTH FILELST)
    (SETQ FILE-ENT(NTH I filelst))
    (setq file-open(vla-open (vla-get-documents (vlax-get-acad-object)) file-ent))
    ;;以下为激活才打开的图形..但出错甚至CAD会崩溃!
    (setq axtivve (vla-put-activedocument (vlax-get-acad-object) file-open))
    (COMMAND "PLINE" "1,1" "W" "0.00" "1.5" "500000,300000" "");;这一命令也无法在打开的新图形下运行,总是运行
    ;;  在第一个窗口中,不知为什么??
    (command "close")
    (setq i (+ i 1))
    )
  )
;;请高手指点......

雨箭风刀

用vba

xshrimp

2. 
   
3. ;根据LUCAS的文件修改.
   
4. ;批量处理 by xshrimp
   
5. (vl-load-com)
   
6. (defun c:vlop( / app dir dwgname endpnt holdlsp lineobj nn prefix_dwg qq startpnt ww)
   
7.   (setq dir (getfiled "选择要编辑的文件" "c:\" "dwg" 0))
   
8.   (setq prefix_dwg (vl-filename-directory dir))
   
9.   (setq qq (vl-directory-files prefix_dwg "*.dwg"))
   
10.   
    
11.   (setq holdlsp (getvar "acadlspasdoc"))
    
12.   (setvar "acadlspasdoc" 0)
    
13.   (setq nn 0)
    
14.   (if (/= qq nil)
    
15.     (progn
    
16.       (setq app (vlax-get-acad-object))
    
17.       (repeat (length qq)
    
18.         (setq dwgname (strcat prefix_dwg "\" (nth nn qq)))
    
19.         (setq ww (vla-open (vla-get-documents app) dwgname))
    
20.         ;; 建立线
    
21.         (setq startpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
    
22.         (vlax-safearray-fill startpnt '(1 1 0))
    
23.         (setq endpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
    
24.         (vlax-safearray-fill endpnt '(500000 300000 0))
    
25.         (vla-addline (vla-get-modelspace ww) startpnt endpnt)
    
26.         (vla-save ww)
    
27.         (prompt (strcat "\n" dwgname " !!!"))
    
28.         (vla-close ww :vlax-false)
    
29.         (setq nn (1+ nn))
    
30.       )
    
31.       (vlax-release-object ww)
    
32.       (vlax-release-object app)
    
33.     )
    
34.     (prompt "\n所选目录中未有任何图档!!!")
    
35.   )
    
36.   (setvar "acadlspasdoc" holdlsp)
    
37.   (princ)
    
38. )
    

<br /> ;根据LUCAS的文件修改.<br /> ;批量处理 by xshrimp <br /> (vl-load-com)<br /> (defun c:vlop( / app dir dwgname endpnt holdlsp lineobj nn prefix_dwg qq startpnt ww)<br />   (setq dir (getfiled "选择要编辑的文件" "c:\" "dwg" 0))<br />   (setq prefix_dwg (vl-filename-directory dir))<br />   (setq qq (vl-directory-files prefix_dwg "*.dwg"))<br />   <br />   (setq holdlsp (getvar "acadlspasdoc"))<br />   (setvar "acadlspasdoc" 0)<br />   (setq nn 0)<br />   (if (/= qq nil)<br />     (progn<br />       (setq app (vlax-get-acad-object))<br />       (repeat (length qq)<br />         (setq dwgname (strcat prefix_dwg "\" (nth nn qq)))<br />         (setq ww (vla-open (vla-get-documents app) dwgname))<br />         ;; 建立线<br />         (setq startpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))<br />         (vlax-safearray-fill startpnt '(1 1 0))<br />         (setq endpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))<br />         (vlax-safearray-fill endpnt '(500000 300000 0))<br />         (vla-addline (vla-get-modelspace ww) startpnt endpnt)<br />         (vla-save ww)<br />         (prompt (strcat "\n" dwgname " !!!"))<br />         (vla-close ww :vlax-false)<br />         (setq nn (1+ nn))<br />       )<br />       (vlax-release-object ww)<br />       (vlax-release-object app)<br />     )<br />     (prompt "\n所选目录中未有任何图档!!!")<br />   )<br />   (setvar "acadlspasdoc" holdlsp)<br />   (princ)<br /> )<br />