大家谁知道如何判断应用程序是否加载？

xazhji

我近期编的一个程序，要加载doslid，我在单位用的是AutoCAD2000英文版，重复加载这个应用程序，没有任何问题，在家里，我用的是AutoCAD2000中文版，这样就不行了，重复加载时，出现错误，程序终止。能不能有什么办法判断某个应用程序是否加载，如是，就不再加载它了。
   当然是用lisp判断，而不是在加载应用程序对话框里。

王咣生

用(arx)函数可以得到已经加载的arx程序名字符串表.

xazhji

OK!Thanks!

XY

用lisp
可用（setq a （null 程序名））
如果 a 为 nil 则已经加载
如果 a 不为nil 则未加载！

王咣生

挺好的方法.

xazhji

无法判断！加载与否，都是 nil  !

meflying

xazhji发表于2003-7-30 14:49:00无法判断！加载与否，都是 nil  !

可以判断，
你想想，如果一个函数未加载，那么此函数名符号肯定为空，(null 函数)肯定为T，怎么可能都是nil.
不过只需判断其是否空即可，无须通过NULL付值给a，
(if abc
  (princ "程序已加载")
  (princ "程序未加载")
)

xazhji

我先前是将程序名用双引号括起来，这个当然不对，lisp 将它作为字符串，当然，是nil;    我刚才将双引号去掉，现在，不管加载与否，都是T。想毕是因为程序名称同它的函数名称不一样的缘故罢了。比如，判断加载doslib2k.arx ,我想，应该判断其中的某个函数名称。

前生

根据AutoCAD的版本，确定DOSLIB的版本doslib***
(member "doslib***.arx" (arx))

tuger

将下面的添加到acad.lsp中就可以了

(defun S::STARTUP ()
(cond
((= (atoi (substr (getvar "acadver") 1 2)) 14)
(if (not (member "doslib14.arx" (arx)))
(if (findfile "doslib14.arx")
(arxload "doslib14")
)
)
)
((= (atoi (substr (getvar "acadver") 1 2)) 15)
(if (not (member "doslib2k.arx" (arx)))
(if (findfile "doslib2k.arx")
(arxload "doslib2k")
)
)
)
)
)