获取目录及子目录下所有Dwg文件

Free-Lancer

1. (defun c:tt (/ fd fl)
   
2.   (if (setq fd (acet-ui-pickdir))
   
3.     (progn
   
4.       (setq fl (open (strcat fd "\\list.bat") "w"))
   
5.       (write-line
   
6.         (strcat "dir " fd "\\*.dwg /s > " fd "\\dwglist.txt")
   
7.         fl
   
8.       )
   
9.       (close fl)
   
10.       (startapp (strcat fd "\\list.bat"))
    
11.       (startapp "notepad" (findfile (strcat fd "\\dwglist.txt")))
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

(defun c:tt (/ fd fl)<br />   (if (setq fd (acet-ui-pickdir))<br />     (progn<br />       (setq fl (open (strcat fd "\\list.bat") "w"))<br />       (write-line<br />         (strcat "dir " fd "\\*.dwg /s > " fd "\\dwglist.txt")<br />         fl<br />       )<br />       (close fl)<br />       (startapp (strcat fd "\\list.bat"))<br />       (startapp "notepad" (findfile (strcat fd "\\dwglist.txt")))<br />     )<br />   )<br />   (princ)<br /> )<br />

有了 txt 剩下就是读入，分割 等等处理了

spp_wall

不错， 就是得到的txt里东西太多:lol

Underway

(strcat "dir " fd "\\*.dwg /s > " fd "\\dwglist.txt")
个人改这样用
(strcat "dir " fd "\\*.dwg /s /b > " fd "\\dwglist.txt")

Free-Lancer

Underway 发表于 2014-10-30 13:26
(strcat "dir " fd "\\*.dwg /s > " fd "\\dwglist.txt")
个人改这样用
(strcat "dir " fd "\\*.dwg /s / ...

/ b 就不用再处理了，忘掉这个了

dlutstar

不错，挺有用的

77077

思路不错，又学会一招~~