[求助]：如何执行一个字符串中的autolisp代码?

wujimmy

如何实现如下功能:
从执行一个字符串中的autolisp代码?
比如vla-eval 可能执行一个vba的代码,但是如果没有装vba的话就不能执行了
有没有可靠的方法执行字符串中的lisp代码呢?
比如  (superfun  " (setq mid(+ 1 1) )  (princ mid)" )  等等

舟自横

(eval (read " (setq mid(+ 1 1) ) (princ mid)" ))

wujimmy

太好了,多谢舟自横
语法

    (read string)

功能及参数

     此函数将返回 string 的第一个表或原子。但 string 不可以包含空格, 除非是在表或字符串中 。read 会返回它的参数转换的相对应数据类型。1

Underway

;;; 节录自 AutoCAD

(defun autoarxacedload (app cmdliste / qapp symnam)
  (setq qapp (strcat "\"" app "\""))
  (setq initstring "\nInitializing...")
  (mapcar
   '(lambda (cmd / nom_cmd)
      (progn
        (setq nom_cmd (strcat "C:" cmd))
        (if (not (eval (read nom_cmd)))
            (eval
             (read (strcat
                    "(defun " nom_cmd "( / oldcmdecho)"
                    "(setq m:err *error* *error* *merrmsg*)"
                    "(if (ai_ffile " qapp ")"
                    "(progn (princ initstring)"
                    "(_autoarxload " qapp ")"
                    "(setq oldcmdecho (getvar \"CMDECHO\"))"
                    "(setvar \"CMDECHO\" 0)"
                    "(command " "\"_" cmd "\"" ")"
                    "(setvar \"CMDECHO\" oldcmdecho))"
                    "(ai_nofile " qapp "))"
                    "(setq *error* m:err m:err nil)"
                    "(princ))"
                    ))))))
   cmdliste)
  nil
)