选择集问题求助！

yu-gn

For Each pickedobjs In ssetobj
retpt = pickedobjs.InsertionPoint
rettxt = pickedobjs.TextString
Write #2, rettxt, retpt(0), retpt(1), retpt(2)
Next
SSETOBJ是某土层上某范围内的所有TXT,我用上面代码将SSETOBJ中的每一个TEXT写入文本文件，为什么总是有遗漏呢（有TXT没被写入文件），是不是我上面遍历选择集的代码有什么问题？？

mccad