关于group组的一个问题

changyiran

如何不用group命令做到新建一个组并能向该组中添加图元对象，请大家指教。

Gu_xl

1. (if (setq s (ssget))
   
2.   (progn
   
3.     (repeat (setq n (sslength s))
   
4.       (setq r (cons (ssname s (setq n (1- n))) r))
   
5.     )
   
6.     (vla-AppendItems
   
7.       (vla-add (vla-get-groups
   
8.                  (vla-get-ActiveDocument (vlax-get-acad-object))
   
9.                )
   
10.                "*" ;;创建无名组
    
11.       )
    
12.       (vlax-make-variant
    
13.         (vlax-safearray-fill
    
14.           (vlax-make-safearray
    
15.             vlax-vbObject
    
16.             (cons 0 (1- (length r)))
    
17.           )
    
18.           (mapcar 'vlax-ename->vla-object r)
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23. )

(if (setq s (ssget))<br />   (progn<br />     (repeat (setq n (sslength s))<br />       (setq r (cons (ssname s (setq n (1- n))) r))<br />     )<br />     (vla-AppendItems<br />       (vla-add (vla-get-groups<br />                  (vla-get-ActiveDocument (vlax-get-acad-object))<br />                )<br />                "*" ;;创建无名组<br />       )<br />       (vlax-make-variant<br />         (vlax-safearray-fill<br />           (vlax-make-safearray<br />             vlax-vbObject<br />             (cons 0 (1- (length r)))<br />           )<br />           (mapcar 'vlax-ename->vla-object r)<br />         )<br />       )<br />     )<br />   )<br /> )

changyiran

Gu_xl 发表于 2014-12-17 09:10

g版神人呐，非常感谢。

自贡黄明儒

Gu_xl 发表于 2014-12-17 09:10

是不是再来个entmake的？

zilong136

Gu_xl 发表于 2014-12-17 09:10

很强，
自已写个快捷键就OK了，
能不能写一个组加实体对象的代码？