nami 发表于 2003-6-9 15:22:00

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

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

谢先！

bluemoon 发表于 2003-6-9 17:32:00

对于第一个问题

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

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

mccad 发表于 2003-6-9 20:20:00

可以这样

第一个问题这样处理：

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

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

nami 发表于 2003-6-10 08:59:00

THANK YOU

THANK YOU VERY MUCH
页: [1]
查看完整版本: 请问关于选择集的菜鸟问题