Autocad 2011 vba 和外部参照

Question

我使用这个在另一个文件中插入外部 dwg 文件：

Set xrefInserted = ThisDrawing.ModelSpace.AttachExternalReference(refDwgName, refDwgName, insertionPnt, 1, 1, 1, 0, False)
xrefInserted.Update

这是作为外部块插入的，因此我将其绑定到我的绘图：

        For Each tempBlock In ThisDrawing.Blocks
           If tempBlock.IsXRef Then
               If (InStr(1, UCase(tempBlock.name), "MAJ_MATRICE", vbTextCompare)) Then
                    tempBlock.Bind (False)
                   Exit For
               End If
            End If
        Next

现在我想分解它，首先 AcadBlock 似乎没有分解方法，只有 AcadBlockReference 。

所以我寻找参考：

Dim ent As AcadEntity
Dim blockRefObj As AcadBlockReference

    For Each ent In ThisDrawing.ModelSpace
       If TypeOf ent Is AcadBlockReference Then
           If (InStr(1, UCase(ent.name), "MAJ_MATRICE", vbTextCompare)) Then
                Set blockRefObj = ent
                blockRefObj.Explode
                Exit For
           End If
       End If
    Next

问题是

blockRefObj.Explode

失败，它告诉我“无效 -2145386494”。

我调试了代码，我相信问题是因为 AcadBlockReference 仍然是 AcadExternalReference 类型，并且不可能分解外部引用。

如果我在返回绘图（函数调用已结束）后重新运行代码并查找 AcadBlockReference，它现在是 AcadBlockReference 类型，我可以正确分解它。

我似乎无法在绑定它的同一函数、同一执行中执行此操作。

Answer 1

我不明白为什么你不开始使用 thisdrawing.modelspace.insertblock ？
这首先返回一个 acadblockreference 对象！