[求助]：块引用的删除问题

indal

删除块前，应先删除块的引用，怎样查找块的引用？
我只能找到块，可不知它在那被引用！

efan2000

以下是我写的一个函数。   

2. 
   
3.   [FONT=courier new]
   
4. '检查块引用是否存在
   
5. '输入：Name-块名
   
6. '输出：BlockRefExist，TRUE时存在块引用
   
7. Public Function BlockRefExist(ByVal Name As String) As Boolean
   
8.     BlockRefExist = False
   
9.     Dim EntObj As AcadEntity
   
10.    
    
11.     On Error GoTo ErrTrap
    
12.     If Name = "" Then Exit Function
    
13.     For Each EntObj In ThisDrawing.ModelSpace
    
14.        If StrComp(EntObj.ObjectName, "AcDbBlockReference", vbTextCompare) = 0 Then
    
15.           If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then
    
16.              BlockRefExist = True
    
17.              Exit For
    
18.           End If
    
19.        End If
    
20.     Next
    
21.     Set EntObj = Nothing
    
22.     Exit Function
    
23.    
    
24. ErrTrap:
    
25.     If Not (EntObj Is Nothing) Then Set EntObj = Nothing
    
26.     On Error GoTo 0
    
27. End Function
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> '检查块引用是否存在<br /> '输入：Name-块名<br /> '输出：BlockRefExist，TRUE时存在块引用<br /> Public Function BlockRefExist(ByVal Name As String) As Boolean<br />     BlockRefExist = False<br />     Dim EntObj As AcadEntity<br />     <br />     On Error GoTo ErrTrap<br />     If Name = "" Then Exit Function<br />     For Each EntObj In ThisDrawing.ModelSpace<br />        If StrComp(EntObj.ObjectName, "AcDbBlockReference", vbTextCompare) = 0 Then<br />           If StrComp(EntObj.Name, Name, vbTextCompare) = 0 Then<br />              BlockRefExist = True<br />              Exit For<br />           End If<br />        End If<br />     Next<br />     Set EntObj = Nothing<br />     Exit Function<br />     <br /> ErrTrap:<br />     If Not (EntObj Is Nothing) Then Set EntObj = Nothing<br />     On Error GoTo 0<br /> End Function<br />   [/FONT]<br />

XDSoft

最初由 indal 发布
[B]删除块前，应先删除块的引用，怎样查找块的引用？
我只能找到块，可不知它在那被引用！ [/B]

你应该遍历当前空间所有对象，查找INSERT，判断是否引用了测试的块。

因为块可以嵌套定义，所以除了当前空间遍历外，还应该遍历所有的块表记录（其他BLOCK），查看其他BLOCK里面是否引用了测试的块。

indal

查找INSERT
不太理解

XDSoft

最初由 indal 发布
[B]查找INSERT
不太理解 [/B]

单独的BLOCK定义不能显示，只有被AcDbBlockReference 对象（DXF名为INSERT）引用添加到模型空间或者图纸空间中才能显示。

AcDbBlockReference 就是我们用ACAD的INSERT命令插入到图中后的块实体。

indal

明白
多谢！

XDSoft

最初由 indal 发布
[B]明白
多谢！ [/B]

代码写好后，贴论坛来吧，谢谢！

indal

XD,sorry! 试着写，可实在水平有限--剑不如人!呵呵!
AcDbBlockReference 对象（DXF名为INSERT），请问块名为"myblock"的块引用，其DXF组码是什么？

当前空间遍历--怎样判断它是块引用而不是一个圆呢？

XDSoft

最初由 indal 发布
[B]XD,sorry! 试着写，可实在水平有限--剑不如人!呵呵!
AcDbBlockReference 对象（DXF名为INSERT），请问块名为"myblock"的块引用，其DXF组码是什么？

当前空间遍历--怎样判断它是块引用而不是一个圆呢？ [/B]

实体类型的组码是0，看下面：

1. 
   
2. [FONT=courier new]
   
3. (entget (entlast))
   
4. ((-1 . <图元名: 40187030>) [color=blue](0 . "INSERT") [/color](330 . <图元名: 40171cf8>) (5 . "86")
   
5. (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
   
6. "AcDbBlockReference") (2 . "a") (10 0.0 0.0 0.0) (41 . 1.0) (42 . 1.0) (43 .
   
7. 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))[/FONT]

复制代码

如果是园的话，看下面：

1. 
   
2. [FONT=courier new]
   
3. 命令: (entget (entlast))
   
4. ((-1 . <图元名: 40187008>) [color=blue](0 . "CIRCLE") [/color](330 . <图元名: 40171cf8>) (5 . "81")
   
5. (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbCircle")
   
6. (10 279.074 147.572 0.0) (40 . 11.4003) (210 0.0 0.0 1.0))
   
7. [/FONT]

复制代码

indal

VARIANT vtfiltertype,vtfilterdata;
        vtfiltertype.vt=VT_I2;
        vtfiltertype.iVal=0;
        vtfilterdata.vt=VT_BSTR;
        vtfilterdata.bstrVal=_bstr_t("INSERT");
        m_acadselection.SelectOnScreen(vtfiltertype,vtfilterdata);

出错，无效参数FilterType在SelectionOnScreen
long，short，float，double，ushort，ulong，int，uint都试了，就是了错
这是为什么呀？

indal

const VARIANT& FilterType  是什么数据类型呢？
在VBA帮助中是这样的：
FilterType
Integer; input-only; optional
A DXF group code specifying the type of filter to use.

takeeasy

efan2000 发表于 2002-10-25 15:55
以下是我写的一个函数。

收藏一下