[求助]：如何过实体找到所在的组名

mn1k

用vlisp遍历dwg图查找实体时,如果实体位于组内,如何能找到该实体所在的组名?

carrot1983

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=864
eachy的函数：

;;获取实体的永久反应器
(defun get_object_reactor (e / elst lst etlst)
  (setq elst (entget e))
  (if (and (assoc 102 elst)
   (= (cdr (assoc 102 elst)) "{ACAD_REACTORS")
      )
    (progn
      (setq lst (cdr (member '(102 . "{ACAD_REACTORS") elst)))
      (while (= (caar lst) 330)
(setq etlst (cons (cdar lst) etlst))
(setq lst (cdr lst))
      )
    )
  )
  etlst
)


  示例:

;;测试实体所属组名
(defun test (lst / g)
  (foreach item (mapcar 'vlax-ename->vla-object lst)
    (if (= (vla-get-objectname item) "AcDbGroup")
      (setq g (cons (vla-get-name item) g)
      )
    )
  )
  g
)