[求助]：关于无名组的建立问题

lijiao

2. 
   
3.   [FONT=courier new]
   
4. (defun crt_group (ss / i cs_grp)
   
5.   (cond
   
6.     ((= (type ss) 'PICKSET)
   
7.      (setq ss (ss->list ss))
   
8.      (setq cs_grp (vla-add (vla-get-Groups (caddoc)) "*"))
   
9.      (setq ss (mapcar 'vlax-ename->vla-object ss))
   
10.      (setq ss (vlax-safearray-fill
    
11.                 (vlax-make-safearray 9 (CONS 0 (- (length ss) 1)))
    
12.                 ss
    
13.               )
    
14.      )
    
15.      (vla-AppendItems cs_grp ss)
    
16.      t
    
17.     )
    
18.     (t nil)
    
19.   )
    
20. )
    
21.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun crt_group (ss / i cs_grp)<br />   (cond<br />     ((= (type ss) 'PICKSET)<br />      (setq ss (ss->list ss))<br />      (setq cs_grp (vla-add (vla-get-Groups (caddoc)) "*"))<br />      (setq ss (mapcar 'vlax-ename->vla-object ss))<br />      (setq ss (vlax-safearray-fill<br />                 (vlax-make-safearray 9 (CONS 0 (- (length ss) 1)))<br />                 ss<br />               )<br />      )<br />      (vla-AppendItems cs_grp ss)<br />      t<br />     )<br />     (t nil)<br />   )<br /> )<br />   [/FONT]<br />

上面这段程序是建立无名组的，我一直用得好好的，今天突然发现不能用了，不知何故。
请大家帮我分析一下，是否有什么不完善的地方，多谢了。

Free-Lancer

9  还是用 vla-object 保险

秋枫

用命令调用解决最简单了～一句即可：

2. [font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

[font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

Free-Lancer

最初由 秋枫 发布
[B]用命令调用解决最简单了～一句即可：

2. [font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

[font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

[/B]

高，实在是高

lijiao

最初由 秋枫 发布
[B]用命令调用解决最简单了～一句即可：

2. [font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

[font=courier](vl-cmdf "-group" "create" "*" "" (ssget) "")[/font]

[/B]

好主意，谢谢。
我当时的出发点主要是想避开COMMAND函数。
*************************************************************
不过，我刚试了一下，还是不行，会不会是ACAD有问题了？

aaddff

我也是用一句command来搞定的