文件统计

/db_自贡黄明儒_

本来我想戒掉lisp,无奈一时手痒。
一个项目图纸太多，须统计一下。由于我公司对于图框没有统一规定，各人做法不一致，故只有统计文件名了。
PCCAD的图框有点扯淡，按图框中的图名统计，会出现两个，重量却不会。

游客，如果您要查看本帖隐藏内容请回复

;;;=======================================================文件统计 自贡黄明儒 2014.8.9

;;[功能] 当前文件所在文件夹下的所有文件
;;(GetAllSpecFilesInFolder1 (getvar "DWGPREFIX") "*.dwg")
(defun GetAllSpecFilesInFolder1        (dir filter)
  (vl-directory-files dir filter 1)
)
;;[功能] 当前文件所在文件夹的目录下的所有文件
;;(GetAllSpecFilesInFolders1 (getvar "DWGPREFIX") "*.dwg")
(defun GetAllSpecFilesInFolders1 (dir filter / DIR FILENAMES FILTER SUBDIR)
  (setq filenames (vl-directory-files dir filter 1))
  (mapcar
    '(lambda (subdir)
       (setq filenames (append filenames
                               (GetAllSpecFilesInFolders1
                                 (strcat (getfullpath dir) subdir)
                                 filter
                               )
                       )
       )
     )
    (vl-remove-if
      '(lambda (subdir) (member subdir '("." "..")))
      (vl-directory-files dir nil -1)
    )
  )
  filenames
)
;; [功能] 图名为文件名
(defun HH:ShowFiles (files / DCL_FILE FILE)
  (setq Dcl_File (vl-filename-mktemp nil nil ".txt"))
  (setq file (open Dcl_File "w"))
  (foreach n files
    (write-line (cadr (fnsplitl n)) FILE)
  )
  (close FILE)
  (startapp "notepad" Dcl_File)
)

;; [功能] 文件统计 自贡黄明儒 2014.8.9
(defun C:MMM (/ DIR FILES FILTER GETKW)
  (vl-load-com)
  (setq dir (getvar "DWGPREFIX"))
  (setq filter "*.dwg")
  (initget "Cur All")
  (setq GETKW (GETKWORD "\n文件统计[当前(C)/子目录(A)]<C>"))
  (cond        ((equal GETKW "All") (setq files (GetAllSpecFilesInFolders1 dir filter)))
        (T (setq files (GetAllSpecFilesInFolder1 dir filter)))
  )
  (HH:ShowFiles files)
  (princ)
)
;;;=======================================================文件统计 自贡黄明儒 2014.8.9

csharp

dir *.dwg < dwg.txt

ysq101

csharp 发表于 2014-8-9 11:35
dir *.dwg < dwg.txt

哈哈。。。楼主的DOS也不错啊
我还记得有个命令MORE （忘了是不是这个了）

newer

ysq101 发表于 2014-8-9 12:15
哈哈。。。楼主的DOS也不错啊
我还记得有个命令MORE （忘了是不是这个了）

知道DOS命令的年龄都得40以上了。

lucas3

支持老黄又出来做贡献

q3_2006

黄工估计是戒不掉了....{:soso_e120:}

dwg001

割舍不了的情怀，估计在这方面“耽误”的时间太多。

ysq101

newer 发表于 2014-8-9 14:57
知道DOS命令的年龄都得40以上了。

从DOS到WINDOWS 3.2的飘过

csharp

ysq101 发表于 2014-8-14 11:40
从DOS到WINDOWS 3.2的飘过

Dos 6.0 6.2
Windows 3.0 3.1 3.11 3.2 95 97 98  nt xp …

spp_wall

学习下！！！谢谢！！！

qyming1996

学习........................

grs432

回复看帖子内容！！

HLCAD

回复，看帖！

39802951

支持支持支持支持

a88611462

啥也不说了，感谢楼主分享哇！