社区 › VBA/VB/ActiveX/API 编程技术 › 如何使用VBA统计图形中的块数量？

qiush1234 发表于 2015-10-12 14:50:36

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

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

望各位大神提点！~

mikewolf2k 发表于 2015-10-12 16:38:46

以下是我一个遍历块的程序，供参考。
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

查看完整版本: 如何使用VBA统计图形中的块数量？