[ARX程序]：不好意思，问个很简单的问题：怎么插入一个图块（BLOCK）

cedarzhou

现在不能搜索，只好问个很简单的问题了：选择图块然后在指定点（已经知道坐标）插入一个图块呢？
是用acedCommand调用CAD的INSERT命令吗？

xb4270293

1. <normalfont>
   
2. :> 与你共享
   
3. //插入图块函数
   
4. AcDbObjectId InsertBlock(LPCSTR SLayerName, LPCSTR SBlockName,
   
5.                                  ads_point BasePoint, double rAngle, double rScale)
   
6. {
   
7.         ads_name ent;
   
8.         AcDbObjectId BlockId, ObjId;
   
9.         AcGeScale3d Scale(rScale, rScale, rScale);
   
10.         AcGePoint3d GPt;
    
11.         GPt.x = BasePoint[X];
    
12.         GPt.y = BasePoint[Y];
    
13.         GPt.z = BasePoint[Z];
    
14. 
    
15.         BlockId = GetBlockId(SBlockName);
    
16.         if (BlockId == AcDbObjectId(0))        return AcDbObjectId(0);
    
17. 
    
18.         AcDbBlockReference * pBlock = new AcDbBlockReference(GPt, BlockId);
    
19.         pBlock->setRotation(rAngle);
    
20.         pBlock->setScaleFactors(Scale);
    
21.         pBlock->setLayer(SLayerName);
    
22. 
    
23.         ObjId = AddEntToDbs(pBlock);        // &frac12;&laquo;&Iacute;&frac14;&iquest;é&Ecirc;&micro;&Igrave;&aring;&Igrave;í&frac14;&Oacute;&micro;&frac12;&iquest;é±í&iquest;&Otilde;&frac14;&auml;
    
24.         return ObjId;
    
25. }
    
26. 
    
27. //模型空间添加实体函数
    
28. AcDbObjectId AddEntToDbs(AcDbEntity * pEntity)
    
29. {
    
30.         AcDbBlockTable *pBlockTable;
    
31.         acdbCurDwg()->getBlockTable(pBlockTable, AcDb::kForRead);
    
32.         AcDbBlockTableRecord *pBlockTableRecord;
    
33.         pBlockTable->getAt(ACDB_MODEL_SPACE, pBlockTableRecord, AcDb::kForWrite);
    
34.         AcDbObjectId EntityId = AcDbObjectId::kNull;
    
35.         pBlockTableRecord->appendAcDbEntity(EntityId, pEntity);
    
36.         StatusOk(pBlockTableRecord->close());
    
37.         StatusOk(pBlockTable->close());
    
38.         StatusOk(pEntity->close());
    
39.         return EntityId;
    
40. }
    
41. 以上ObjectARX R14中的程序供大家参考，多提意见。
    
42. 从项目代码中复制出来的。
    
43. 不是我编程的时候不缩进，而是编辑框中不支持tab，
    
44. </normalfont>
    

复制代码

XDSoft

最初由 xb4270293 发布
[B][code]<normalfont>
:> 与你共享
//插入图块函数
AcDbObjectId InsertBlock(LPCSTR SLayerName, LPCSTR SBlockName,
                                 ads_point BasePoint, double rAngle, double rScale)
{
        ads_name ent;
        AcDbObjec... [/B]

不是论坛不支持缩进，而是你粗心大意

论坛置定帖子，介绍了如何进行缩进的方法。

cedarzhou

谢谢大家，我昨天晚上11：00以后搜索了论坛，已经找到代码了。不过，还是真的很感谢你~~