请教高手一个问题

xubin_9705

怎样用程序选中同一个编组中的所有数据

caoyin

(defun lt:group-ename-list (name / lst)
  (vlax-for obj (vla-item (vla-get-groups (vla-get-activedocument(vlax-get-acad-object))) name)
    (setq lst (cons (vlax-vla-object->ename obj) lst))
  )
  (reverse lst)
)

;;(lt:group-ename-list "组名")

xubin_9705

那怎么查找他的组名呢