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

烟雨.江南

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

用哪些VBA代码能让选择集中的实体的显示处于被选中状态？ 就是实体上有夹点的状态，如下图：

Kye

dong20030432 发表于 2018-5-24 08:43
VB6也可以的，我两种都用过。不过13楼的方法兼容性稳定性不是很好，数据大时运行较慢。我说的发送命令的 ...

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

dong20030432

Bingo940 发表于 2016-7-6 17:28
你好，我看的使用VLAX类结合VBA可以实现夹点显示的代码。我全部复制到模块里提示：Dim LispCode As New V ...

13楼的方法是要把代码复制到txt里面，另存为vlax.cls文件，再加载到工程里面，然后把选择集显示夹点的过程放在模块中，在程序中调用。

dong20030432

Kye 发表于 2018-5-23 20:45
大佬，请问在VB6中这种方法可实现吗？

VB6也可以的，我两种都用过。不过13楼的方法兼容性稳定性不是很好，数据大时运行较慢。我说的发送命令的方法效率较高，就是命令行要多显示发送过去的命令。

laoliu09

ent.Highlight True

但好像只能亮显，没有出现夹点。

烟雨.江南

laoliu09发表于2007-5-14 18:59:00ent.Highlight True但好像只能亮显，没有出现夹点。

多谢楼上的能回贴。亮显这个我倒是知道的，但我想要用VBA选中一些特定的实体，然后进行一些手动的操作。所以光是亮显还是不能解决问题。

莫名

使用选择集选择指定对象（组），然后可进行手工操作

烟雨.江南

莫名发表于2007-5-15 9:09:00使用选择集选择指定对象（组），然后可进行手工操作

能麻烦版主把代码写出来吗？

烟雨.江南

如果谁知道用LISP能实现这样的效果，也麻烦提供一下示例代码。先谢谢了。

zhuxuhong

;设为选中状态
(defun cc()
(setq ss (ssget))

(sssetfirst ss ss)
)

烟雨.江南

VBA里就真的没办法实现这样的功能吗？请高手们务必指点一二啊！

烟雨.江南

高手，高手们啊，你们都到哪里去了啊？？！！

还是说我这个问题根本不值得一答吗？

dafei315

我也挺想知道这个的~~

大家帮忙看看啊~~