选择集的图元能不能按框选的方向排序？

wholin

图形里有三根并排直线，我从右向左框选加到一个选择集，能不能使ent.item(0)是右边的一根线，ent.item(1)是中间的，ent.item(2)是右向左第三根直线？

我现在做的效果是，每次执行宏之后，它们在选择集的位置是不确定的，并不是我由右向左框选的顺序来定的

好像一根根的点选又可以，便我现在是要的是框选多根，一根根的去选太慢了

雪山飞狐_lzh

自己按点排序吧

wy_26

版主帮我看看，我也是同样的问题。

怎么把选择集里的对象交换位置

'排序选择集
Function Sort(SSet As AcadSelectionSet)
    Dim i As Variant
    Dim tmp As AcadEntity
    Dim counter As Variant
   
    counter = SSet.Count - 1
    i = 0
nextLoop:
    While (i < counter)
      If SSet(i).ObjectID > SSet(i + 1).ObjectID Then
       tmp = SSet(i)
       SSet(i) = SSet(i + 1)
       SSet(i + 1) = tmp
       i = 0
       GoTo nextLoop
      End If
      i = i + 1
    Wend
End Function

雪山飞狐_lzh

把图元放在数组里吧