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

ygswh 发表于 2007-3-22 23:40:00

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

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

雪山飞狐_lzh 发表于 2007-3-23 10:49:00

count属性

rockrise 发表于 2007-3-28 17:11:00

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

tianyunxuan 发表于 2007-5-26 22:46:00

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

查看完整版本: [求助]请教auto cad vba 编程中关于选择集的问题