[求助]请教auto cad vba 编程中关于选择集的问题

ygswh

请教大侠们，如果创建了一个选择集，并且选择了若干图形对象在这个选择集当中，如果要判断在这个选择集中总共有多少对象，应该用什么办法？

雪山飞狐_lzh

count属性

rockrise

如果要把选择集中的对象全部显示出来,应该用什么方法?

tianyunxuan

  Sub Example_PickfirstSelectionSet()
      ' 这个范例列出选择优先选集中的所有对象.
      ' 在执行这个范例之前, 请先在作用中图形
      ' 建立一些对象. 接着选取这些对象, 当前在作用中图形上选取的对象
      ' 会由选择优先选集返回.

      Dim pfSS As AcadSelectionSet
      Dim ssobject As AcadEntity

      Dim msg As String
      msg = vbCrLf

      Set pfSS = ThisDrawing.PickfirstSelectionSet
      For Each ssobject In pfSS
          msg = msg & vbCrLf & ssobject.ObjectName
      Next ssobject
      MsgBox "选择优先选集含有: " & msg

  End Sub