Topic: Duplicate Reactors....Arghhhh!!!

[Ron Heigh]

Is there a function to ensure that a reactor isn't duplicated for a entity?

[SpeedCAD]

Is there a function to ensure that a reactor isn't duplicated for a entity?

Hi...

Prove this:

Code: [Select]

(defun scad-vlr-tiene-reactor (vla-objeto / reactores)
  (if (/= (type vla-objeto) 'vla-object)
    (setq vla-objeto (vlax-ename->vla-object vla-objeto))
  )
  (if (setq reactores
    (mapcar 'cadr (vlr-reactors :vlr-object-reactor))
      )
    (apply 'or
  (mapcar '(lambda (x)
     (if (member vla-objeto (vlr-owners x))
t
     )
   ) ;_lambda
  reactores
  ) ;_mapcar
    ) ;_apply
  ) ;_if
) ;_defun

Use:

Code: [Select]

(scad-vlr-tiene-reactor objeto)
objeto can it a ename or vla-object, example:
Use:

Code: [Select]

(scad-vlr-tiene-reactor (car (entsel)))
or:

Code: [Select]

(scad-vlr-tiene-reactor (vlax-ename->vla-object (car (entsel))))

return T or nil

[Ron Heigh]

I tried what you posted, but couldn't get it to work.
I'm getting my reactors firing multiple times on the same object.
Some are duplicate persistant reactors as well.