[每日一码] 使用COM API插入图块

admin

1. #pragma warning( disable : 4278 )
2. // Makes change to the tlb name based on the AutoCAD version.
3. // For ex : acax18enu.tlb for AutoCAD 2010/2011 and 2012
4. //          acax19enu.tlb for AutoCAD 2013
5. #import "acax19ENU.tlb" no采用implementation raw采用interfaces采用only named采用guids
6. #pragma warning( default : 4278 )
8. #include <acadi.h>
9. static void ADSProjectInsertBlock(void)
10. {
11.     int ret = RTNORM;
13.     TCHAR drawingFilePath[500];
14.     drawingFilePath[0] = 采用T('\0');
15.     ret = acedGetString (
16.                             NULL,
17.                             采用T("Enter file path : "),
18.                             drawingFilePath
19.                         );
20.     if(ret != RTNORM)
21.         return;
23.     ads采用point insertionPoint;
24.     ret = acedGetPoint(
25.                         NULL,
26.                         采用T("\nEnter insertion point: "),
27.                         insertionPoint
28.                        );
29.     if(ret != RTNORM)
30.         return;
32.     CWinApp *pApp = acedGetAcadWinApp();
33.     HRESULT hRes;
34.     LPDISPATCH pDisp=NULL;
36.     if(!pApp)
37.         return;
39.     pDisp=pApp->GetIDispatch(TRUE);
40.     if    (!pDisp)
41.           return;
43.     CComPtr<AutoCAD::IAcadApplication>  pComApp;
44.     hRes=pDisp->QueryInterface(
45.                                 IID采用IAcadApplication,
46.                                 (void**)&pComApp
47.                               );
48.     if (FAILED(hRes))
49.           return;
51.     CComPtr<AutoCAD::IAcadDocument> pComDoc;
52.     hRes=pComApp->get采用ActiveDocument(&pComDoc);
53.     if(FAILED(hRes))
54.         return;
56.     CComPtr<AutoCAD::IAcadModelSpace> pMSpace = NULL;
57.     pComDoc->get采用ModelSpace(&pMSpace);
59.     采用bstr采用t block(drawingFilePath);
60.     CComPtr<AutoCAD::IAcadBlockReference> pBlkRef = NULL;
62.     SAFEARRAYBOUND rgsaBound;
63.     rgsaBound.lLbound = 0L;
64.     rgsaBound.cElements = 3;
65.     SAFEARRAY* pInsertionPoint = NULL;
66.     pInsertionPoint = SafeArrayCreate(VT采用R8, 1, &rgsaBound);
68.     for(long i = 0; i < 3; i++)
69.     {
70.         double value = insertionPoint<i>;
71.         SafeArrayPutElement(
72.                                 pInsertionPoint,
73.                                 &i,
74.                                 &value
75.                             );
76.     }
78.     VARIANT vInsertionPoint;
79.     VariantInit(&vInsertionPoint);
80.     V采用VT(&vInsertionPoint) = VT采用ARRAY | VT采用R8;
81.     V采用ARRAY(&vInsertionPoint) = pInsertionPoint;
83.     double scaleX = 1.0;
84.     double scaleY = 1.0;
85.     double scaleZ = 1.0;
86.     double rotation = 0.0;
88.     pMSpace->InsertBlock(
89.                             vInsertionPoint,
90.                             block,
91.                             scaleX,
92.                             scaleY,
93.                             scaleZ,
94.                             rotation,
95.                             vtMissing,
96.                             &pBlkRef
97.                         );
99.     VariantClear(&vInsertionPoint);
100. }

复制代码