[求助]：有无可能打开图形后自动执行某个命令？

yy5heng

据我所知，cad开图后，最多只能自动加载lsp命令，但是不能执行它，请问怎么可以加载后接着执行它？

Underway

能自动加载lsp命令.....

加载一个 S::StartUp 专属名称的程序即可
(defun S::StartUp ()  (加载lsp)  (执行它))

yy5heng

这个startup()所在的lsp应该放在哪？还是它本身就是在哪个lsp文件中？

xcajcj

如果 acad.lsp 或某个 .mnl 文件中包括用户定义的函数 S::STARTUP，则每次输入新图形或打开现有图形时，都将调用该函数。因此，用户可以在 acad.lsp 文件中包括 S::STARTUP 的定义，以进行适当的设置。

如果用户需要用自定义的命令来替换标准的 AutoCAD QUIT 和 END 命令，可使用包含如下语句的 acad.lsp 文件：

(defun C:QUIT ( )

... 用户的定义 ...  
)
(defun C:END ( )
        ... 用户的定义 ...  
)
(defun S::STARTUP ( )
  (command "undefine" "quit")
  (command "undefine" "end")

)

在图形被初始化之前，用 defun 函数对 QUIT 和 END 命令重新进行了定义。在图形初始化后，S::STARTUP 函数被调用，取消了 QUIT 和 END 的标准定义。

因为可以在很多地方（acad.lsp 文件、.mnl 文件或从这两种文件中调用的任何其他 AutoLISP 文件）定义 S::STARTUP 函数，所以可以替换以前定义的 S::STARTUP 函数。下例展示了确保用户定义的启动函数与其他函数同时生效的一种方法。

(defun MYSTARTUP ( )
        ... 用户定义的启动函数 ...
)

(setq S::STARTUP (append S::STARTUP MYSTARTUP))

上述代码将自定义的启动函数附加到现有的 S::STARTUP 函数中，然后重新定义 S::STARTUP 函数，使之包括自定义的启动代码。不管以前是否定义了 S::STARTUP 函数，这种函数都能正常发挥功能。

还是那句老话，按F1看帮助。

zml84

如果是要在打开一个图档时执行的话，可以在这个图档所在文件夹中建立一个“ACAD.lsp”，把想要执行的东西放在这里面就可以了。
根据ACAD运行机制，打开这个图档时，acad.lsp中的内容就会 被执行了。

yy5heng

经过我的实验，突然发现一个问题：
1、此种代码可以运行：
  test.lsp:
  (defun test()
    )
    在acad2000doc.lsp中增加：
  (load "test.lsp")
    (defun s::startup()
       (test)
    )
2、这样却不能运行：
  test.lsp:
    (defun c:test()
    )
    在acad2000doc.lsp中增加：
  (load "test.lsp")
    (defun s::startup()
       (command "test")
    )

为何定义为命令形式（类似c:XXX()）会出错，而定义为函数调用却可以通过？？

zml84

试一下这个：
(c:test)

它山之石

acad.lsp
并不是每个文件打开都加载的

userzhluserzhl

那如何在当前文件夹中建立文件acad.lsp？