急!!!请教一个框选问题

bluemoon

请问在VBA中如何实现用框选的方式把多个对象加入到一个选择集中?

mccad

Sub Example_SelectOnScreen()
    ' 该例子通过提示用户选定对象来加入选择集。
   
    ' 创建选择集
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")
   
    ' 提示用户在屏幕上选择对象。
    ssetObj.SelectOnScreen
   
End Sub

zzlzz

也来问一下：谁能告诉我，加入的实体在选择集中的排列顺序？比如，最左上角的实体在选择集中是第几个？我注意到好像是和选择方式（匡选或交叉选择等）有关，但不知道具体规律。

efan2000

zzlzz

实证了一番，斑竹说得不错。
用点选方法选择的话，选择集中实体的顺序是按照点击顺序；框选或交叉选择则是以实体生成顺序。容易忽略的是，用f方式选择实体时，与框选和交叉选择加入实体的顺序是不一样的。