如何使用VBA统计图形中的块数量？

qiush1234

刚接触VBA，想使用VBA统计出图中的块的调用次数，以及各个块的坐标值！

望各位大神提点！~

mikewolf2k

以下是我一个遍历块的程序，供参考。
Sub RefBind()
    Dim BlockObj As AcadBlock
    Dim I As Integer
    For Each BlockObj In ThisDrawing.Blocks
        If BlockObj.IsXRef Then
           BlockObj.Bind False
           I = I + 1
        End If
    Next
    ActiveDocument.Utility.Prompt vbLf & I & " external reference(s) bound" & vbCr

End Sub