[编程申请]：关于实体和组

小狼

我在编完组后想把新增的实体加入组中，但又不想查组名。请问怎么能通过实体获得实体所属组得组明呢？

eachy

最初由 小狼 发布
[B]我在编完组后想把新增的实体加入组中，但又不想查组名。请问怎么能通过实体获得实体所属组得组明呢？ [/B]

2. 
   
3. (defun entGroup        (ent / groupname)
   
4.   (setq ehandle (vla-get-handle (vlax-ename->vla-object ent)))
   
5.   (vlax-for group
   
6.             (vla-get-groups
   
7.               (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)
   
8.             )
   
9.     (vlax-for obj group
   
10.       (if (= (vla-get-handle obj) ehandle)
    
11.         (setq groupname (vla-get-name group))
    
12.       )
    
13.     )
    
14.   )
    
15.   groupname
    
16. )
    

<br /> (defun entGroup        (ent / groupname)<br />   (setq ehandle (vla-get-handle (vlax-ename->vla-object ent)))<br />   (vlax-for group<br />             (vla-get-groups<br />               (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)<br />             )<br />     (vlax-for obj group<br />       (if (= (vla-get-handle obj) ehandle)<br />         (setq groupname (vla-get-name group))<br />       )<br />     )<br />   )<br />   groupname<br /> )<br />

aeo

最初由 eachy 发布
[B]
(defun entGroup        (ent / groupname)
  (setq ehandle... [/B]

2. 
   
3. (defun entGroup        (ent / groupname)
   
4.   (setq ehandle (vla-get-handle (vlax-ename->vla-object ent)))
   
5.   (vlax-for group
   
6.             (vla-get-groups
   
7.               (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)
   
8.             )
   
9.     (vlax-for obj group
   
10.       (if (= (vla-get-handle obj) ehandle)
    
11.         (setq groupname (cons(vla-get-name group)groupname))
    
12.       )
    
13.     )
    
14.   )
    
15.   groupname
    
16. )
    

<br /> (defun entGroup        (ent / groupname)<br />   (setq ehandle (vla-get-handle (vlax-ename->vla-object ent)))<br />   (vlax-for group<br />             (vla-get-groups<br />               (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)<br />             )<br />     (vlax-for obj group<br />       (if (= (vla-get-handle obj) ehandle)<br />         (setq groupname (cons(vla-get-name group)groupname))<br />       )<br />     )<br />   )<br />   groupname<br /> )<br />

要得到全部的.


这样写可能要快一点:

2. 
   
3. (defun entGroup (ent / a  name)
   
4.   (foreach x (entget ent)
   
5.    (if(and(= 330(car x))
   
6.        (= "AcDbGroup"(vla-get-objectname(setq a(vlax-ename->vla-object(cdr x)))))
   
7.       )
   
8.       (setq name(cons(vla-get-name a)name))
   
9.   ))name
   
10. )
    

<br /> (defun entGroup (ent / a  name)<br />   (foreach x (entget ent)<br />    (if(and(= 330(car x))<br />        (= "AcDbGroup"(vla-get-objectname(setq a(vlax-ename->vla-object(cdr x)))))<br />       )<br />       (setq name(cons(vla-get-name a)name))<br />   ))name<br /> )<br />

小狼

谢谢，还请问一下，用什么方法可以把，组中实体做到选择集里面呢？