[求助]VLAX类中EvalLispExpression函数出错，无法执行DEFUN

NetBee

在使用VLAX类执行LISP语句时，无法下面语名：

Sub test()
Dim VL As New VLAX
  VL.EvalLispExpression ("(defun c:tt nil (princ " & Chr$(34) & "测试" & Chr$(34) & "))" & Chr$(13))
End Sub

CAD命令行中出现如下错误：

命令: ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)

按ESC键取消后

然后在命令行中输入TT，提示未知命令

而输入(C:TT),则能执行!

后又使用DEFUN-Q定义

  VL.EvalLispExpression ("(defun-q c:tt () (princ " & Chr$(34) & "测试" & Chr$(34) & "))" & Chr$(13))

也是一样

命令: !c:tt
(nil (PRINC "测试"))

雪山飞狐_lzh

好像和命令有关的lisp语句， vlax都不能搞定：）

NetBee

大部分CAD不会，只是有些机子的CAD会出。

没有找到原因　，总是不好。