Code Red > AutoLISP (Vanilla / Visual)

Get Object Reactor

(1/1)

eachy:
First test

--- Quote ---;;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
)
--- End quote ---
Sample

--- Quote ---;;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
)
--- End quote ---

Patrick_35:
Hi

I don't understand what you want ?

A list of object reactors ?


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

@+

Navigation

[0] Message Index