编译相同的。fa中的vlx

BIGAL · 发表于 2022-7-5 19:07:49

没有理由说一个lisp不能由18个lisp组成，只需复制并粘贴到1中。唯一真实的事情是，每个部分都必须是与其他部分分离的defun。
看看阿卡多克。lsp有很多口吃。我有一个lisp库，准确地说，它充满了defuns 110。

新的我有一个例子

copy

(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会生成一个批处理文件

copy


CMD 
copy lisp1+lisp2+lisp3 Library.lsp
exit

MastroLube · 发表于 2022-7-5 19:09:12

你好，比格尔！谢谢你的密码

我使用单独的文件，因为我正在开发这个插件，我不想为搜索每个部分而发疯

BIGAL · 发表于 2022-7-5 19:15:10

在加入之前，一定要让每一个单独工作，你可以使用findfile构建一个LISP列表，然后打开每个LISP，使用“Append”选项“a”写入一个新文件，然后编译那个文件。另一件事是，如果要合并，请仔细查看在何处重复多行代码，并将它们放入库defun中。欢迎使用我的Getvals。在你的代码中，这是我已经开始重写为我们使用的新的和现有的lisp。

在我参与的一个商业产品中，每个例程中都有库调用，因此代码是一致的，所有对象都在正确的层上，等等，再次由库调用而不是硬编码的层名称来处理。实际上，用户定义层很容易，只需创建一个包含所有细节名称col lt的文本文件，并在加载项启动时将其设置为变量名称。

copy


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)

[编程交流] 编译相同的。fa中的vlx

发表回复

精选推荐