遍历整个图形

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

事实上，有人告诉我，这是一种更好的方法：通过对象（图形）循环，而不是实体，实体就是一切。我必须同意-->
标记

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

遍历整个图形

发表回复

精选推荐