无模式对话框下的LISP函数调用解决方案讨论
<FONT color=#0000ff>前次关于这个问题的帖子</FONT>当时偶从电邮得到楼主的源代码之后用VC debug调试的结果显示, 在无模式对话框下, 调用acedCommand / acedCmd 但不关对话框, AutoCAD将获取不到任何参数, 以至于出现invalid command:nil的错误. 如果这两个命令是在VC提供的标准OK / CANCEL按钮上呼叫, 那么就能够实现, 但是对话框会被关掉, 也就是和有模对话框并无区别.
原因不清, 偶个人认为是VC无模式对话框建立在堆栈上使得AutoCAD同样使用堆栈的acedCommand / acedCmd无法进入造成. 有模对话框是建立在内存中, 并不占用堆栈, 所以在有模对话框下或者关闭无模对话框释放堆栈指针之后就可以运行acedCommmand / acedCmd.
今天调试出了一个解决方案: 使用acDocManager的sendStringToExecute(). 这个命令函数从内存直接向AutoCAD呼叫命令, 不使用堆栈, 所以可以实现无模式对话框的按钮对LISP中已定义的函数的调用.
代码:
假设LISP中已经定义一个名为myfun (x)的函数, x是从对话框edit box获得的int数据.
在无模式对话框的OnButton函数中进行如下操作:
CString szCommand;<BR>char temp ;<BR><BR>// 把int转换为string<BR>itoa (m_nEdit, temp, 10); // m_nEdit为从edit box获得数据的对话框变量, 10是表示用10进制转换.
// 下面开始生成命令字串<BR>szCommand = "(";<BR>szCommand += "myfun "; // 命令名称和参数之间要用空格分开. 如果有多个参数, 参数之间也要用空格分开.<BR>szCommand += temp; // 如果edit box变量类型设定不是int而是CString, 那么可以省略temp和itoa(), 这一步直接用+= m_nEdit<BR>szCommand += ")\n"; // 括号表示直接从AutoCAD command line运行LISP函数命令, \n表示按回车键
// 用命令字串执行<BR>acDocManager -> sendStringToExecute ( acDocManager -> mdiActiveDocument(), szCommand, TRUE, TRUE); // 此命令的参数使用可以参考ARX帮助
如果LISP中定义的函数是C:XXX, 那么szCommand中就省去括号. 总之, 执行命令时在AutoCAD的命令行中键入的是什么字串, 用sendStringToExecute送过去的就是什么字串便可. 谢谢大侠帮忙，真是好极了，解决了我的大问题啊！！！ 大侠，我试了一下，怎么temp的值一直是0，没有接受到EDIT来的值啊？ 请输入 应该加上一句UpdateData(TRUE);这样才能收到来自EDIT的输入值。 偶汗....
私下里觉得, UpdateData是MFC AppWizard最应该替人准备却没有准备的一句话..
页:
[1]