ssAdd(ss, ent)为什么不能添加对象到选择集？

liuyang4740

论坛上的函数如下：在使用过程中，为什么不能添加对象到已有对象的选择集呢？

ssAdd(ss, ent)

  说明:

添加单个对象到指定的选择集中

  函数内容:

Public Sub ssAdd(ss As AcadSelectionSet, ent As AcadEntity)

    Dim objArray(0 To 0) As AcadEntity
    
    Set objArray(0) = ent
    ss.AddItems objArray

End Sub

  参数:

所要添加对象的选择集和所要添加的对象

  示例:

ssAdd mySS, ent

mccad

可以啊，有什么不行的

nickliu71

ThisDrawing.Utility.GetEntity objEnt, Pnt,

objent添加不到选择集中