选择集内的排序问题(高手都来比试一下)

jkbanana

选择集中的顺序不是固定的，当选择集中的物体被更新时，其顺序排列会变化的。

因此用sset.item(i)来确定物体的顺序似乎不好吧。

还是用handle属性比较可靠。

兰州人

handle属性在实际应用中排序意义不大。

handle的赋值是按实体写入到AutoCAD的顺序排列。

1、在现实工作中，人们理解的内容是从左右到右，从上到下的排序过程。

2、按封闭面域的顺序排序，零部件等。

3、按内容排序，如材料表的序号等排序。

雪山飞狐_lzh

选择集也是一种集合，结果放在选择集、集合或数组中没什么区别

laoliu09

进来就为了支持一下飞狐斑竹，我2年前初学VBA的时候，在明经通道问的第一个问题是："什么是VBA啊？",是飞狐斑竹第一个回答我的！支持！

兰州人

排序组合应用

'不重复排序
Function gg(xm)

    Dim arr, Temp() As String '声明变量
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
   
    r = 0 '初值
    s = UBound(xm) '最大下标
    ReDim arr(s - 1)
    For i = 0 To s '循环
        Temp = Filter(arr, xm(i)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve arr(1 To r)  '定义动态数组大小
            arr(r) = xm(i) '把姓名复制到数组Arr()中。
           ' Debug.Print Arr(r)
          
        End If
    Next
    gg = arr
    Debug.Print
End Function

Sub lll()
  Dim xm1(), abc(), Gggg()
  xm1 = Array(2, 0, 3, 1, 9, 9, 2, 3, 1, 2, 2, 2, 1, 9, 9, 9, 3)
  abc = gg(xm1)
  Debug.Print TypeName(abc)
  Gggg = Bubble_Sort(abc)
  Debug.Print
End Sub

Function Bubble_Sort(Ary)
   Dim aryUBound, i, j
   aryUBound = UBound(Ary)
   Debug.Print aryUBound
   Debug.Print TypeName(Ary)
   For ii = 1 To aryUBound
     Debug.Print Ary(ii)
   Next ii
   Debug.Print
   For i = 1 To aryUBound
     For j = i + 1 To aryUBound
       If Ary(i) > Ary(j) Then
         Swap Ary(i), Ary(j)
       End If
     Next
   Next
   Bubble_Sort = Ary

End Function

Function Swap(a, b)
   Dim tmp
   tmp = a
   a = b
   b = tmp
End Function