[求助]VLAX类中EvalLispExpression函数出错，无法执行DEFUN
在使用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 "测试"))
好像和命令有关的lisp语句， vlax都不能搞定：）
大部分CAD不会，只是有些机子的CAD会出。
没有找到原因 ，总是不好。
页:
[1]