CAD文件名转EXCEL

tiankong2016

CAD文件名转EXCEL，见附件图
希望可以把文件名转成图三EXCEL，比如2018.11.1文件夹有33个CAD文件，把这33个文件名字转到EXCEL里面，以此类推，2018年11月里面，都有这么文件，都需要转化出。

Lisphk

看不懂，EXCEL里面内容和文件有什么关系

tiankong2016

Lisphk 发表于 2019-1-7 13:33
看不懂，EXCEL里面内容和文件有什么关系

类似这个文库一样，https://jingyan.baidu.com/article/c33e3f48fc252aea15cbb5d6.html

konglong604

没看懂。不知道要干嘛。

tiankong2016

konglong604 发表于 2019-1-7 14:15
没看懂。不知道要干嘛。

类似这个文库一样，https://jingyan.baidu.com/article/c33e3f48fc252aea15cbb5d6.html

王鹏_pBZlo

看一下函数VL-DIRECTORY-FILES

王鹏_pBZlo

(defun c:tt( / shfolder path catchit filelist fn i cdwg)
        (setq shfolder (vlax-invoke-method (vlax-create-object "Shell.Application") 'browseforfolder (vlax-get-property (vlax-get-acad-object) 'hwnd) "" 1)
                  
catchit (vl-catch-all-apply '(lambda () (setq shfolder (vlax-get-property shfolder 'self)
path (vlax-get-property shfolder 'path)))))
        (setq filelist (vl-directory-files path "*.dwg"))
        (setq fn (open (strcat path "\\filelist.csv") "w"))
        (write-line "序号,图名" fn)
        (setq i 0)
        (while (setq cdwg (nth i filelist))
                (write-line (strcat (itoa (1+ i)) "," cdwg) fn)
                (setq i (1+ i))
        )
        (close fn)
        (startapp "explorer" (strcat path "\\filelist.csv"))
)     

;Excel文件扩展名".csv",文件与图纸在同一个目录里,文件名filelist.dwg   稍作修改，可以在每个子目录里一次性生成一个文件

aimisiyou

真的不用这么麻烦。直接在文件夹里新建个txt，写上dir>1.txt,保存格式为.bat。双击运行，直接出来个文本文档1.txt，打开然后复制到EXCEL里分列，完事。

qqhsx

aimisiyou 发表于 2019-1-27 22:37
真的不用这么麻烦。直接在文件夹里新建个txt，写上dir>1.txt,保存格式为.bat。双击运行，直接出来个文本文 ...

那你这个直接改成
DIR *.*  /B >文件名列表.CSV
出来不就是表格了省得复制不是

renyonghua2014

DOS命令就可解决的问题，就不必太麻烦了。

卓勇胜-李勇慧

这个在eⅹcel论坛里很多，还可以批量改文件名。

来自: 微社区

卓勇胜-李勇慧

G:\01晓东论坛\20191212
我以前在EXCEL论坛下载整理过适合自己用的,希望你能有用!