[ARX程序]：运用COM编程启动AutoCAD 并创建选择集合

hongxian

#import "acax17enu.tlb" raw_interfaces_only no_namespace named_guids rename("GetObject", "acaxGetObject")
IAcadApplicationPtr m_pAcadApp;
     //Start AutoCAD
     HRESULT hr = NOERROR;

     if(FAILED(m_pAcadApp.GetActiveObject(L"AutoCAD.Application")))
     {
         if(FAILED(m_pAcadApp.CreateInstance(L"AutoCAD.Application")))
         {
              AfxMessageBox(_T("Failed to get or start Acad."), MB_ICONEXCLAMATION);
              return;
         }
     }
     if(m_pAcadApp.GetInterfacePtr() == NULL)
         return;

     m_pAcadApp->put_Visible(VARIANT_TRUE);// you can put it invisible
     m_pAcadApp->AddRef();


     // Get IAcadDocuments interface.
     CComPtr<IAcadDocuments> pDocs;
     hr = m_pAcadApp->get_Documents(&pDocs);
     if(FAILED(hr))
         return;
     // open one drawing
     CComBSTR fileName("c:\\test.dwg");
     CComVariant b(VARIANT_FALSE, VT_BOOL);
     CComVariant vStr("");

     // Open a drawing, c:\test.dwg.
     CComPtr<IAcadDocument> pDoc;
     hr = pDocs->Open(fileName, b, vStr, &pDoc);
     if(FAILED(hr))
         return;

     CComPtr<IAcadSelectionSets> pSelSets;
     // Get the selection Set collection
     hr=pDoc->get_SelectionSets(&pSelSets);
     CComPtr<IAcadSelectionSet> pSelSet;
     hr = pSelSets->Add(CComBSTR("Test"),&pSelSet);

     SAFEARRAY *aGrpCodes=NULL;
     SAFEARRAY *aGrpVals=NULL;
     SAFEARRAYBOUND bnd;
     bnd.lLbound = 0;
     bnd.cElements =1;


     VARIANT vGrpCode, vGrpVal;



     aGrpCodes = SafeArrayCreate(VT_I2, 1, &bnd);
     long i = 0;
     long code = 0;
     SafeArrayPutElement(aGrpCodes, &i, &code);

     vGrpCode.vt = VT_I2 | VT_ARRAY;
     vGrpCode.parray = aGrpCodes;


     // Add the filter
     CComBSTR grname = ("CIRCLE") ;
     VARIANT vtStr;
     vtStr.vt = VT_BSTR;
     vtStr.bstrVal = grname;

     aGrpVals = SafeArrayCreate(VT_VARIANT, 1, &bnd);
     SafeArrayPutElement(aGrpVals, &i, &vtStr);

     vGrpVal.vt = VT_VARIANT | VT_ARRAY;
     vGrpVal.parray = aGrpVals;


     // define optional variant argument
     VARIANT vopt;
     VariantInit(&vopt);
     V_VT(&vopt) = VT_ERROR;
     vopt.scode = DISP_E_PARAMNOTFOUND;


     hr = pSelSet->Select(acSelectionSetAll,vopt ,vopt,vGrpCode,vGrpVal);

     // Get the count
     long iCnt = 0;
     hr=pSelSet->get_Count(&iCnt);

     CString strTmp;
     strTmp = "Have get the current selection set";
     AfxMessageBox(LPCTSTR(strTmp));
     pSelSet->Delete();
     SafeArrayDestroy(aGrpCodes);
     SafeArrayDestroy(aGrpVals);