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

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

该程序具有的功能：

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

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

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

（2）查找某个文件夹下的DWG文件（含子文件夹）；这个好. 第一个可以用lisp这样找到, 我是这样做的. (SetQ iflistdwg (Cdr (Cdr (VL-Directory-Files "c:\\")))); 看看C盘的DWG文件
(setq i 0 dwgname NIL)
(repeat (length iflistdwg)
(setq dwg (nth i iflistdwg))
(if (= (IF(vl-filename-extension dwg) (strcase (vl-filename-extension dwg))) ".DWG")
(setq dwgname (append dwgname (list dwg))) )
(setq i (1+ i)))

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

请教楼主如何使用啊?

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源