zfbj 发表于 2004-8-26 09:44:00

[ARX]查找特定目录下所有的DWG文件

该程序具有的功能：


（1）查找某个文件夹下的DWG文件（不含子文件夹）；


（2）查找某个文件夹下的DWG文件（含子文件夹）；



BDYCAD 发表于 2004-8-26 11:04:00

（2）查找某个文件夹下的DWG文件（含子文件夹）； 这个好.


第一个可以用lisp这样找到, 我是这样做的.


       (SetQ iflistdwg (Cdr (Cdr (VL-Directory-Files "c:\\")))); 看看C盘的DWG文件<BR>       (setq i 0 dwgname NIL)<BR>       (repeat (length iflistdwg)<BR>                       (setq dwg (nth i iflistdwg))<BR>                       (if        (= (IF(vl-filename-extension dwg) (strcase (vl-filename-extension dwg))) ".DWG")<BR>                                       (setq dwgname (append dwgname (list dwg))) )<BR>                       (setq i (1+ i)))

pfd8667 发表于 2004-10-31 06:06:00

请教楼主如何使用啊?
页: [1]
查看完整版本: [ARX]查找特定目录下所有的DWG文件