删除指定名称AcadBlock时出现'Object is referenced'错误的解决办法

出现这个错误的核心原因是：你创建块定义后，已经在模型空间插入了该块的块引用（BlockReference），AutoCAD不允许直接删除被引用的块定义，必须先清除所有对应的块引用，才能删除块本身。

正确的删除步骤 #

1. 遍历模型空间，找到所有属于目标块的块引用并删除
2. 再删除块定义

实现代码示例 #

Sub DeleteLineBlock(blockName As String)
    Dim obj As AcadEntity
    Dim blkRef As AcadBlockReference
    Dim blkDef As AcadBlock
    
    ' 第一步：删除所有该块的引用实例
    For Each obj In ThisDrawing.ModelSpace
        If TypeOf obj Is AcadBlockReference Then
            Set blkRef = obj
            If blkRef.Name = blockName Then
                blkRef.Delete
            End If
        End If
    Next obj
    
    ' 第二步：删除块定义
    On Error Resume Next ' 防止块不存在时触发报错
    Set blkDef = ThisDrawing.Blocks(blockName)
    If Err.Number = 0 Then
        blkDef.Delete
    End If
    On Error GoTo 0
End Sub

' 调用示例
Sub TestDeleteBlock()
    Dim targetBlockName As String
    targetBlockName = "1|3137.34101634953|22059.6018301436|13369.4589738571|18917.7435065279||line"
    DeleteLineBlock targetBlockName
End Sub

额外提示 #

• 如果块引用可能出现在布局空间（而非仅模型空间），需要额外遍历ThisDrawing.Layouts中每个布局的Block对象，删除其中的对应块引用
• 建议在创建块时，将生成的块名记录到Excel单元格或数组中，后续删除时直接调用，避免手动输入冗长的块名称

内容的提问来源于stack exchange，提问作者S.M_Emamian