明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3903|回复: 36

[源码] 自动批量加载【修复bug2022.10.10】

    [复制链接]
发表于 2022-9-28 11:48 | 显示全部楼层 |阅读模式
本帖最后由 crystalboy 于 2022-10-10 13:06 编辑

功能描述:自动加载kk-Autoload.lsp所处文件夹下的文件及其子文件夹下的文件。支持lsp、 vlx 、fas,arx,dll(netload方式加载)。




2022.09.28 第一次更新
2022.10.06 修复拖拽加载后不能添加到启动组的问题。
        (有个问题,描述如下:
       1. 拖拽加载后,只是修改了注册表的内容,重启cad后appload查看,kk-Autoload.lsp已经添加到启动组里面。
       2. 拖拽加载后,不重启cad,新打开其他cad文件,能自动加载kk-Autoload.lsp。
           若用appload查看,里面的启动组内容无kk-Autoload.lsp,且查看后注册表里
           面加载kk-Autoload.lsp的内容也消失了。不知道怎么解决。)
2022.10.10 修复不能加载dll的bug。
        dll采用(vl-cmdf "netload" x)方式加载。






本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 4明经币 +4 收起 理由
Sonnenblumen + 1 很给力!
zm880928 + 1 赞一个!
hhh454 + 1 赞一个!
muwind + 1 下载了 先加分再看

查看全部评分

 楼主| 发表于 2022-9-29 21:48 | 显示全部楼层
rocking2008 发表于 2022-9-29 10:27
命令: (LOAD "C:/Users/rocking/Desktop/测试/kk-Autoload.lsp") ; 错误: *error* 函数中出错参数太多

s ...

安全加载,默认是开启的,为中等。程序中代码把他关了,不然没添加路径,要一个一个确认,太麻烦了。kk-Autoload.lsp我一直用了一年多了,没出现你说的这种情况。
 楼主| 发表于 2022-9-29 21:45 | 显示全部楼层
liufii 发表于 2022-9-29 10:12
试一下,之前试过坛子里好多,都有一个问题,一次性打开多个文件的时候,总有几个文件加载不上来!

加载中若有贱人工具箱的和谐版,加载了和谐版,后面的搜索的其他文件都加载不起了,目前就只发现这个问题。和谐修改后导致的。
发表于 2022-9-30 09:25 | 显示全部楼层
crystalboy 发表于 2022-9-29 21:41
(setq list_files (kk-getfiles str_name1 "*.*" 1))  主程序中的 1 修改为0

改成0之后自动加载就失效了 只有拖拽进去的那一次有用 后面都不生效
发表于 2022-9-28 12:07 | 显示全部楼层
谢谢分享,dll也解决了   这个就很好
发表于 2022-9-28 12:48 | 显示全部楼层
谢谢分享,  这个就很好
发表于 2022-9-28 13:21 | 显示全部楼层
这个可以啊,感谢大佬分享
发表于 2022-9-28 13:38 | 显示全部楼层
如果有个使用说明就好了
发表于 2022-9-29 07:23 | 显示全部楼层
加载很方便了,感谢楼主分享
发表于 2022-9-29 07:48 | 显示全部楼层
感謝樓主分享
发表于 2022-9-29 09:15 | 显示全部楼层
感谢大佬分享
发表于 2022-9-29 10:12 | 显示全部楼层
试一下,之前试过坛子里好多,都有一个问题,一次性打开多个文件的时候,总有几个文件加载不上来!
发表于 2022-9-29 10:27 | 显示全部楼层
命令: (LOAD "C:/Users/rocking/Desktop/测试/kk-Autoload.lsp") ; 错误: *error* 函数中出错参数太多

secureload这个是什么?

点评

这个问题解决了吗?  发表于 2022-9-30 00:14
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-25 16:10 , Processed in 0.853205 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表