[分享]：自动加载指定文件夹下的所有*.LSP文件

fylinwater

函数：(dd_autoloadlisp dir)
加载指定文件夹下所有的LSP文件 包括子文件夹。
14版本要doslib支持
2000以上只要运行了（vl-LOAD-COM)就可以了

cy956

dos_dir函数在某些情况下会出错，用时小心。

lijiao

所有的文件一并加载，会不会占用太多的内存，我主张用到什么加载什么，用完后立即卸载。

horse

我记得XD 工具箱所带的一个文件中，也有这样的功能，大家看看。

fylinwater

从生产效率来讲，我认为如果你的程序还没有很大的影响到计算机速度的时候完全可以不考虑内存
，而且我们对内存的需要往往没有市场上内存性能增加的速度快
我在ACAD打开时每次加载了一千多个函数（有两百多个文件），一点事情都没有（只是打开时多用了2秒钟）

XDSoft

最初由 fylinwater 发布
[B]从生产效率来讲，我认为如果你的程序还没有很大的影响到计算机速度的时候完全可以不考虑内存
，而且我们对内存的需要往往没有市场上内存性能增加的速度快
我在ACAD打开时每次加载了一千多个函数（有两百多个文件）... [/B]

还是即用即加载好些。也便于知道自己的某个程序都需要哪些其他的程序配合。方便自己的维护。

lijiao

1、在处理一张图时，并非所有的命令都能用到，即使用到的，也就是那么几次，一下子将所有的程序都加载，有点不合适。
2、在作二维处理时，似乎速度还不错，在作三维时，速度问题就不得不考虑。

lpg

用完就卸载怎么卸呀？

lijiao

将程序名设为nil即可。
嘿，嘿，嘿，嘿，………　小聪明。

fylinwater

lijiao 说的有道理  只是我做的就是平面处理，所以～
但是其实加载的只是程序代码  ，占有内存很少的用了1M了不得了
我做的简单的测试就是加载300个左右函数发现系统资源没少，就是说少于1％了
但这样做编程可以节约10～20％  尤其是你的基本函数多了
不过晓东说的倒是实话，维护容易，有时候一个基本函数有问题 查找不是很容易

lijiao

看来是我多虑了。
我担心的是：加载的程序过多，一不小心出现重名的情况就麻烦了。

wwwchard

原先，我在用2002平台的天正旧编辑的时候，也用了一段这样的做法，将所有自己定义的快捷键所需要的lisp一起加载，只是在打开cad时候，稍微有滞留的现象，但后来总觉得不是很方便，应为图形打开的一多，每打开一张都要加载这些程序，再加上图形很大，例如高层所有的几十张平面在一张图上，所以从资源到感觉都很不爽。
后来，我觉得还是把自动全部加载改成autoload调用，把所有的要调用的程序一起放在里面，将这些调用溶进使用的时段里，是个比较好的解决方式。

fylinwater

我编程理念就是不精细考虑硬件性能，因为硬件的事应该由硬件开发商解决 自己不必为此过分劳累
工程化就是不把编程当作艺术
一旦做了API函数就把它忘掉，只记得怎么用它就是了
有人说：无招胜有招
我信

wwwchard

理好像是这个理，不过就针对这个问题，我们讨论地是一起加载还是分别加载地问题。
因为前提是在使用过程中都要方便和自动应用，而每个人在使用地时候肯定要适合自己的设备。举天正的加载为例子：用你定义的函数(dd_autoloadlisp  "lisp")lisp为存放所有天正304个天正lisp文件的目录，而在cad2002里，每打开一张图，就要加载一次。有时在施工图阶段，要一连打开几张图。虽然加载时间也就那么几秒，但也觉得好像不是很合理和方便。
  如果将这些lisp的调用改为如下方式，我到觉得合理一些，这2种方式我都用过，现在固定下这种：
;;;;;;;墙体————
(autoload  "dwall" '("dd" "da" "dg" "sdd" "drd"))  ;双墙 弧墙 隔墙
(autoload  "cdwall" '("dz"))  ;柱墙
(autoload  "wltool" '("dcr" "dc" "dgc"))  ;圆墙 隔墙复制 墙体复制
(autoload  "gewall" '("dgt" "dgf"))  ;隔墙
(autoload  "wltool2" '("dr" "db")) ;封口 修补
(princ "..")
(autoload  "road" '("df"))    ;墙线圆角
(autoload  "wtrim" '("dt"))   ;墙线剪裁
(autoload  "hpwall" '("dx"))  ;加保温层
(autoload  "wltool1" '("dad" "dee")) ;墙垛   
(autoload  "wltool3" '("dv" "sdv")) ;墙线移动
(autoload  "thickl" '("dxc" "dcc" "de" "sdxc" "sdcc" "sde"))  ;墙线加粗
                                  ;;向内加粗 取消加粗
;;;;;;;门窗—————
(princ "..")
(autoload  "clwall" '("cds"))    ;选型
(autoload  "wdtool" '("cdb" "cx" "cv" "cdf" "tw" "td"));换门窗 侧翻
                        ;;;左右内外 名称翻转 标名称
……
……
后面的字符是我已经在原程序直接简化了的，大家可以换成自己现在菜单里的命令即可。
我这么说到不是否定你程序的价值，我到觉得，这个程序用在自己所编辑常用的一些lisp，单独放在一个目录里，每次自动全部加载到更合适一些。

fylinwater

我觉得你说得很有道理
其实我就是用他来加载自己的程序的（不过不是一个目录，分了很多目录，因为涉及很多专业，我想
把他们分开比较好）如果用autoload就要设置很多支持路径。