[求助]VBA的选择集怎么实现如下操作

robbin840311 · 发表于 2010-4-26 20:59:00

题目一句话不能说明要表达的意思，代码如下：

Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add(Now)

sset.Clear
sset.Select acSelectionSetAll

如何将sset传递给CAD以作后期操作呢？传递给如附件图片中的“当前选择“

学至于行 · 发表于 2010-4-26 21:43:00

遍历

雪山飞狐_lzh · 发表于 2010-4-26 22:17:00

这个VBA干不了，选择集这块com做的很不好，没办法像lisp一样直接给其他命令调用

有间接的方法，不过要借助lisp，而且很慢

所以，不如直接用lisp实现

VBA，Autodesk自己都放弃掉了，哎

wuyunpeng888 · 发表于 2010-4-26 22:40:00

应该说是微软转向了

robbin840311 · 发表于 2010-4-27 13:18:00

版主，请问使用lisp如何实现呢？

账号		自动登录	找回密码
密码			注册