Topic: Set xdata to all elements with its layer name

[diaa.caliph]

i'm trying to set xdata for all elements in drawing with its layer name
the code gives error bad DXF group: (-1)
i'm not expert in autolisp i'm trying to get it done if anyone can figure it out

Code - Auto/Visual Lisp: [Select]

1. (defun c:outline ( / i s str )
2.    (regapp "XXXX")
3.    (setq s (ssget "x"))
4.        (repeat (setq i (sslength s))
5.          (setq str (cdr (assoc 8 (entget (ssname s (setq i (1- i)))))))
6.  
7.                
8.            (entmod
9.                (list (cons -1 (ssname s (setq i (1- i))))
10.                   '(   -3
11.                        ( "XXXX"
12.                          
13.                            (1000 . str)
14.                          
15.                        )
16.                    )
17.                )
18.            )
19.        )
20.    
21.    (princ)
22. )

EDIT (John): Added code tags.

[CodeDing]

diaa.caliph,

Odd request if I say so myself, but it would go something like this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:OUTLINE ( / ss cnt eg lyr xd)
2.   (regapp "XXXX")
3.   (if (setq ss (ssget "_X"))
4.     (repeat (setq cnt (sslength ss))
5.       (setq eg (entget (ssname ss (setq cnt (1- cnt))) '("*")))
6.       (setq lyr (cdr (assoc 8 eg)))
7.       (if (setq xd (assoc -3 eg))
8.         (setq xd (list (append xd (list (list "XXXX" (cons 1000 lyr))))))
9.         (setq xd (list (list -3 (list "XXXX" (cons 1000 lyr)))))
10.       );if
11.       (entmod (append eg xd))
12.     );repeat
13.   ;else
14.     (prompt "\nNO ENTITIES FOUND.")
15.   );if
16.   (prompt "\nOUTLINE Complete.")
17.   (princ)
18. );defun
19.  

Hope that helps.
Best,
~DD

[diaa.caliph]

Superb CodeDing, that's exactly what needed, big thanks