在整个图形中循环

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
标记

copy

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

在整个图形中循环

发表回复

精选推荐