LSP程序自动加载

范建威 · 发表于 2014-10-5 23:57:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:jz()
(setq i 0)
(setq lj "D:\\最新程序");;;LSP文件路径
(setq lsp_list (vl-directory-files lj "*.lsp"));;;LSP格式文件
(setq vlx_list (vl-directory-files lj "*.vlx"));;;vlx格式文件
(setq lit (append lsp_list vlx_list));;;LSP和vlx表文件合并
(repeat (length lit);;;;循环
  (setq lsp (nth i lit))
  (setq lsp_lj (strcat lj "\\" lsp))
  (load lsp_lj)
  (setq i (+ 1 i))
  (prompt (strcat "\n" lsp_lj))
)
(prompt (strcat "\n共加载程序" (rtos i 2 0) "个"))
)

csharp · 发表于 2014-10-6 07:07:24

既然在support就可以用 autoload 函数自己写按需加载更好

范建威 · 发表于 2014-10-9 16:33:20

csharp 发表于 2014-10-6 07:07
既然在support就可以用 autoload 函数自己写按需加载更好

这样的话一打开CAD就会慢很多！这个是需要的时候在加载！

/db_自贡黄明儒_ · 发表于 2014-10-9 16:54:17

范建威发表于 2014-10-9 16:33
这样的话一打开CAD就会慢很多！这个是需要的时候在加载！

好象ET中有自动加载的东西，函数运行需要时才加载，ACET-AUTOLOAD2

liuchong1988 · 发表于 2014-10-18 18:37:11

看看，谢谢分享

吴外安放 · 发表于 2020-7-26 14:40:52

谢谢版主分享

bnjzzheng · 发表于 2020-8-3 21:04:37

多谢楼主分享

dmxcs · 发表于 2021-2-6 20:19:47

正好需要呢

xujinhua · 发表于 2021-2-15 20:13:26

非常实有，谢谢！！

xujinhua · 发表于 2021-2-15 20:14:38

非常实用！谢谢你

yoyoho · 发表于 2021-2-15 21:38:15

正好需要呢? 谢谢你!!!!!

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

[每日一码] LSP程序自动加载

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评