[求助]怎么用VBA实现选择集中的实体处于被选中状态？

烟雨.江南 · 发表于 2007-5-14 17:28:00

如题。我想在VBA程序中实现选中选择集中的实体的功能，就象用鼠标在屏幕上选中实体那样的效果，代码应该怎么写呢？先按一定的筛选条件，把实体放到一个选择集SelectionSet里，然后想让这些实体在屏幕上显示为被选中状态。自己翻了好长时间帮助文件，也没找到解决的方法。特来求助，希望能有高人给解答一下。
用哪些VBA代码能让选择集中的实体的显示处于被选中状态？就是实体上有夹点的状态，如下图：

登录/注册后可看大图

Kye · 发表于 2018-5-24 13:21:00

谢谢大佬指点，vb6读取图形数据很慢，要是能用lisp去读取，再用Vb6去计算，速度会快点。想用vb中坐标去实现(ssget "_WP" pt_list '((0 . "*TEXT")))将文本传回vb中，想一想这个要求都很变态。用vb6吧，acadSSet.Select 0, pt1, pt2, FilterType:=arrGroupCode, FilterData:=arrDataValue读取速度居然0.02秒，如果读取800个表格单位，结果真悲催