[求助]如何用lisp创建未命名编组

fengjian11

创建编组时，只有打开对话框才能创建未命名的编组，输入-g不能创建，哪位高手指点下

Gu_xl

2. 
   
3. (defun gxl-Sel-SS->AX:Array (ss / c r en)
   
4.   (vl-load-com)
   
5.   (setq c -1)
   
6.   (repeat (sslength ss)
   
7.     (setq en (ssname ss (setq c (1+ c))))
   
8.     (if (entget en)
   
9.     (setq r (cons en r))
   
10.       )
    
11.     )
    
12.   (setq r (reverse r))
    
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. );;;Creat Unname Group
    
21. 
    
22. (vla-AppendItems (vla-add (vla-get-Groups (vla-get-activedocument(vlax-get-acad-object))) "*") (gxl-Sel-SS->AX:Array (ssget)))

<br /> (defun gxl-Sel-SS->AX:Array (ss / c r en)<br />   (vl-load-com)<br />   (setq c -1)<br />   (repeat (sslength ss)<br />     (setq en (ssname ss (setq c (1+ c))))<br />     (if (entget en)<br />     (setq r (cons en r))<br />       )<br />     )<br />   (setq r (reverse r))<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 /> );;;Creat Unname Group <br /> <br /> (vla-AppendItems (vla-add (vla-get-Groups (vla-get-activedocument(vlax-get-acad-object))) "*") (gxl-Sel-SS->AX:Array (ssget)))

fengjian11

自己回复一个，不要沉底

cnks

(command "-group"
               ""
               "*"
               ""
               ss
               ""
      )

Gu_xl

(setq groupobj(vla-add (vla-get-Groups (vla-get-activedocument(vlax-get-acad-object))) "*"))

fengjian11

谢谢，我这就试一下

skg123

Gu_xl 发表于 2010-11-29 11:43

感谢 G版主，测试可以用。

碎玉す全瓦

G版这个真好，之前要批量生成带编组的图元，特别的慢，用了G版的这个，秒成。

gowww

建未命名编组