求助：PickfirstSelectionSet.AddItems为什么无效？？

zxfzxf

求助：PickfirstSelectionSet.AddItems为什么无效？？

         是不是只能通过鼠标才可以添加对象，而使用additems无效？？

mccad

不行。先赋给变量后再加。

zxfzxf

能不能说详细一点呀

mccad

首先请不要重复发贴。
对象模型要看清楚，里面也有例子参考。
对于PickfirstSelectionSet它只是个属性，怎么能把它做为对象呢？

2. Sub Example_PickfirstSelectionSet()
3.     ' 本示例列出了先选定的选择集中的所有对象。
4.     ' 在运行本示例前，请先在图形中创建一些对象，并选定这些对象。
5.             
6.     Dim pfSS As AcadSelectionSet
7.     Dim ssobject As AcadEntity
8.     Dim msg As String
9.     msg = vbCrLf
10.    
11.     Set pfSS = ThisDrawing.PickfirstSelectionSet
12.     For Each ssobject In pfSS
13.         msg = msg & vbCrLf & ssobject.ObjectName
14.     Next ssobject
15.     MsgBox "选定的对象包含有: " & msg
16.    
17. End Sub

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