Topic: Object Reactors

[jtoverka]

Gentlemen,

I am developing an application for AutoCAD Electrical. These AutoCAD verticals have a limitation where you can't simply use standard AutoCAD commands if you don't how everything works with the vertical side. For example, if you delete a wire, the wire number needs to be deleted as well. This can be overlooked if you "hide" the wire number (hide means frozen).

So I am trying to use reactors for my problem. In xData, there are pointers to other objects in the drawing. If you delete the object, in some cases, those other pointers must be deleted as well. Especially panel footprints and their item balloons.

However, I can't seem to find a way to read the object being deleted, so I can find those pointers. The object is deleted prior to the reactor function being called.

Help is much appreciated!

[roy_043]

See here:
https://www.theswamp.org/index.php?topic=52466.msg573976#msg573976

[ribarm]

There is some related things for you to look for in this topic :
https://www.cadtutor.net/forum/topic/68098-reactor-when-entity-copied-how-to-pass-the-ss

I just haven't posted there more codes, but I've mod. my version that operates like command functions - custom erase and custom copy like this :

Code - Auto/Visual Lisp: [Select]

1. (defun XD_readX ( ename AppName )
2.   (reverse (cdr (reverse (cddr (assoc AppName (cdr (assoc -3 (entget ename (list "*")))))))))
3. )
4.  
5. (defun SS_getappid ( AppName / filtr ss )
6.  
7.   (setq
8.     AppName (cdr (assoc 2 (tblsearch "APPID" AppName)))
9.     filtr   (append filtr (list (list -3 (list AppName))))
10.     ss      (ssget "_X" filtr)
11.   )
12.  
13.   ss
14. )
15.  
16. (defun SS_getallappids ( / a app appl ss )
17.  
18.   (setq app (cdr (assoc 2 (setq a (tblnext "APPID" t)))))
19.   (setq appl (cons app appl))
20.   (while (setq a (tblnext "APPID"))
21.     (setq app (cdr (assoc 2 a)))
22.     (setq appl (cons app appl))
23.   )
24.   (setq ss (ssadd))
25.   (foreach app appl
26.     (foreach e (if (SS_getappid app) (vl-remove-if 'listp (mapcar 'cadr (ssnamex (SS_getappid app)))))
27.       (ssadd e ss)
28.     )
29.   )
30.  
31.   ss
32. )
33.  
34. (defun SS_SSgetXD ( filtr XdChkLst RetFmt AppNameLst / sss ss i ss1 ssl xdl cnt ename Lst )
35.  
36.   (setq sss (ssadd))
37.   (foreach AppName AppNameLst
38.     (setq
39.       AppName (cdr (assoc 2 (tblsearch "APPID" AppName)))
40.       filtr   (append filtr (list (list -3 (list AppName))))
41.       ss      (ssget "_X" filtr)
42.     )
43.     (if ss
44.       (repeat (setq i (sslength ss))
45.         (if (not (ssmemb (ssname ss (setq i (1- i))) sss))
46.           (ssadd (ssname ss i) sss)
47.         )
48.       )
49.     )
50.   )
51.  
52.   (if (= RetFmt 0)
53.     (setq ss1 (ssadd))
54.   )
55.  
56.   (if sss
57.     (progn
58.       (setq
59.         ssl      (sslength sss)
60.         cnt      0
61.       )
62.       (repeat ssl
63.         (setq
64.           ename (ssname sss cnt)
65.           cnt   (1+ cnt)
66.         )
67.         (foreach AppName AppNameLst
68.           (setq xdl (cons (XD_readX ename AppName) xdl))
69.         )
70.         (setq xdl (reverse xdl))
71.         (if xdl
72.           (progn
73.             (if (equal xdl XdChkLst)
74.               (if (= RetFmt 0)
75.                 (ssadd ename ss1)
76.                 (setq Lst (cons ename Lst))
77.               )
78.             )
79.             (setq xdl nil)
80.           )
81.         )
82.       )
83.     )
84.   )
85.  
86.   (if (= RetFmt 0)
87.     (if (> (sslength ss1) 0)
88.       ss1
89.       nil
90.     )
91.     Lst
92.   )
93. )
94.  
95. (vl-load-com)
96.  
97. (vlr-remove-all)
98.  
99. (defun c:copyent-txtlinks ( / ent txtss bp dp entn i txt )
100.   (while
101.     (or
102.       (not (setq ent (car (entsel "\nPick curve entity to copy along with text links..."))))
103.       (if ent
104.         (or
105.           (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getendpoint (list ent)))
106.           (= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (entget ent))))))))
107.         )
108.       )
109.     )
110.     (prompt "\nMissed or picked wrong entity type or picked curve on locked layer...")
111.   )
112.   (setq txtss (SS_SSgetXD '((0 . "TEXT")) (list (list (cons 1005 (cdr (assoc 5 (entget ent)))))) 0 '("txt2entlnks")))
113.   (initget 1)
114.   (setq bp (getpoint "\nPick or specify base point : "))
115.   (initget 1)
116.   (setq dp (getpoint bp "\nPick or specify destination point : "))
117.   (vl-cmdf "_.COPY" ent "" "_non" bp "_non" dp)
118.   (setq entn (entlast))
119.   (repeat (setq i (sslength txtss))
120.     (setq txt (ssname txtss (setq i (1- i))))
121.     (vl-cmdf "_.COPY" txt "" "_non" bp "_non" dp)
122.     (entupd (cdr (assoc -1 (entmod (subst (cons 1 (if (= (cdr (assoc 1 (entget (entlast)))) (cdr (assoc 5 (entget ent)))) (cdr (assoc 5 (entget entn))) (cdr (assoc 1 (entget txt))))) (assoc 1 (entget (entlast) '("*"))) (subst (list -3 (list "txt2entlnks" '(1002 . "{") (cons 1005 (cdr (assoc 5 (entget entn)))) '(1002 . "}"))) (assoc -3 (entget (entlast) '("*"))) (entget (entlast) '("*"))))))))
123.   )
124.   (vlr-remove *TheObjReactor*)
125.   (setq *TheObjReactor*
126.     (vlr-object-reactor
127.       (
128.         (lambda ( / SS i L )
129.           (if (setq SS (ssget "_X" (list '(0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE,HELIX") (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model")))))
130.             (repeat (setq i (sslength SS))
131.               (setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
132.             )
133.           )
134.           (reverse L)
135.         )
136.       )
137.       "Curves Object Reactor"
138.       '((:VLR-modified . CUR:ObjReactor))
139.     )
140.   )
141.   (vl-cmdf "_.REGEN")
142.   (princ)
143. )
144.  
145. (defun c:eraseent-txtlinks ( / ent txtss )
146.   (while
147.     (or
148.       (not (setq ent (car (entsel "\nPick curve entity to delete along with text links..."))))
149.       (if ent
150.         (or
151.           (vl-catch-all-error-p (vl-catch-all-apply 'vlax-curve-getendpoint (list ent)))
152.           (= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (entget ent))))))))
153.         )
154.       )
155.     )
156.     (prompt "\nMissed or picked wrong entity type or picked curve on locked layer...")
157.   )
158.   (setq txtss (SS_SSgetXD '((0 . "TEXT")) (list (list (cons 1005 (cdr (assoc 5 (entget ent)))))) 0 '("txt2entlnks")))
159.   (ssadd ent txtss)
160.   (acet-ss-entdel txtss)
161.   (vlr-remove *TheObjReactor*)
162.   (setq *TheObjReactor*
163.     (vlr-object-reactor
164.       (
165.         (lambda ( / SS i L )
166.           (if (setq SS (ssget "_X" (list '(0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE,HELIX") (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model")))))
167.             (repeat (setq i (sslength SS))
168.               (setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
169.             )
170.           )
171.           (reverse L)
172.         )
173.       )
174.       "Curves Object Reactor"
175.       '((:VLR-modified . CUR:ObjReactor))
176.     )
177.   )
178.   (princ)
179. )
180.  
181. (defun CUR:ObjReactor ( owner reactor lstename / txtss i txt txtx )
182.   (if (and (not (vlax-erased-p owner)) (vl-position owner (vlr-owners *TheObjReactor*)))
183.     (progn
184.       (if (not (tblsearch "APPID" "txt2entlnks"))
185.         (regapp "txt2entlnks")
186.       )
187.       (setq txtss (SS_SSgetXD '((0 . "TEXT")) (list (list (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))))) 0 '("txt2entlnks")))
188.       (if txtss
189.         (repeat (setq i (sslength txtss))
190.           (setq txt (ssname txtss (setq i (1- i))))
191.           (setq txtx (entget txt '("*")))
192.           (if (or (and (/= (cdr (assoc 1 txtx)) "hand") (/= (cdr (assoc 1 txtx)) (cdr (assoc 5 (entget (vlax-vla-object->ename owner)))))) (= (cdr (assoc 1 txtx)) "dist"))
193.             (setq txtx (subst (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0))) (assoc 11 txtx) (subst (cons 1 (rtos (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2 2)) (assoc 1 txtx) txtx)))
194.             (setq txtx (subst (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0))) (assoc 11 txtx) (subst (cons 1 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) (assoc 1 txtx) txtx)))
195.           )
196.           (entupd (cdr (assoc -1 (entmod txtx))))
197.         )
198.         (progn
199.           (entmake
200.             (list
201.               '(0 . "TEXT")
202.               '(100 . "AcDbEntity")
203.               (cons 67 (getvar 'tilemode))
204.               (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model"))
205.               '(100 . "AcDbText")
206.               (cons 10 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
207.               (cons 40 (if (not (zerop (getvar 'textsize))) (getvar 'textsize) (getvar 'dimtxt)))
208.               (cons 1 (cdr (assoc 5 (entget (vlax-vla-object->ename owner)))))
209.               '(50 . 0.0)
210.               '(41 . 1.0)
211.               '(51 . 0.0)
212.               (cons 7 (getvar 'textstyle))
213.               '(71 . 0)
214.               '(72 . 1)
215.               (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
216.               '(210 0.0 0.0 1.0)
217.               '(100 . "AcDbText")
218.               '(73 . 1)
219.             )
220.           )
221.           (entupd (cdr (assoc -1 (entmod (append (entget (entlast)) (list (list -3 (list "txt2entlnks" '(1002 . "{") (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) '(1002 . "}")))))))))
222.           (entmake
223.             (list
224.               '(0 . "TEXT")
225.               '(100 . "AcDbEntity")
226.               (cons 67 (getvar 'tilemode))
227.               (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model"))
228.               '(100 . "AcDbText")
229.               (cons 10 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
230.               (cons 40 (if (not (zerop (getvar 'textsize))) (getvar 'textsize) (getvar 'dimtxt)))
231.               (cons 1 (rtos (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2 2))
232.               '(50 . 0.0)
233.               '(41 . 1.0)
234.               '(51 . 0.0)
235.               (cons 7 (getvar 'textstyle))
236.               '(71 . 0)
237.               '(72 . 1)
238.               (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
239.               '(210 0.0 0.0 1.0)
240.               '(100 . "AcDbText")
241.               '(73 . 3)
242.             )
243.           )
244.           (entupd (cdr (assoc -1 (entmod (append (entget (entlast)) (list (list -3 (list "txt2entlnks" '(1002 . "{") (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) '(1002 . "}")))))))))
245.         )
246.       )
247.       (princ "\nReaction Modify executed")
248.     )
249.   )
250.   (princ "\nReaction Modify occured")
251. )
252.  
253. (setq *TheObjReactor*
254.   (vlr-object-reactor
255.     (
256.       (lambda ( / SS i L )
257.         (if (setq SS (ssget "_X" (list '(0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE,HELIX") (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model")))))
258.           (repeat (setq i (sslength SS))
259.             (setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
260.           )
261.         )
262.         (reverse L)
263.       )
264.     )
265.     "Curves Object Reactor"
266.     '((:VLR-modified . CUR:ObjReactor))
267.   )
268. )
269.  
270. (setvar 'textsize (* 10.0 (/ (getvar 'viewsize) (cadr (getvar 'screensize)))))
271. (setvar 'copymode 0)
272.  
273. (princ)
274.  

But if you want to use built-in erase and copy or grip-edit (modify), you'll probably have to go with storing entity handles in global list for usage with Object Reactor... Here is version that does that with combination of Object and DeepClone Reactor :

Code - Auto/Visual Lisp: [Select]

1. (defun XD_readX ( ename AppName )
2.   (reverse (cdr (reverse (cddr (assoc AppName (cdr (assoc -3 (entget ename (list "*")))))))))
3. )
4.  
5. (defun SS_getappid ( AppName / filtr ss )
6.  
7.   (setq
8.     AppName (cdr (assoc 2 (tblsearch "APPID" AppName)))
9.     filtr   (append filtr (list (list -3 (list AppName))))
10.     ss      (ssget "_X" filtr)
11.   )
12.  
13.   ss
14. )
15.  
16. (defun SS_getallappids ( / a app appl ss )
17.  
18.   (setq app (cdr (assoc 2 (setq a (tblnext "APPID" t)))))
19.   (setq appl (cons app appl))
20.   (while (setq a (tblnext "APPID"))
21.     (setq app (cdr (assoc 2 a)))
22.     (setq appl (cons app appl))
23.   )
24.   (setq ss (ssadd))
25.   (foreach app appl
26.     (foreach e (if (SS_getappid app) (vl-remove-if 'listp (mapcar 'cadr (ssnamex (SS_getappid app)))))
27.       (ssadd e ss)
28.     )
29.   )
30.  
31.   ss
32. )
33.  
34. (defun SS_SSgetXD ( filtr XdChkLst RetFmt AppNameLst / sss ss i ss1 ssl xdl cnt ename Lst )
35.  
36.   (setq sss (ssadd))
37.   (foreach AppName AppNameLst
38.     (setq
39.       AppName (cdr (assoc 2 (tblsearch "APPID" AppName)))
40.       filtr   (append filtr (list (list -3 (list AppName))))
41.       ss      (ssget "_X" filtr)
42.     )
43.     (if ss
44.       (repeat (setq i (sslength ss))
45.         (if (not (ssmemb (ssname ss (setq i (1- i))) sss))
46.           (ssadd (ssname ss i) sss)
47.         )
48.       )
49.     )
50.   )
51.  
52.   (if (= RetFmt 0)
53.     (setq ss1 (ssadd))
54.   )
55.  
56.   (if sss
57.     (progn
58.       (setq
59.         ssl      (sslength sss)
60.         cnt      0
61.       )
62.       (repeat ssl
63.         (setq
64.           ename (ssname sss cnt)
65.           cnt   (1+ cnt)
66.         )
67.         (foreach AppName AppNameLst
68.           (setq xdl (cons (XD_readX ename AppName) xdl))
69.         )
70.         (setq xdl (reverse xdl))
71.         (if xdl
72.           (progn
73.             (if (equal xdl XdChkLst)
74.               (if (= RetFmt 0)
75.                 (ssadd ename ss1)
76.                 (setq Lst (cons ename Lst))
77.               )
78.             )
79.             (setq xdl nil)
80.           )
81.         )
82.       )
83.     )
84.   )
85.  
86.   (if (= RetFmt 0)
87.     (if (> (sslength ss1) 0)
88.       ss1
89.       nil
90.     )
91.     Lst
92.   )
93. )
94.  
95. (vl-load-com)
96.  
97. (vlr-remove-all)
98. (setq *owners-hnd-lst* nil)
99.  
100. (defun COP:DeepCloneReactor ( reactor lst )
101.   (vlr-remove *TheObjReactor*)
102.   (setq *TheObjReactor*
103.     (vlr-object-reactor
104.       (
105.         (lambda ( / SS i L )
106.           (if (setq SS (ssget "_X" (list '(0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE,HELIX") (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model")))))
107.             (repeat (setq i (sslength SS))
108.               (setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
109.             )
110.           )
111.           (setq *owners-hnd-lst* (mapcar '(lambda ( x ) (list x (cdr (assoc 5 (entget (vlax-vla-object->ename x)))))) (reverse L)))
112.           (reverse L)
113.         )
114.       )
115.       "Curves Object Reactor"
116.       '((:VLR-modified . CUR:ObjReactor))
117.     )
118.   )
119.   (princ "\nReaction Copy occured")
120. )
121.  
122. (defun CUR:ObjReactor ( owner reactor lstename / txtss i txt txtx )
123.   (cond
124.     ( (and (not (vlax-erased-p owner)) (vl-position owner (vlr-owners *TheObjReactor*)))
125.       (if (not (tblsearch "APPID" "txt2entlnks"))
126.         (regapp "txt2entlnks")
127.       )
128.       (setq txtss (SS_SSgetXD '((0 . "TEXT")) (list (list (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))))) 0 '("txt2entlnks")))
129.       (if txtss
130.         (repeat (setq i (sslength txtss))
131.           (setq txt (ssname txtss (setq i (1- i))))
132.           (setq txtx (entget txt '("*")))
133.           (if (or (and (/= (cdr (assoc 1 txtx)) "hand") (/= (cdr (assoc 1 txtx)) (cdr (assoc 5 (entget (vlax-vla-object->ename owner)))))) (= (cdr (assoc 1 txtx)) "dist"))
134.             (setq txtx (subst (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0))) (assoc 11 txtx) (subst (cons 1 (rtos (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2 2)) (assoc 1 txtx) txtx)))
135.             (setq txtx (subst (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0))) (assoc 11 txtx) (subst (cons 1 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) (assoc 1 txtx) txtx)))
136.           )
137.           (entupd (cdr (assoc -1 (entmod txtx))))
138.         )
139.         (progn
140.           (entmake
141.             (list
142.               '(0 . "TEXT")
143.               '(100 . "AcDbEntity")
144.               (cons 67 (getvar 'tilemode))
145.               (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model"))
146.               '(100 . "AcDbText")
147.               (cons 10 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
148.               (cons 40 (if (not (zerop (getvar 'textsize))) (getvar 'textsize) (getvar 'dimtxt)))
149.               (cons 1 (cdr (assoc 5 (entget (vlax-vla-object->ename owner)))))
150.               '(50 . 0.0)
151.               '(41 . 1.0)
152.               '(51 . 0.0)
153.               (cons 7 (getvar 'textstyle))
154.               '(71 . 0)
155.               '(72 . 1)
156.               (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
157.               '(210 0.0 0.0 1.0)
158.               '(100 . "AcDbText")
159.               '(73 . 1)
160.             )
161.           )
162.           (entupd (cdr (assoc -1 (entmod (append (entget (entlast)) (list (list -3 (list "txt2entlnks" '(1002 . "{") (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) '(1002 . "}")))))))))
163.           (entmake
164.             (list
165.               '(0 . "TEXT")
166.               '(100 . "AcDbEntity")
167.               (cons 67 (getvar 'tilemode))
168.               (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model"))
169.               '(100 . "AcDbText")
170.               (cons 10 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
171.               (cons 40 (if (not (zerop (getvar 'textsize))) (getvar 'textsize) (getvar 'dimtxt)))
172.               (cons 1 (rtos (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2 2))
173.               '(50 . 0.0)
174.               '(41 . 1.0)
175.               '(51 . 0.0)
176.               (cons 7 (getvar 'textstyle))
177.               '(71 . 0)
178.               '(72 . 1)
179.               (cons 11 (vlax-curve-getpointatdist owner (/ (vlax-curve-getdistatparam owner (vlax-curve-getendparam owner)) 2.0)))
180.               '(210 0.0 0.0 1.0)
181.               '(100 . "AcDbText")
182.               '(73 . 3)
183.             )
184.           )
185.           (entupd (cdr (assoc -1 (entmod (append (entget (entlast)) (list (list -3 (list "txt2entlnks" '(1002 . "{") (cons 1005 (cdr (assoc 5 (entget (vlax-vla-object->ename owner))))) '(1002 . "}")))))))))
186.         )
187.       )
188.       (princ "\nReaction Modify executed")
189.     )
190.     ( (vlax-erased-p owner)
191.       (foreach own-hnd *owners-hnd-lst*
192.         (if (eq owner (car own-hnd))
193.           (progn
194.             (setq txtss (SS_SSgetXD '((0 . "TEXT")) (list (list (cons 1005 (cadr own-hnd)))) 0 '("txt2entlnks")))
195.             (if txtss
196.               (acet-ss-entdel txtss)
197.             )
198.           )
199.         )
200.       )
201.       (princ "\nReaction Modify executed")
202.     )
203.   )
204.   (princ "\nReaction Modify occured")
205. )
206.  
207. (setq *TheObjReactor*
208.   (vlr-object-reactor
209.     (
210.       (lambda ( / SS i L )
211.         (if (setq SS (ssget "_X" (list '(0 . "*POLYLINE,SPLINE,LINE,ARC,CIRCLE,ELLIPSE,HELIX") (cons 410 (if (= 1 (getvar 'cvport)) (getvar 'ctab) "Model")))))
212.           (repeat (setq i (sslength SS))
213.             (setq L (cons (vlax-ename->vla-object (ssname SS (setq i (1- i)))) L))
214.           )
215.         )
216.         (setq *owners-hnd-lst* (mapcar '(lambda ( x ) (list x (cdr (assoc 5 (entget (vlax-vla-object->ename x)))))) (reverse L)))
217.         (reverse L)
218.       )
219.     )
220.     "Curves Object Reactor"
221.     '((:VLR-modified . CUR:ObjReactor))
222.   )
223. )
224.  
225. (setq *TheDeepCloneReactor*
226.   (vlr-deepclone-reactor
227.     "Curves Deep Clone Reactor"
228.     '((:VLR-enddeepclone . COP:DeepCloneReactor))
229.   )
230. )
231.  
232. (setvar 'textsize (* 10.0 (/ (getvar 'viewsize) (cadr (getvar 'screensize)))))
233. (setvar 'copymode 1)
234.  
235. (princ)
236.  

This is all related with topic I gave you link at CadTutor site and IMHO, you should be able to find what you're looking for with using XDATA and entity HANDLES, but be aware that second code operates with global list and if list is altered in any way you may experience unpredicted behaviour... What is the main point as far as my investigation explains, the trick is in Object Reactor - when you want to add/remove owners, you should avoid using (vlr-owner-add) and (vlr-owner-remove) - this is buggy - you have to redefine Reactor with complete newly owner list like you are firstly defining it - AFAIK this is the only way to make it operate as desired IMHO...

HTH., M.R.

[jtoverka]

Thank you,

There was a lot of useful information related to this topic there.

I ended up storing the attributes and xData as reactor data. Every time it is modified, I update the reactor data. Then if it is deleted, I use that reactor data instead of reading the object. It works like a charm!