一键合并DCL和LSP文件

zhangyan_0320 · 发表于 2022-7-27 10:58:32

这个很好可以合并起来减少文件多、乱。

zhangyan_0320 · 发表于 2022-7-27 11:00:17

foer123 发表于 2022-7-4 19:22
好的谢谢，最后面成功了，有一个跟你这个有点不同，你这个跟方便些

你用的那个分享下看看

没有昵称呀 · 发表于 2022-10-9 21:49:43

对一个800k的LISP和12k的dcl操作，运行后CAD无响应

baitang36 · 发表于 2022-10-10 07:23:43

本帖最后由 baitang36 于 2022-10-10 07:31 编辑

没有昵称呀发表于 2022-10-9 21:49
对一个800k的LISP和12k的dcl操作，运行后CAD无响应

只有一个dcl才好用，多个的分不清，可能导致出错。
800k？这么大的文件，你可以试试把用到这个dcl的函数单独拿出来，做成一个小的lsp，与dcl合并后再放回去。

言戲無軍 · 发表于 2022-10-10 09:43:50

加上大佬的获取当前文件路径到CAD就能合并

qmotuo · 发表于 2022-11-5 21:06:42

大佬们！如果是好几个合并的功能放在同一文档下，只有一个可以用其他都会提示找不到DCL框，这个有办法解决吗？

baitang36 · 发表于 2022-11-5 21:14:36

qmotuo 发表于 2022-11-5 21:06
大佬们！如果是好几个合并的功能放在同一文档下，只有一个可以用其他都会提示找不到DCL框，这个有办法解 ...

自动处理只考虑了一个dcl的情况，多个需要手动处理。你把dcl合并成一个，一次加载不就可以了。没必要弄多个dcl吧？

qmotuo · 发表于 2022-11-5 21:19:28

baitang36 发表于 2022-11-5 21:14
自动处理只考虑了一个dcl的情况，多个需要手动处理。你把dcl合并成一个，一次加载不就可以了。没必要弄多 ...

我去试试看，感谢！，，主要是后期如果还要加入其他DCL，那么就要重新来一遍

cchessbd · 发表于 2022-11-6 20:40:48

本帖最后由 cchessbd 于 2022-11-6 21:01 编辑

老师太牛了太牛了，实在是我等偶像！
不过我还是建议加一个删除生成的临时文件的语句。这个我也在思考，但是还没搞懂怎么加、、、、

哦，搞明白了，这样就行了。感谢老师分享这么强大的代码。

(write-line "\(vl-file-delete tmp-dcl-file-name\)" lsp) ;;lsp增加一句，删除创建的临时文件
(write-line "\(princ\)" lsp) ;;加句不回显

cchessbd · 发表于 2022-11-6 21:08:27

cchessbd 发表于 2022-11-6 20:40
老师太牛了太牛了，实在是我等偶像！
不过我还是建议加一个删除生成的临时文件的语句。这个我也在思考，但 ...

咋回事，加了没菜单了。。。
看来还得改回去才行。哎，菜鸟就是菜鸟啊。白搞了。。。

账号		自动登录	找回密码
密码			注册

[源码] 一键合并DCL和LSP文件