[教学]：如何用ARX实现打开一个图形自动关闭ACAD启动后默认的空图形DRAWING1.DWG窗口

XDSoft

问题：

当AutoCAD 2000 第一次启动时候，将要创建一个空的文档DWGING1.DWG.使用ACAD的OPEN命令打开一个图形的时候，这个空文档窗口会自动的消失，如何用程序实现这个过程，比如：使用AcApDocManager::appContextOpenDocument()方法并在session context中注册它，Drawing1.dwg并不关闭，为什么？

回答：

如果你在使用AcApDocManager::appContextOpenDocument(), closeDocument() 中调用 AcApDocManager::closeDocument() 总是失败，是因为AutoCAD“认为”一些操作一直在命令行激活，结果就是即使你的appContextOpenDocument() 操作成功，也不会关闭文档。

答案是在你的ARX程序里面用ACAD的ActiveX Automation接口来解决。下面的代码在MDI环境下关闭缺省的DRAWING1.DWG并打开一个图形

1. 
   
2. #include <acad15.h>
   
3. #include <acad15_i.c>
   
4. 
   
5. //
   
6. // 要确保下面的命令用ACRX_CMD_SESSION 位注册
   
7. 
   
8. void openDwg()
   
9. {
   
10.         CWinApp* pWinApp = acedGetAcadWinApp();
    
11.         if(!pWinApp)
    
12.                 return;
    
13.         CComPtr<IDispatch> pDisp = pWinApp->GetIDispatch(TRUE);
    
14.         if(!pDisp)
    
15.                 return;
    
16. 
    
17.         CComPtr<IAcadApplication> pComApp;
    
18.         HRESULT hr = pDisp->QueryInterface(IID_IAcadApplication,
    
19. (void**)&pComApp);
    
20.         if(FAILED(hr))
    
21.                 return;
    
22. 
    
23.         CComPtr<IAcadDocument> pDoc;
    
24.         hr = pComApp->get_ActiveDocument(&pDoc);
    
25.         if(FAILED(hr))
    
26.                 return;
    
27.        
    
28.         BSTR fName;
    
29.         hr = pDoc->get_Name(&fName);
    
30. 
    
31.         _bstr_t dwg1("Drawing1.dwg");
    
32.         _bstr_t dwg2(fName);
    
33.         if(SUCCEEDED(hr) && dwg1 == dwg2)
    
34.         {
    
35.                 _variant_t vb(VARIANT_FALSE);
    
36.                 _variant_t vnam(dwg1);
    
37.                 hr = pDoc->Close(vb, vnam);
    
38.                 if(FAILED(hr))
    
39.                 {
    
40.                         acutPrintf("\关闭drawing1.dwg文件失败.");
    
41.                         return;
    
42.                 }
    
43.         }
    
44. 
    
45.         _bstr_t fileName("c:\\test.dwg");
    
46. 
    
47.         CComPtr<IAcadDocuments> pDocs;
    
48.         hr = pComApp->get_Documents(&pDocs);
    
49.         if(FAILED(hr))
    
50.                 return;
    
51. 
    
52.         _variant_t b(VARIANT_FALSE);
    
53.         CComPtr<IAcadDocument> pDoc1;
    
54.         hr = pDocs->Open(fileName, b, &pDoc1);
    
55.         if(FAILED(hr))
    
56.                 acutPrintf("\打开DWG文件失败.");
    
57. }
    
58. 
    
59. //注意：在SDI环境下，代码要做下面的改变
    
60. //
    
61. void openDwg()
    
62. {
    
63.     CWinApp* pWinApp = acedGetAcadWinApp();
    
64.     if(!pWinApp)
    
65.           return;
    
66.     CComPtr<IDispatch> pDisp = pWinApp->GetIDispatch(TRUE);
    
67.     if(!pDisp)
    
68.           return;
    
69. 
    
70.     CComPtr<IAcadApplication> pComApp;
    
71.     HRESULT hr = pDisp->QueryInterface(IID_IAcadApplication, (void**)&pComApp);
    
72.     if(FAILED(hr))
    
73.           return;
    
74. 
    
75.     CComPtr<IAcadDocument> pDoc;
    
76.     hr = pComApp->get_ActiveDocument(&pDoc);
    
77.     if(FAILED(hr))
    
78.           return;
    
79. 
    
80.     _bstr_t fileName("c:\\test.dwg");
    
81.     hr = pDoc->Open(fileName, &pDoc);
    
82.     if(FAILED(hr))
    
83.           acutPrintf("\打开DWG文件失败.");
    
84. }
    

复制代码

DARCY

我就在用：AcApDocManager::appContextOpenDocument(), closeDocument() 中遇到了这个问题。

但是老大，按照你的资料头文件我都搞不定！包含什么头文件才能用？

wangxj2002

这些都是编程高手们玩的东东！！

CNYouth

找不到get_ActiveDocument!!!!!