如何创建某个布局选项卡中所有图元的选择集

gulong2001

    如题:能不能直接设定组码来创建选择集？我看到组码表中410和这个有关，但是用了下没有效果，我看到410 ：APP: 布局选项卡名称；

    前面有个APP， 我找了点资料，APP的意思是只用于应用程序的说明，不懂，有没有朋友解释一下。

    我目前的比较笨的方法就是读取指定名字选项卡下的block来得到他的图元，但显然复杂，有没有哪个组码能够得到某个布局选项卡中所有图元的？

gulong2001

感谢lzh741206斑竹的热心回复：

我目前有两个方法：1是我上面说的，直接得到第i个布局中的第j个图元（layouts.item(i).block.item(j)）

2就是根据lzh741206斑竹提供的，先得到布局中所有的图元，然后判断图元在哪个布局中。

思路简单，但是如果图元多会耗一点点时间，我在想那个组码表中的410是不是不能用啊？

ps:Debug.Print owner.Name改为Debug.Print owner.Layout.Name那和布局选项卡中的布局名字比起来更直观一点。

再次感谢，端午节快乐。

雪山飞狐_lzh

组码67=1,表示图纸空间

Sub tt()
On Error Resume Next
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set ss = ThisDrawing.SelectionSets.Add("Test")
Dim ft(0) As Integer, fd(0)
ft(0) = 67: fd(0) = 1
ss.Select acSelectionSetAll, , , ft, fd
For Each obj In ss
Dim ent As AcadEntity
Set ent = obj
Dim owner As AcadBlock
Set owner = ThisDrawing.ObjectIdToObject(ent.OwnerID)

Debug.Print owner.Name
Next
End Sub

yznang

组码表是个什么东西，有资料吗？