请问关于选择集的菜鸟问题

nami

1。请问怎样在程序开始是检查选择集是否存在，比如我在程序开始时定义一个选择集myss,
在程序结束时清空并删除，可是在调试阶段往往中途就停止了，修改后再重新开始的话，显示错误：该选择集已存在
2。比如我定义一个选择集，选择所有在0层上的文本实体，选择后用.count可以查看实体个数（比如有10个），能否查看一下其中某一个item(*)的文本内容

谢先！

bluemoon

对于第一个问题 可以在定义之前加出错处理
on error go to here

here:
'把选择集清空
resume next
你可以试试看

mccad

第一个问题这样处理：

2. 
   
3. Dim MySS As AcadSelectionSet
   
4. On Error Resume Next
   
5. Set MySS = ThisDrawing.SelectionSets.Item("mccad")
   
6. If Err Then
   
7.     Set MySS = ThisDrawing.SelectionSets.Add("mccad")
   
8. Else
   
9.     MySS.Clear
   
10. End If
    

<br /> Dim MySS As AcadSelectionSet<br /> On Error Resume Next<br /> Set MySS = ThisDrawing.SelectionSets.Item("mccad")<br /> If Err Then<br />     Set MySS = ThisDrawing.SelectionSets.Add("mccad")<br /> Else<br />     MySS.Clear<br /> End If<br />

第二个问题：
如果选择集中有10个对象，你可以使用for each ent in sset来遍历选择集中的对象，并查看其中的内容。
也可以使用
for i=0 to sset.count-1
debug.print sset.item(i).TextString
next
来查看文字的内容。

nami

THANK YOU VERY MUCH