[求助]：如何在LISP中确定ET有无安装运行？

YueFeng

在LISP中运用了部分ET函数，如何确定用户有无安装运行ET工具？
运用以下这个系统环境变量，返回值为Nil。
(getenv "acet-Enable");字符串-Express工具是否可用

它山之石

俺是通过判断系统支持路径中有无ET的路径来实现的。
或者通过查找某个ET特有的文件来判断。
[php]
(defun test_lman ()
  (if (not lman)
    (cond
      ((not (findfile "lman.lsp"))        ; find it
       (setq gl_test_lman nil)
       (alert (strcat "=== 本软件需要[ET扩展工具]的支持! ==="
                      "\n\n      程序无法找到 lman.LSP 文件。"
                      "\n\n      请确认已安装并检查支持目录。"
              ) ;_ 结束strcat
       ) ;_ 结束alert
      )
      ((eq "failed" (load "lman" "failed")) ; load it;   
       (setq gl_test_lman nil)
       (alert (strcat "=== 本软件需要[ET扩展工具]的支持! ==="
                      "\n\n      程序无法加载文件 lman.LSP。"
                      "\n\n      请确认已安装并保证可运行。"
              ) ;_ 结束strcat
       ) ;_ 结束alert
      )
      (T
       (setq gl_test_lman T)
      )
    ) ;_ 结束cond
    (setq gl_test_lman T)
  ) ;_ 结束if
) ;_ 结束defun
[/php]

YueFeng

根据它山之石的提示，增加了一个自定义的函数。
以ET扩展工具可以使用的话，在(ARX)列表中必有"acetutil.arx"这一个程序。

1. 
   
2.   [FONT=courier new]
   
3. (Defun $ACET-Enable()
   
4.    (If (Member "acetutil.arx" (Arx)) T Nil)
   
5. )
   
6.   [/FONT]
   

复制代码

oyxx_1023

看看ET里面的LISP是如何判断ET是否已加载的.
(equal -1  (load "acetutil.fas"  -1))
返回T则已加载.

YueFeng

最初由 oyxx_1023 发布
[B]看看ET里面的LISP是如何判断ET是否已加载的.
(equal -1  (load "acetutil.fas"  -1))
返回T则已加载. [/B]

按此程序片断原义应是加载acetutil.fas程序失败后返回T，这如何与ET已正确加载挂勾？

aeo

既然要用函数
那就直接判断函数就行
(if acet-.... (progn ...

cy956

通常用的是判断某个特有函数是否存在，我赞成aeo的说法。