[每日一码] 把选择的实体写到外部DWG文件

admin

1. static void WblockIds() {
2.         resbuf *rb = acutNewRb(RTSTR);
3.         if (acedGetFileD(L"Export file", nullptr, L"dwg", 32, rb) != RTNORM)
4.                 return;
5.         AcString filename = rb->resval.rstring;   acutRelRb(rb);
6.         ads采用name ss;
7.         if (acedSSGet(nullptr, nullptr, nullptr, nullptr, ss) != RTNORM)
8.                 return;
9.         Adesk::Int32 nSel = 0;
10.         acedSSLength(ss, &nSel);
11.         if (nSel == 0) {  acedSSFree(ss); return; }
12.         AcDbObjectIdArray ids; ids.setPhysicalLength(nSel);
13.         for (int i = 0; i < nSel; i++) {
14.                 ads采用name en; acedSSName(ss, i, en);
15.                 AcDbObjectId id;
16.                 if (acdbGetObjectId(id, en) == Acad::eOk) ids.append(id);
17.         }
18.         acedSSFree(ss);
19.         Acad::ErrorStatus es;
20.         AcDbDatabase *pOutputDb = new AcDbDatabase(false);
21.         es = pOutputDb->readDwgFile(filename, AcDbDatabase::OpenMode::kTryForReadShare);
22.         AcDbObjectId idModelSpace =
23.                 AcDbSymbolUtilities::servicesPtr()->blockModelSpaceId(pOutputDb);
24.         AcDbIdMapping idMap;
25.         es = acdbCurDwg()->wblockCloneObjects(ids, idModelSpace, idMap, AcDb::DuplicateRecordCloning::kDrcReplace);
26.         pOutputDb->closeInput(true);
27.         es = pOutputDb->saveAs(filename);
28.         delete pOutputDb;
29. }

复制代码