看看阿卡多克。lsp有很多口吃。我有一个lisp库，准确地说，它充满了defuns 110。
新的我有一个例子
(VL-LOAD-COM)
(setq loads (list "Lisp1" "Lisp2" "Lisp3"))
(setq loc1 "F:\\") ;;change dirs to where ever you want them saved
(setq loc2 "F:\\Compiled Lisp\\")
(foreach lisp loads
(vlisp-compile 'st (strcat loc1 lisp ".lsp") (strcat loc2 lisp ".fas"))
)
从「开始」菜单中，一些老式的DOS会生成一个批处理文件
CMD
copy lisp1+lisp2+lisp3 Library.lsp
exit
你好，比格尔！谢谢你的密码
我使用单独的文件，因为我正在开发这个插件，我不想为搜索每个部分而发疯 在加入之前，一定要让每一个单独工作，你可以使用findfile构建一个LISP列表，然后打开每个LISP，使用“Append”选项“a”写入一个新文件，然后编译那个文件。另一件事是，如果要合并，请仔细查看在何处重复多行代码，并将它们放入库defun中。欢迎使用我的Getvals。在你的代码中，这是我已经开始重写为我们使用的新的和现有的lisp。
在我参与的一个商业产品中，每个例程中都有库调用，因此代码是一致的，所有对象都在正确的层上，等等，再次由库调用而不是硬编码的层名称来处理。实际上，用户定义层很容易，只需创建一个包含所有细节名称col lt的文本文件，并在加载项启动时将其设置为变量名称。
roof--2 roof--2 5 continuous
roof--3 roof--3 7 continuous
roof--4 roof--4 4 continuous
(setq lay_search roof--2)
(setq lay_colour roof--2col)
(setq l_type roof--2lin)
(lay_miss)
页:
1
[2]