错误:***-EVAL:未定义函数GETVAR

时间:2019-04-16 20:42:58

标签: lisp autolisp

我试图将Lisp添加到Autocad 2020,但它给了我错误:

  

LISP错误:错误的参数类型:stringp nil

我试图编译lisp代码,但是它给了我

  

***-EVAL:未定义函数GETVAR

请,我需要解决此问题,但是我没有足够的编程经验来知道如何做。

(setq nth-langue "1")
(setq lect "c:\\AutoFLUID10\\")
(if (getvar "TRUSTEDPATHS") 
    (if (wcmatch (getvar "TRUSTEDPATHS") (strcat "*" lect "...*")) 
        nil 
        (setvar "TRUSTEDPATHS" (strcat (getvar "TRUSTEDPATHS") ";" lect "..."))
    )
)
(cond 
    (   (wcmatch (strcase (getvar "product")) "*BRICSCAD*")                                             (setq ext-lsp ".LSP"))
    (   (wcmatch (strcase (getvar "product")) "*AUTOCAD*")                                              (setq ext-lsp ".FAS"))
    ((and   (wcmatch (strcase (getvar "product")) "*ZWCAD*") (getvar "ZRXVERNUM") (wcmatch (getvar "ZRXVERNUM") "*2018.30*"))       (setq ext-lsp ".ZELX"))
    (   (wcmatch (strcase (getvar "product")) "*ZWCAD*")                                                (setq ext-lsp ".FAS"))
)
(load (strcat lect "ATF\\lm-ATF" ext-lsp))
(appel-du-menu-suite)

0 个答案:

没有答案