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

戴夫，这的确很有道理。非常感谢
我将尝试一下，然后我会公布结果。
标记

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


戴夫，
效果很好，正是我要找的
谢谢
马克

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

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

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


是的，我同意这一点，我感谢您的帮助。然而，有些人可能会说sset方法更快。无论哪种方式，它都很好，而且一点也不慢。不过，我会记住那个提示以供将来参考
谢谢

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


事实上，有人告诉我，这是一种更好的方法：通过对象（图形）循环，而不是实体，实体就是一切。我必须同意-->
标记
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
页: 1 [2]
查看完整版本: 遍历整个图形