感谢,最后原因找到了
Dim filterType(0) As Short '定义成其他类型直接报错
Dim filterData(0) As Object
TextSet1.SelectOnScreen(filterType, filterData) '选取选择集
第一个参数改成short类型就好了。
另外我再问一下,如果我我只想让用户选一个实体的话,是有别的选择办法,还是说还是用这个选择集,然后自己再过滤呢?比如说只能选一个行文字,一个图形这种的。过滤不好确定到底是选的哪一个。我是想提取选中对象的图层名称。