请教：如何把VBA的SelectionSet置为当前？

tengteb

　　我有个程序，要把筛选后的图元（数比较大，可能达几千个）置为当前选中状态，现在用的方法是：先用ssadd创建一个空选择集，再一个一个地加入其中，然后用sssetfirst实现。若图元数量少（几百以内）没什么问题，数量大时就会很慢。
; C; D0 I; Q1 E3 I: j2 l, `3 W　　我的优化方案是：用VBA的SelectionSet来创建选择集，再用AddItems方法可一次性加入全部需要的图元（我认为这样可能会快很多），然后SelectionSet置为当前。
& K3 z; B) ]- Q; _. d5 F% S　　现在的问题就是：有没有办法将VBA的SelectionSet置为当前？根据资料ActiveSelectionSet属性是可读写的，但没有vla-put-ActiveSelectionSet函数。还有就是有没有办法将VBA的SelectionSet直接转换为LISP对象，然后用sssetfirst来实现？
9 ]" h4 N7 c( g& |  @/ p( T; b- @　　不知道论坛中有没有高手能指点一下，谢谢啦！
- ?" z) E8 `+ Q: x% F% m$ n+ p

tengteb

) J  s6 e$ w1 p. w3 a
我以前看到的中文版资料不准确，ActiveSelectionSet属性不是可读写的，而是只读的。
& y4 W7 I# c) K* N/ A8 b* z英文原版如下：
ActiveSelectionSet
SelectionSet object; read-only
: Q' J- h0 V0 ?1 @# j1 GThe active selection set for the drawing.

tengteb

　　我后来又计时测试了一下，发现速度慢不是由于用ssadd一个一个地加入选择集，而时间主要是消耗在(sssetfirst nil nil)和(sssetfirst nil SS)两处。当之前选择的对象很多时，前一句消耗大量的时间；若筛选后要选中的对象很多时，后一句会消耗大量的时间。
4 C1 t5 X+ Y! \* }" ^" ?+ Q　　可能有人会说只要(sssetfirst nil SS)如何？经我的简单测试，不加(sssetfirst nil nil)时速度更慢。
　　不知道论坛有没有人对这个函数有过深入的研究？

woaishuijia

基本上死路一条