[求助]：如何让一个lsp程序自动执行（不是加载）？

zyjcad

如何让一个lsp程序自动执行（不是加载）？
我编写了个lisp程序，想让它在autocad启动时自动被执行？

cy956

在acad。lsp或某个要调用的lsp中直接写程序内容（不用defun定义函数）

zyjcad

谢谢斑竹啊：）

saintdog

要想自动运行时放在acad2000doc.lsp文件里。
该文件在acad所在的\support目录下

zhjy

也可直接在acad.mnu中加载并运行即改菜单

tomsdwf

斑竹你好！能不能说详细一点呀，比如我想在cad程序启动后，自动的画一条线，是不是就可以在cadr14.lsp里添加：(command  "line" "0,0" "10000,10000" ;) 就可以了，但是我试了一下，没有反应的，不知该如何操作，还请指教，谢谢！

urljit

自建一个文件acad.lsp（14版）或acaddoc.lsp（2000版，余不知），将自动运行的内容写进去即可。

tomsdwf

我试过了，不行呀
我建了一个acad.lsp，里面加上了 (command "line" "0,0" "10000,10000" ;) 启动CAD后没有反应。
然后我又在重新改为;;-------------------------
(defun C:ABC ()
(print "AASDASDAD")
(command "line" "0,0" "10000,10000" ;)
)
(C:ABC)
;;-------------
结果也不行，到底该怎么操作呢？还请高手详细指点，谢谢！

urljit

“建一个acad.lsp，里面加上了 (command "line" "0,0" "10000,10000" ;) 启动CAD后没有反应。”

什么也没提示吗？

如果那样，我也不知道该怎样了。

xcajcj

最初由 zyjcad 发布
[B]如何让一个lsp程序自动执行（不是加载）？
我编写了个lisp程序，想让它在autocad启动时自动被执行？ [/B]

方法很多，先给出几种：

1.将以下代码保存为acad.lsp
(defun S::STARTUP
(load "abc")
);end (defun S::STARTUP
;;
(defun C:ABC ()
(print "AASDASDAD")
(command "line" "0,0" "10000,10000" ;)
);end (defun C:ABC ()

2.将以下代码保存为acad.lsp
(defun S::STARTUP
(print "AASDASDAD")
(command "line" "0,0" "10000,10000" ;)
);end (defun S::STARTUP

3.将以下代码保存为acad.lsp
(defun S::STARTUP
(load "abc")
);end (defun S::STARTUP
再将以下代码以文件名abc.lsp保存在CAD支持路径下
(defun C:ABC ()
(print "AASDASDAD")
(command "line" "0,0" "10000,10000" ;)
);end (defun C:ABC ()

4.打开acad.mnl文件在其后添加如下语句
(load "abc")
再将以下代码以文件名abc.lsp保存在CAD支持路径下
(defun C:ABC ()
(print "AASDASDAD")
(command "line" "0,0" "10000,10000" ;)
);end (defun C:ABC ()

tomsdwf

谢谢青铜长老的指教！

tommywei

刚好需要，正在调试