关于LISP的搜索

xubin_9705

厉害，谢谢CAOYIN大哥，很好用

phoenixdjq

也可以用一下doslib,   AUTOCAD连接dos命令的

你要找这些，可以在windows底下做呀

为什么要在程序里面做呢

nonsmall

(vlax-invoke-method (vlax-create-object "Shell.Application") 'FindFiles)

caoyin

vl-directory-files 的第三个参数为-1就可得到子目录，用while直到搜索完所有目录

假如要搜索目录c:\\a得到b c d三个文件夹，

创建一个表'("c:\\a\\b"  "c:\\a\\c"  "c:\\a\\d")

搜索c:\\a\\b 得到 e f两个文件夹

更新表为 '("c:\\a\\c"  "c:\\a\\d"  "c:\\a\\b\\e" "c:\\a\\b\\f" )

以此类推直到while结束