[求助]：请问怎样 删除 图块

lvqingli

已知用命令：
ads_command( RTSTR, "BLOCK",  RTSTR, "TextBlock", RTSTR, "0,0", RTPICKS, bss, RTSTR, "", RTNONE );  

请问怎么删除 TextBlock 这个图块

谢谢！

XDSoft

最初由 lvqingli 发布
[B]已知用命令：
ads_command( RTSTR, "BLOCK",  RTSTR, "TextBlock", RTSTR, "0,0", RTPICKS, bss, RTSTR, "", RTNONE );  

请问怎么删除 TextBlock 这个图块

谢谢！ [/B]

1、用 purge 命令，对于符号表层、线型、字型、块等等，只能用ACAD的命令PURGE删除掉没有被当前数据库引用的对象。

2、使用ARX，判断是否被引用，如没有，可以用AcDbObject::erase(..)删除掉。

yousuika

[B]已知用命令：
ads_command( RTSTR, "BLOCK",  RTSTR, "TextBlock", RTSTR, "0,0", RTPICKS, bss, RTSTR, "", RTNONE );  

请问，如果用 acedCommand(RTSTR, "Purge",RTSTR, "Blocks", RTSTR, "*", RTSTR, "No",RTNONE) 命令删除了无用图块，在AutoCAD的文本窗口返回有 “deleting block XXXXXXX”等等信息，
请教，如何使这些信息不显示？能用某个系统变量实现吗？

XDSoft

最初由 yousuika 发布
[B][B]已知用命令：
ads_command( RTSTR, "BLOCK",  RTSTR, "TextBlock", RTSTR, "0,0", RTPICKS, bss, RTSTR, "", RTNONE );  

请问，如果用 acedCommand(RTSTR, "Purge",RTSTR, "Blocks", RTSTR, "*", RTSTR, "N... [/B]

既然用ARX, 那么就直接用ARX的方法去删除无用的块, ACAD的命令也是通过ARX方法做的.

你可以先用:

2. [font=courier]
   
3. AcDbDatabase::purge Function Acad::ErrorStatus
   
4. 
   
5. purge(
   
6. 
   
7. AcDbObjectIdArray& ids);
   
8. 
   
9. ids Input array of object ID entities of objects
   
10. 
    
11. This function searches through the database to see
    
12. if there are any hard references to objects with object ID entities in the
    
13. ids array. If any such objects are found, their object ID entities are
    
14. removed from the ids array. So, when this function returns, the ids array
    
15. will contain only object ID entities of objects that are not currently hard-
    
16. referenced and thus can safely be erased.
    
17. 
    
18. 
    
19. Returns Acad::eOk if the operation is successful.
    
20. 
    
21. [/font]

[font=courier]<br /> AcDbDatabase::purge Function Acad::ErrorStatus<br /> <br /> purge(<br /> <br /> AcDbObjectIdArray& ids);<br /> <br /> ids Input array of object ID entities of objects <br /> <br /> This function searches through the database to see<br /> if there are any hard references to objects with object ID entities in the <br /> ids array. If any such objects are found, their object ID entities are <br /> removed from the ids array. So, when this function returns, the ids array <br /> will contain only object ID entities of objects that are not currently hard-<br /> referenced and thus can safely be erased.<br /> <br /> <br /> Returns Acad::eOk if the operation is successful.<br /> <br /> [/font]

你可以把你的块的ID加入一个AcDbObjectIdArray数组里面, 调用上面的方法, 如果有INSERT实体引用这个块,那么ID回从数组中移出.
执行后, 判断数组的长度,如果大于0, 那么说明这个块没有被INSERT引用, 那么你就可以用AcDbObject::erase(..) 安全的删除这个块定义了.

XDSoft

下面是删除一个层定义的函数,你可以参考下,在ACAD里面,删除一个无用的层,必须通过PURGE命令做. 下面是ARX代码的实现.

下面的函数DelLayer你可以定义成一个命令, 删除输入的层名指定的层定义(如果没有实体引用输入的层名的层记录)

1. [font=courier]
   
2. #include "StdAfx.h"
   
3. #include "StdArx.h"
   
4. #include <dbsymtb.h>// This is command 'DELLAYER'
   
5. void DelLayer()
   
6. {
   
7.     char pcBuffer [133] ;   
   
8.     if (acedGetString (0, "\nLayer name to delete: ", pcBuffer) == RTNORM) {
   
9.         if (strcmp (pcBuffer, "0") == 0 ) {
   
10.             acutPrintf ("\nCannot erase layer (0) !") ;
    
11.             return ;
    
12.         }
    
13.         struct resbuf result ;
    
14.         acedGetVar ("CLAYER", &result) ;
    
15.         if (stricmp (pcBuffer, result.resval.rstring) == 0 ) {
    
16.             free (result.resval.rstring) ;
    
17.             acutPrintf ("\nCannot erase current layer !") ;
    
18.             return ;        
    
19.         }
    
20.         free (result.resval.rstring) ;
    
21.         AcDbLayerTable *pLayerTable =NULL ;
    
22.         if (acdbHostApplicationServices()->workingDatabase()->
    
23.               getSymbolTable (pLayerTable, AcDb::kForRead)== Acad::eOk ) {
    
24.             if (pLayerTable->has (pcBuffer)) {
    
25.                 AcDbObjectId id ;
    
26.                 pLayerTable->getAt (pcBuffer, id) ;
    
27.                 AcDbObjectIdArray idArray ;
    
28.                 idArray.append (id) ;
    
29.                 if (acdbHostApplicationServices()->
    
30.                       workingDatabase()->purge (idArray) == Acad::eOk) {
    
31.                     if (idArray.contains (id) ) {
    
32.                         AcDbLayerTableRecord *pLayer ;
    
33.                         pLayerTable->getAt (pcBuffer,pLayer, AcDb::kForWrite) ;
    
34.                         pLayer->erase (Adesk::kTrue) ;
    
35.                         pLayer->close () ;
    
36.                         acutPrintf ("\nLayer (%s)deleted !", pcBuffer) ;
    
37.                     }
    
38.                     else {
    
39.                         acutPrintf ("\nLayer (%s) is referenced !", pcBuffer) ;
    
40.                     }
    
41.                 }
    
42.                 else {
    
43.                     acutPrintf ("\nLayer (%s) cannot be deleted !", pcBuffer) ;
    
44.                 }
    
45.             }
    
46.             else {
    
47.                 acutPrintf ("\nLayer (%s) does not exist !",pcBuffer) ;
    
48.             }
    
49.             pLayerTable->close () ;
    
50.         }
    
51.     }
    
52. }
    
53. [/font]
    

复制代码

yousuika

谢谢晓东。对这个块也用了AcDbObject::erase，但是在CAD中发现还有块名残留，所以才加上的purge，我不知道这是什么原因，请赐教。

XDSoft

最初由 yousuika 发布
[B]谢谢晓东。这个程序的目的是在做一个块之前，先Preview这个块，所以先做了一个块，Preview后把他删除，我看程序也对这个块用了AcDbObject::erase，但是在CAD中发现还有每次Preview产生的块名，所以才加上的purge，我... [/B]

你erase后, 用 ads_regen 重新生成下图形. 看看.

yousuika

最初由 XDSoft 发布
[B][QUOTE]最初由 yousuika 发布
[B]谢谢晓东。这个程序的目的是在做一个块之前，先Preview这个块，所以先做了一个块，Preview后把他删除，我看程序也对这个块用了AcDbObject::erase，但是在CAD中发现还有每次P... [/B]

这样做了：        acedCommand(RTSTR, "regen", RTNONE);
但是还不行。

XDSoft

最初由 yousuika 发布
[B][QUOTE]最初由 XDSoft 发布
[B][QUOTE]最初由 yousuika 发布
[B]谢谢晓东。这个程序的目的是在做一个块之前，先Preview这个块，所以先做了一个块，Preview后把他删除，我看程序也对这个块用了AcDbOb... [/B]

你把你的 删除图块的代码完整贴论坛来吧. 大家看看.

另外你说的 删除后, 还能查看到, 是什么意思? 删除一个图块的前提是没有INSERT实体引用这个图块. 如果有INSERT实体引用这个块, 你必须先删除掉所有引用这个块定义的INSERT实体后,在删除这个块定义.

另外, 你测试下erase(..)的返回值, 看看是否为eOk

chxmhsd

最初由 yousuika 发布
[B][B]已知用命令：
ads_command( RTSTR, "BLOCK",  RTSTR, "TextBlock", RTSTR, "0,0", RTPICKS, bss, RTSTR, "", RTNONE );  
请问，如果用 acedCommand(RTSTR, "Purge",RTSTR, "Blocks", RTSTR, "*", RTSTR, "N... [/B]

acedCommand (RTSTR,"CMDECHO",RTSTR,"0",0);
CMDECHO变量是命令回显控制。
关闭命令回显可以提高命令执行速度。