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

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

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

雪山飞狐_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 编程中关于选择集的问题

发表回复

精选推荐