Ошибка: *** - EVAL: неопределенная функция GETVAR - PullRequest
Новая
       15

Ошибка: *** - EVAL: неопределенная функция GETVAR

0 голосов
/ 16 апреля 2019

Я пытался добавить lisp в Autocad 2020, но выдает ошибку:

Ошибка LISP: неверный тип аргумента: stringp nil

Я пытался скомпилироватькод, но он дает мне

*** - 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)
...