[求助]：怎样实现LISP的自动执行？

xbx7920

对于LISP，往往我们讨论最多的是怎样自动加载。在得到一个圆满的
答案之后，我又有了新的疑问：“怎样才能在AUTOCAD R14中开启某张DWG图就自动执行某个特定的LISP？” 注意：不是自动加载！！！
谢谢！

zhynt

这似乎是不大可能的，不过有一种变通的方法，就是在acad.lsp或acad.mnl中检查你打开的文件名，如果符合某种条件就加载那个lsp。你以为呢？

xbx7920

能不能说的仔细点，老大？怎样在acad.lsp或acad.mnl中检查打开的文件名，如果符合某种条件就加载那个lsp？赐教。

zhynt

呵呵，不好意思，这么长时间才来回复：
具体的方法是在acad.lsp或其它的自动加载的lsp中添加如下代码：

2. 
   
3. (defun s::startup ()
   
4.   (if (= (getvar "dwgname") "特定的图.dwg")
   
5.     (load "特定的lsp")
   
6.     )
   
7. )
   

<br /> (defun s::startup ()<br />   (if (= (getvar "dwgname") "特定的图.dwg")<br />     (load "特定的lsp")<br />     )<br /> )<br />

其中"特定的图.dwg")就是你要加载lap的图，比如你要为abc.dwg加载123.lsp则：

2. 
   
3. (defun s::startup ()
   
4.   (if (= (getvar "dwgname") "abc.dwg")
   
5.     (load "123.lsp")
   
6.     )
   
7. )
   

<br /> (defun s::startup ()<br />   (if (= (getvar "dwgname") "abc.dwg")<br />     (load "123.lsp")<br />     )<br /> )<br />

这里要说明的是s::startup 是一个特殊的函数，他不需要你输入，他是自动执行的，这也是你的要求得以实现的原因。

更正一下，其实也不需要这样啦
其实只要在acad.lsp的最后加上：
(if (= (getvar "dwgname") "abc.dwg")
(load "123.lsp")
)
就行了，呵呵。

zhynt

从这个问题引申开去：
我们还可以对图形名增加一些模糊判断，比如说图名中包含某个或某些特定的字符等等。

从这个问题引申开去：
我们还可以对图形名增加一些模糊判断，比如说图名中包含某个或某些特定的字符等等。


不好意思，前面看错了，说的是自动“运行”不是加载，但还是可行的：
(if (= (getvar "dwgname") "图名")
(progn
(load "某.lsp") ;如果已经加载就可以省掉
(执行函数)  ;就是DEFUN后面跟的函数，如果是c:***，这里就要写成(c:***)
)
)

xbx7920

zhynt斑竹,我照你的方法试着写了一个。可以自动执行，如下：
(defun s::startup ()
   (load "c:\\wd.lsp")
   (if (= (getvar "DWGTITLED") 1)
       ((c:wd)))
   )      
   (princ)
)
但是出现问题：Command: error: bad function
((C:WD))
(IF (= (GETVAR "DWGTITLED") 1) ((C:WD)))
(S::STARTUP)
*Cancel*     能不能抑制后面的出现。

zhynt

((c:wd)))干吗要双括号啊？

不错的想法，打开cad不运行，只有打开图才运行。
(defun s::startup ()
(if (= (getvar "DWGTITLED") 1)
(progn
(load "c:\\wd.lsp")
(c:wd)
)
)
(princ)
)

与s::startup函数类似的还有s::save以及s::exit
前者当保存图形时运行，后者当退出时运行。

xbx7920

我去掉了双括号，但还是会出现(S::STARTUP)，何故？
向雷锋同志学习！

zhynt

我没有这个问题啊？你是放在哪个lsp里？
把你的wd,lsp传上来我看看。

xbx7920

我的wd.lsp是放在C盘的根目录下，而且在CAD中我把C盘加在了支持搜索文件夹里面。
以下的我放在了ACADR14.LSP里面，(defun s::startup ()
(if (= (getvar "DWGTITLED") 1)
(progn
(load "c:\\wd.lsp")
(c:wd)
)
)
(princ)
)
WD。LSP只是我随手写的一个小LISP，运行绝对没有问题。

cy956

去研究一下前段子出现的acad.lsp病毒,它用的就是上面办法.