[求助]VLAX类中EvalLispExpression函数出错,无法执行DEFUN
<p>在使用VLAX类执行LISP语句时,无法下面语名:</p><p>Sub test()<br/>Dim VL As New VLAX<br/> VL.EvalLispExpression ("(defun c:tt nil (princ " & Chr$(34) & "测试" & Chr$(34) & "))" & Chr$(13))<br/>End Sub<br/></p><p>CAD命令行中出现如下错误:</p><p>命令: ; 错误: 出现异常: 0xC0000005 (访问冲突)<br/>; 警告: 忽略展开 异常<br/>; 错误: 出现异常: 0xC0000005 (访问冲突)</p><p>按ESC键取消后</p><p>然后在命令行中输入TT,提示未知命令</p><p>而输入(C:TT),则能执行!</p><p></p><p>后又使用DEFUN-Q定义</p><p> VL.EvalLispExpression ("(defun-q c:tt () (princ " & Chr$(34) & "测试" & Chr$(34) & "))" & Chr$(13))</p><p>也是一样</p><p>命令: !c:tt<br/>(nil (PRINC "测试"))<br/></p> <p>好像和命令有关的lisp语句, vlax都不能搞定:)</p> <p>大部分CAD不会,只是有些机子的CAD会出。</p><p>没有找到原因 ,总是不好。</p>
页:
[1]