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

&nbsp; Sub Example_PickfirstSelectionSet()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 这个范例列出<font color="#ffffff" style="BACKGROUND-COLOR: #5c5c5c;">选择</font>优先选集中的所有对象.<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 在执行这个范例之前, 请先在作用中图形<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 建立一些对象. 接着选取这些对象, 当前在作用中图形上选取的对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 会由<font color="#ffffff" style="BACKGROUND-COLOR: #5c5c5c;">选择</font>优先选集返回.<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim pfSS As AcadSelectionSet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim ssobject As AcadEntity<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim msg As String<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msg = vbCrLf<br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set pfSS = ThisDrawing.PickfirstSelectionSet<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each ssobject In pfSS<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; msg = msg &amp; vbCrLf &amp; ssobject.ObjectName<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next ssobject<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "<font color="#ffffff" style="BACKGROUND-COLOR: #5c5c5c;">选择</font>优先选集含有: " &amp; msg<br/><br/>&nbsp; End Sub
页: [1]
查看完整版本: [求助]请教auto cad vba 编程中关于选择集的问题