这个很好可以合并起来减少文件多、乱。
foer123 发表于 2022-7-4 19:22
好的 谢谢，最后面成功了，有一个跟你这个有点不同，你这个跟方便些
你用的那个分享下看看
对一个800k的LISP和12k的dcl操作，运行后CAD无响应
本帖最后由 baitang36 于 2022-10-10 07:31 编辑
没有昵称呀 发表于 2022-10-9 21:49
对一个800k的LISP和12k的dcl操作，运行后CAD无响应
只有一个dcl才好用，多个的分不清，可能导致出错。
800k？这么大的文件，你可以试试把用到这个dcl的函数单独拿出来，做成一个小的lsp，与dcl合并后再放回去。
加上大佬的获取当前文件路径 到CAD就能合并
大佬们！如果是好几个合并的功能 放在同一文档下，只有一个可以用其他都会提示找不到DCL框，这个有办法解决吗？
qmotuo 发表于 2022-11-5 21:06
大佬们！如果是好几个合并的功能 放在同一文档下，只有一个可以用其他都会提示找不到DCL框，这个有办法解 ...
自动处理只考虑了一个dcl的情况，多个需要手动处理。你把dcl合并成一个，一次加载不就可以了。没必要弄多个dcl吧？
baitang36 发表于 2022-11-5 21:14
自动处理只考虑了一个dcl的情况，多个需要手动处理。你把dcl合并成一个，一次加载不就可以了。没必要弄多 ...
我去试试看，感谢！，，主要是后期如果还要加入其他DCL，那么就要重新来一遍
本帖最后由 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 20:40
老师太牛了太牛了，实在是我等偶像！
不过我还是建议加一个删除生成的临时文件的语句。这个我也在思考，但 ...
咋回事，加了没菜单了。。。
看来还得改回去才行。哎，菜鸟就是菜鸟啊。白搞了。。。