用arx如何实现将多重块变成普通块

hebright

网上共享的lisp程序可以实现：
(setq r_zm70 (assoc 70 e))
(setq c_zm71 (assoc 71 e))
(setq r_dist_zm44 (assoc 44 e))
(setq c_dist_zm45 (assoc 45 e))
(setq e (subst (cons 44 0) r_dist_zm44 e))
(setq e (subst (cons 45 0) c_dist_zm45 e))
(setq e (subst (cons 70 0) r_zm70 e))
(setq e (subst (cons 71 0) c_zm71 e))
(setq e (subst (list 100"AcDbBlockReference") (list 100"AcDbMInsertBlock") e))
我自己用arx编程，最好一句实现不了，代码如下，求大神指点：
AcDbMInsertBlock *pMBlk;
if(acdbOpenObject(pMBlk,idObj,AcDb::kForWrite) != Acad::eOk)
  return;
pMBlk->setRowSpacing(0.0);
pMBlk->setColumnSpacing(0.0);
pMBlk->setRows(0);
pMBlk->setColumns(0);
pMBlk->close();
最后一句我试着直接修改dxf组码，但失败了：
struct resbuf *entdata,*tmpreb;
entdata = ads_entget(ent);
if(entdata==NULL)
{
   return;
}
str = _T("AcDbBlockReference");
ACHAR appName[32];
memcpy(appName, str, 32);
for(tmpreb=entdata;tmpreb!=NULL;tmpreb=tmpreb->rbnext)
{
  str = tmpreb->resval.rstring;
  if(API_stricmp(str,_T("AcDbMInsertBlock")) == 0)
  {
   tmpreb->resval.rstring = (ACHAR*)malloc((API_strlen(appName)+1)*sizeof(ACHAR));
   API_strcpy(tmpreb->resval.rstring, appName);
    break;
  }
}
ads_entmod(entdata);
ads_relrb(entdata);

LoveArx

看 AcDbMInsertBlock 帮助文件，它派生于AcDbBlockReference 。

1. 
   
2. 
   
3. AcDbMInsertBlock Class The AcDbMInsertBlock class represents a special form of the INSERT entity in which an array of duplicate images of the entities within the referenced AcDbBlockTableRecord is displayed.
   
4. 
   
5. Creating an AcDbMInsertBlock with a definition of rows = 1 and columns = 1 will create a AcDbBlockReference instead.
   
6. 
   
7. Warning Do not derive from this class. Attempting to do so will cause your application to halt AutoCAD.
   
8. 
   
9. Inherits From
   
10. AcDbBlockReference
    

复制代码

说的很清楚了，Creating an AcDbMInsertBlock with a definition of rows = 1 and columns = 1 will create a AcDbBlockReference instead.

你打开AcDbMInsertBlock 写，把rows和columns设置成1就行了。

示例：
AcDbMInsertBlock　*pMInsert ;
...............
pMInsert->setRows(1);
pMInsert->setColumns(1);
pMinsert->close();
.......

iLisp

重新构造多个AcDbBlockReference

hebright

pMInsert->setRows(1);
pMInsert->setColumns(1);这个方法试过，不行啊，还是多重块，请问ilisp，怎么重新构造多个AcDbBlockReference？我是菜鸟，望赐教

LoveArx

hebright 发表于 2016-9-24 12:18

哦，理解有误，你是想原位“炸开”多重块，变成NXM个单独的INSERT？

如果这样，你可以得到多重块的AcDbBlockRecord块定义，根据多重MINSERT的变换矩阵创建一个单独的INSERT，然后根据多重MINSERT的行数、列数、行间距、列间距，transformedCopy下。