匿名块问题

xulpec

我想创建一个匿名块，前面都没为题，到最后调试发现status=5003,即status!=RTKWORD,不知什么原因？
。
。
。
status=acdbEntMake(entlist);
acutRelRb(entlist);
if(status!=RTKWORD)
{acdbFail("建立ENDBLK块失败!");
return ;
}

xulpec

前面代码我也贴出来
entlist=acutBuildList(RTDXF0,"ENDBLK",0);
if(entlist==NULL)
{acdbFail("建立链表失败!");
return ;
}

XDSoft

最初由 xulpec 发布
[B]我想创建一个匿名块，前面都没为题，到最后调试发现status=5003,即status!=RTKWORD,不知什么原因？
。
。
。
status=acdbEntMake(entlist);
acutRelRb(entlist);
if(status!=RTKWORD)
{acdbFail("建立ENDBLK?.. [/B]

这个状态码是输入了关键字后返回的，建立块正常不用返回RTKWORD啊，你把完整的代码贴论坛吧，大家看看。

xulpec

entlist=acutBuildList(RTDXF0,"BLOCK",2,"*ANON",10,"1",0);
if(entlist==NULL)
{acdbFail("建立链表失败!");
return ;
}
status=acdbEntMake(entlist);
acutRelRb(entlist);
if(status!=RTNORM)
{acdbFail("建立块失败!");
return ;
}
entlist = acutBuildList(RTDXF0, "LINE",10, pt2,10, pt3,0);
if (entlist == NULL) {
    acdbFail("Unable to create result buffer list\n");
    return ;
}
status = acdbEntMake(entlist);
acutRelRb(entlist); // Release acdbEntMake buffer.

if (status == RTERROR) {

    acdbFail("Unable to make circle entity\n");
    return ;

}
entlist=acutBuildList(RTDXF0,"ENDBLK",0);
if(entlist==NULL)
{acdbFail("建立链表失败!");
return ;
}
status=acdbEntMake(entlist);
acutRelRb(entlist);
if(status!=RTKWORD)
{acdbFail("建立ENDBLK块失败!");
return ;
}
status=acedGetInput(newblkname);
if(status!=RTNORM)
{acdbFail("不能得到匿名块名称!");
return ;
}

xulpec

我想画一根线加入块.我在书上看到是RTKWORD，我现在都高糊涂了，acdbEntMake一会儿返回RTNORM，一会儿返回RTKWORD

XDSoft

最初由 xulpec 发布
[B]我想画一根线加入块.我在书上看到是RTKWORD，我现在都高糊涂了，acdbEntMake一会儿返回RTNORM，一会儿返回RTKWORD [/B]

下面给你贴个完整的把单个实体或者一个选择集制作块和匿名块的方法，如果块名参数是*，表示制作匿名块。
下面使用了ARX对象数据库的方法，既然用ARX，大家还是尽量少用ADSRX的全局函数。

1. 
   
2. [FONT=courier new]
   
3. int makeAnonymousBlock()
   
4. {
   
5.         resbuf *rb=ads_getargs();
   
6.         AcDbObjectIdArray ids;
   
7.         if (!rb)
   
8.                 return RTNORM;
   
9. 
   
10.         char * szBlkName="*U";
    
11.         if (rb->restype==RTSTR)
    
12.         {
    
13.                 if (*rb->resval.rstring=='*')
    
14.                         return RTNORM;
    
15.                 szBlkName=rb->resval.rstring;
    
16.                 rb=rb->rbnext;
    
17.                 if (!rb)
    
18.                         return RTNORM;
    
19.                 if (rb->restype!=RTPICKS)
    
20.                         return RTNORM;
    
21.                 XdDbUtils::getIdArrayFromPickSet(rb->resval.rlname,ids);
    
22.                 if (ids.isEmpty())
    
23.                         return RTNORM;
    
24.         }
    
25.         else if (rb->restype==RTPICKS)
    
26.         {
    
27.                 XdDbUtils::getIdArrayFromPickSet(rb->resval.rlname,ids);
    
28.                 if (ids.isEmpty())
    
29.                         return RTNORM;
    
30.         }
    
31.         else
    
32.                 return RTNORM;
    
33.        
    
34.         rb=rb->rbnext;
    
35. 
    
36.         if (!rb)
    
37.                 return RTNORM;
    
38. 
    
39.         AcGePoint2d basePt1;
    
40.         AcGePoint3d basePt;
    
41.         if (rb->restype==RTPOINT)
    
42.         {
    
43.                 basePt1=asPnt2d(rb->resval.rpoint);
    
44.                 basePt.set(basePt1.x,basePt1.y,0.0);
    
45.         }
    
46.         else if (rb->restype==RT3DPOINT)
    
47.         {
    
48.                 basePt=asPnt3d(rb->resval.rpoint);
    
49.         }
    
50.         else
    
51.                 return RTNORM;
    
52.         rb=rb->rbnext;
    
53.         BOOL b_delObj=FALSE;
    
54.         if (rb)
    
55.         {
    
56.                 if (rb->restype==RTT)
    
57.                         b_delObj=TRUE;
    
58.                 else
    
59.                         return RTNORM;
    
60.         }
    
61.        
    
62.         AcDbBlockTableRecord *pBlockTableRec;
    
63.         // Get the block table.
    
64.         //
    
65.         AcDbBlockTable *pBlockTable = NULL;
    
66.         acdbCurDwg()->getBlockTable(pBlockTable, AcDb::kForRead);
    
67.        
    
68.         // Add the new block table record to the block table.
    
69.         //
    
70.         AcDbObjectId blockTableRecordId;
    
71.         if (pBlockTable->getAt(szBlkName,pBlockTableRec,AcDb::kForRead)==Acad::eOk)
    
72.         {
    
73.                 pBlockTable->close();
    
74.                 AcDbBlockTableRecordIterator *pIter;
    
75.                 pBlockTableRec->newIterator(pIter);
    
76.                 for (;!pIter->done();pIter->step())
    
77.                 {
    
78.                         AcDbEntity *pEnt;
    
79.                         if (Acad::eOk!=pIter->getEntity(pEnt,AcDb::kForWrite))
    
80.                                 continue;
    
81.                         pEnt->erase();
    
82.                         pEnt->close();
    
83.                 }
    
84.                 delete pIter;
    
85.                 pBlockTableRec->upgradeOpen();
    
86.                 pBlockTableRec->setName(szBlkName);
    
87.                 pBlockTableRec->setOrigin(basePt);
    
88.         }
    
89.         else
    
90.         {
    
91.                 pBlockTableRec= new AcDbBlockTableRecord();
    
92.                 pBlockTableRec->setName(szBlkName);
    
93.                 pBlockTableRec->setOrigin(basePt);
    
94.                 pBlockTable->upgradeOpen();
    
95.                 pBlockTable->add(blockTableRecordId, pBlockTableRec);
    
96.                 pBlockTable->close();
    
97.         }
    
98. 
    
99.         pBlockTableRec->getName(szBlkName);
    
100.         AcDbEntity *pEnt;
     
101.         AcDbObjectId objId;
     
102.         AcDbEntity *pClone;
     
103.         for (int i=0;i<ids.length();i++)
     
104.         {
     
105.                 if (Acad::eOk==acdbOpenObject(pEnt,ids[i],AcDb::kForRead))
     
106.                 {
     
107.                         pClone=AcDbEntity::cast(pEnt->clone());
     
108.                         if (pClone)
     
109.                         {
     
110.                                 pBlockTableRec->appendAcDbEntity(objId, pClone);
     
111.                                 pClone->close();
     
112.                         }
     
113.                         pEnt->close();
     
114.                 }
     
115.         }
     
116.         AcDbObjectId blkId=pBlockTableRec->objectId();
     
117.         pBlockTableRec->close();
     
118.         if (b_delObj)
     
119.         {
     
120.                 deleteArray(&ids);
     
121.                 AcDbBlockReference *pBlk=new AcDbBlockReference;
     
122.                 pBlk->setBlockTableRecord(blkId);
     
123.                 pBlk->setPosition(basePt);
     
124.                 XdDbUtils::addToModelSpaceAndClose(pBlk);
     
125.         }
     
126.         XdDbUtils::flushBlockDisplay(blkId);
     
127.         ads_retstr(szBlkName);
     
128.         return RTNORM;
     
129. }[/FONT]

复制代码

xulpec

XDSoft能否把我上面程序里的错误找出来。出来生成line那几行，其余我是抄书上的呀

XDSoft

最初由 xulpec 发布
[B]XDSoft能否把我上面程序里的错误找出来。出来生成line那几行，其余我是抄书上的呀 [/B]

制作LINE的ARX代码：

AcDbLine *pL=new AcDbLine;
pL->setStartPoint(sPt); // sPt,ePt是起点和终点
pL->setEndPoint(ePt);
PostToMs(pL);  //添加到数据库模型空间

1. 
   
2. [FONT=courier new]
   
3. void PostToMs(AcDbEntity *pEnt)
   
4. {
   
5. AcDbBlockTable *pTable;
   
6. AcDbBlockTableRecord *pRecord; acdbCurDwg()->getBlockTable(pTable, AcDb::kForRead);
   
7. pTable->getAt(ACDB_MODEL_SPACE, pRecord, AcDb::kForWrite);
   
8. pTable->close();
   
9. pRecord->appendAcDbEntity(pEnt);
   
10. pRecord->close();
    
11. pEnt->close();
    
12. }[/FONT]

复制代码

xulpec

entlist = acutBuildList(RTDXF0, "LINE",10, pt2,10, pt3,0)难道不自动生成一条直线吗？

XDSoft

最初由 xulpec 发布
[B]entlist = acutBuildList(RTDXF0, "LINE",10, pt2,10, pt3,0)难道不自动生成一条直线吗？ [/B]

你这行代码，组码后面的应该是11，而不应该是10，现在这样生成的是起点和终点相同的，ACAD不允许。

xulpec

你意思是改为entlist = acutBuildList(RTDXF0, "LINE",11, pt2,11, pt3,0)？还是不行，屏幕上也没有出现直线

XDSoft

最初由 xulpec 发布
[B]你意思是改为entlist = acutBuildList(RTDXF0, "LINE",11, pt2,11, pt3,0)？还是不行，屏幕上也没有出现直线 [/B]

起点组码是10，终点组码是11，你怎么这次都改成11了啊：）

上个帖子说后面的10改11。

entlist = acutBuildList(RTDXF0, "LINE",10, pt2,11, pt3,0);

xulpec

组码在那儿查呀，我一直没弄明白

xulpec

组码我查着了，可是acdbEntMake究竟应该返回什么值呀？
entlist=acutBuildList(RTDXF0,"ENDBLK",0);
if(entlist==NULL)
{acdbFail("建立链表失败!");
return ;
}
status=acdbEntMake(entlist);
acutRelRb(entlist);
if(status!=RTKWORD)
{acdbFail("建立ENDBLK块失败!");
return ;
}
我调试发现status=RTREJ是非怎么回事？

XDSoft

最初由 xulpec 发布
[B]组码在那儿查呀，我一直没弄明白 [/B]

ACAD联机帮助－LISP，VLISP，DXF 字项，DXF 里面就是介绍组码。