求救：CAD块一问

Luster

在VBA中我想察看某一个块名的块引用是否存在，如果不存在，则删除这个块
请问得怎么编制程序。
我编了一个，但是说类型不对

'这个函数的功能是删除当前图纸空间中没有引用的块
'也就是曾经作过块，但是插入的实体被删除了，所以
'要把这个块删掉，否则下次做块将把以前的实体保留在
'块中
Public Sub DelBlock(ByVal blkName As String)

Dim blkObj As AcadBlock
Dim entobj As AcadBlockReference
Dim foundobj As Boolean
foundobj = False
blkName = Trim(blkName)

For Each blkObj In ThisDrawing.Blocks
    If blkObj.ObjectName = "AcDbBlockTableRecord" And blkObj.Name = blkName Then
        For Each entobj In ThisDrawing.ModelSpace
            If entobj.ObjectName = "AcDbBlockReference" And entobj.Name = blkName Then
                foundobj = True
            End If
        Next
        If foundobj = False Then
            ThisDrawing.SendCommand "purge" & vbCr & "b" & vbCr & blkName & vbCr & "y" & vbCr & "y" & vbCr
        End If
    End If
Next
End Sub

efan2000

在块集合中块的对象名称是AcDbBlock，而不是AcDbBlockTableRecord，这是ARX中的用法。
判断一个块的块引用是否存在，可以有两种方法。
一是遍历模型空间或者图纸空间，检查块引用对象是否存在。
二是创建一选择集，使用过滤机制选择块的块引用对象，如果返回的数目是零，那么块引用不存在。

Luster

如果没有，就不必做了
要是有块纪录，而且没有块引用
我才用purge命令把块纪录删除
因为如果下次我再做相同名字的块
系统会把上次的块中的实体也保留
这样，块中会多很多东西
而不象手动操作时进行替换

zxj_76

efan2000

判断块记录只要通过枚举块集合，检查块的名称是否与给定的名称相同就可以了，何必如此麻烦。

zhuqi75

就是说你的目的是删除无用的块名吧？
给我什么好处，亲一下？

zhuqi75

efun2000 的方法我完全赞同。

Luster

不过男的就免了，哥们没这方面的爱好！