(vl-load-com) (setq path "F:\\cad配置\\插件\\" filelist (vl-directory-files path "*.*") ) (foreach n (cddr filelist) (load n)) (print "自定义插件加载成功") (print path)将 F:\\cad配置\\插件\\ 改为你需要的目录把这个复制到 support文件夹下的acad2008.lsp 里 （也可以加载，反正只要它自动运行就可以了）
(setq path "F:\\cad配置\\插件\\" filelist (vl-directory-files path "*.*") )
(foreach n (cddr filelist) (load n))
(print "自定义插件加载成功")
(print path)
将 F:\\cad配置\\插件\\ 改为你需要的目录
把这个复制到 support文件夹下的acad2008.lsp 里 （也可以加载，反正只要它自动运行就可以了）
将要你需要的目录设置到 CAD支持文件搜索路径 里
就可以实现cad自动加载文件夹下所有插件了
