Topic: Get Object Reactor

[eachy]

First test

;;Get Object Reactor by 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
)

Sample

;;test object is a member of groups
(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
)

[Patrick_35]

Hi

I don't understand what you want ?

A list of object reactors ?

Code: [Select]

(setq lst_obj (mapcar 'vlr-owners (cdr (car (vl-remove-if-not '(lambda (x) (eq (car x) :VLR-Object-Reactor)) (vlr-reactors))))))
@+