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

NetBee · 发表于 2007-3-17 18:08:00

在使用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 "测试"))