[求助]：AX方式的选择集怎么生成呢?

luoyaya

(setq et (vla-get-activedocument (vlax-get-acad-object)))
(setq *MODELSPACE* (vla-get-modelspace et ))
(setq SSets (vla-get-SelectionSets et ))

(setq i -1)
(setq ent (vlax-safearray-fill
                              (vlax-make-safearray vlax-vbobject (cons 0 0))
                                      (vlax-ename->vla-object (ssname ss (setq i (1+ i))))
                            ))
(setq as (vla-Add ssets ent))
我用上面的这个就是不行,不 知道VLA里的选择集怎么生成,查过HELP里的好像是用ADD方法加的呀,可就是不行

aeo

先给个名字.
http://www.xdcad.net/forum/showthread.php?s=&threadid=121490

luoyaya

看懂了一点
(setq ss (ssget))

(vl-load-com)
(setq VLA-ACDOC (vla-get-activedocument (vlax-get-acad-object)))
(setq *MODELSPACE* (vla-get-modelspace VLA-ACDOC))
(setq SSets (vla-get-SelectionSets VLA-ACDOC))
(setq i -1)
(setq ent (vlax-make-variant "e" vlax-vbString))
(setq as (vla-Add ssets ent))
(repeat (sslength ss)
                 (setq es (vla-AddItems as
                            (vlax-safearray-fill
                              (vlax-make-safearray vlax-vbobject (cons 0 0))
                            (vlax-ename->vla-object (ssname ss (setq i (1+ i))))
                              )
                            )
                       )
                 )
现在改成这样了,不知道为什么safearray不能创建,请多多指教

aeo

还是没名字：选集的名字。

先找到他的父亲:就是你的SSets

(setq newsset (vla-add ssets "NEW_SSET")) ;  "NEW_SSET"就为名.

而newsset只是vla返回的"对象名称"(vla-object)
就是说选集"NEW_SSET"的对象名称为newsset.

但是要干什么事情应该用这newsset,因为你用的是vla的方法，就要把对象转成vla-object.

然后可以把你选中的实体往里加了.(先要转换成variant)

luoyaya

哦,差不多懂了,那再问一下,
要转成VARIANT这样是哪里错了:
(vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 0)) (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))
每次都说初始化列表无效
加实体的话是不是用additems