如何让程序，自动加载某个文件夹下面的lsp呢？

柳飘飘 · 发表于 2022-6-9 10:27:21

@创雅设计咋弄，能不能教教我，谢谢了

创雅设计 · 发表于 2022-6-9 10:43:29

柳飘飘发表于 2022-6-9 10:27
@创雅设计咋弄，能不能教教我，谢谢了

做安装包，一两下是不可能教会你的了。我可以帮你做好啊。

lee50310 · 发表于 2022-6-11 11:29:58

這個問我就對了!

柳飘飘 · 发表于 2022-6-11 18:11:38

@lee50310 版主，咋操作呢？能bat批处理脚本实现，或者vbs脚本实现。谢谢了

lee50310 · 发表于 2022-6-11 19:31:49

本帖最后由 lee50310 于 2022-6-12 10:42 编辑

柳飘飘发表于 2022-6-11 18:11
@lee50310 版主，咋操作呢？能bat批处理脚本实现，或者vbs脚本实现。谢谢了

首先你先了解一個autocad環境變數當 SECURELOAD 值為 1
載入lisp程式會出現下面的安全性提示

環境變數  SECURELOAD
這是AutoCAD 2014版本(含以上的版本)開始新增的保護功能，可以關閉 load 詢問  (但是官方不建議)。
請輸入 SECURELOAD系統變數,設置為 0 即可。
語法如下:
(setvar "SECURELOAD" 0) ;關閉安全性提示

(setvar "SECURELOAD" 1) ;打開安全性提示

然後將你要自動開機或打開圖檔時要載入的程式(例: viewdcl.vlx , tt.lsp)  寫進 acaddoc.lsp
例: 我的cad2018版安裝在C槽
所以將 acaddoc.lsp 程式放入下面路徑資料夾 Support 內即可(請依自己的CAD 版本為主)
C:\Program Files\Autodesk\AutoCAD 2018\Support

此為acaddoc.lsp 程式範例語法

copy


(defun s::startup ()
(setvar "SECURELOAD" 0) ;關閉安全性提示
;;<--->這裡放入你要載入的程式
(load "D:\\TEST_LSP\\viewdcl.vlx")
(load "D:\\TEST_LSP\\tt.lsp")
;;<---->
(setvar "SECURELOAD" 1) ;打開安全性提示
)