本帖最后由 作者 于 2005-7-18 8:54:13 编辑
全部关闭应分三种 1 全部关闭,不保存
2 全部关闭, 全保存
3 全部关闭(保存不保存由用户决定)
AutoCAD命令本有COLSEALL
acDocManager->sendStringToExecute( pDoc, "_.CLOSEALL", false, true);
不知道是不是可以实现第三种情况
另外有个曲折的前两种关闭文档的方法,遍历文档,均发送关闭字符串(这样的关闭方式是用lisp语句执行VBA的代码来实现的,AutoCAD开发工具用全了吧 呵呵)
考虑使用了vl函数 要运行(vl-load-com)
全关保存 acDocManager->sendStringToExecute( pDoc, "(vl-load-com)(vl-cmdf \"vbastmt\" (strcat \"ThisDrawing.Close True\"))\n", false, true);
全关不存 acDocManager->sendStringToExecute( pDoc, "(vl-load-com)(vl-cmdf \"vbastmt\" (strcat \"ThisDrawing.Close False\"))\n", false, true);
附件是Arx关于文档的例子,我在OnSendstringButton()函数里测试了上面的代码 |