社区 › VB › 在整个图形中循环

Jeff_M 发表于 2007-4-4 11:19:45

戴夫，这很有道理。非常感谢你，我要试试，然后我会发布结果
标记

Jeff_M 发表于 2007-4-4 18:09:00

Dave，真是太棒了，正是我想要的，谢谢你Mark

Jeff_M 发表于 2007-4-5 06:27:16

马克，
虽然这些方法中的任何一种都能奏效，但杰夫和查克向你展示的将是一种更快、更有效的方式来完成你想做的事情。他们建议通过布局查找块引用，而不是搜索图形中的每个实体以查找块引用。快得多！

Jeff_M 发表于 2007-4-5 09:19:21

是的，我同意，我感谢你的帮助。然而，有人可能会说sset方法更快。不管怎样，它工作得很好，而且不是#039；一点也不慢。不过，我会记住这个提示，以备将来参考。谢谢

Jeff_M 发表于 2007-4-5 09:45:09

实际上，有人建议我，这将是一种更好的方法：通过对象（图形）循环，而不是实体。我必须同意---&gt
标记Dim Layout As AcadLayout
Dim Obj As Object
For Each Layout In ThisDrawing.Layouts
   For Each Obj In Layout.Block
      If TypeOf Obj Is AcadBlockReference Then
         ListBox1.AddItem (Obj.Name)
      End If
   Next Obj
Next Layout

查看完整版本: 在整个图形中循环