[VBA程序]：秋枫，帮我看看，关于在vba中对lisp求值的问题

秋枫

不用c:XX, 改用
(vlax-add-cmd global-name func-sym [local-name cmd-flags])
试试看。

god

这种方式仍有问题，
比如我定义了一个函数 qqq  ,  然后想用 (vlax-add-cmd "www" 'qqq)  来定义一个 命令www，在acad的命令行中可以执行，但是通过Set vl_hello = vl_read.funcall("(defun hello (x) (vlax-add-cmd ""www"" 'qqq) ") 来执行就不行，会提示

Command: _vbaide 正在初始化 VBA 系统...
Command: ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)

但是当在acad的命令行中执行(vlax-add-cmd "www" 'qqq)后，www被定义了，再通过Set vl_hello = vl_read.funcall("(defun hello (x) (vlax-add-cmd ""www"" 'qqq) ") 定义就不会出错了。
据我的测试，在vb中Set vl_hello = vl_read.funcall("(defun hello (x) (vlax-add-cmd ""www"" 'qqq) ")不会起作用。

搞不懂是不是我的acad有问题。