ssAdd(ss, ent)为什么不能添加对象到选择集？
<p>论坛上的函数如下：在使用过程中，为什么不能添加对象到已有对象的选择集呢？</p><p>ssAdd(ss, ent)<br/><br/></p><div class="FunctionBox"> 说明:</div><br/>添加单个对象到指定的选择集中<br/><br/><div class="FunctionBox"> 函数内容:</div><br/>Public Sub ssAdd(ss As AcadSelectionSet, ent As AcadEntity)<br/><br/> Dim objArray(0 To 0) As AcadEntity<br/> <br/> Set objArray(0) = ent<br/> ss.AddItems objArray<br/><br/>End Sub<br/><br/><div class="FunctionBox"> 参数:</div><br/>所要添加对象的选择集和所要添加的对象<br/><br/><div class="FunctionBox"> 示例:</div><br/>ssAdd mySS, ent <br/> 可以啊，有什么不行的 <p>ThisDrawing.Utility.GetEntity objEnt, Pnt,</p><p>objent添加不到选择集中</p>
页:
[1]