Lisp file to delete All Xdata from selected entities regardless app name

Dear Programmers,
i found many lisp files deleting xdata but what i'm looking for is different.
i need Lisp file to delete All Xdata from selected entities "multi select" regardless app name

this one delete all xdata from the drawing at once . i need just to add for selection set , not one entity and not all the drawing

Code:

---

(defun DelXdata (ent app / entlst tmplst)
(setq entlst (entget ent app))
(foreach memb (cdr (assoc -3 entlst))
(setq tmplst (cons -3 (list (cons (car memb) nil)))
entlst (subst tmplst (assoc -3 entlst) entlst)
entlst (entmod entlst)
)
)
)

(defun C:delAllXdata ( / curass countr)
(setq curass (ssget "X" '((-3 ("*"))))
countr 0
)
(if curass
(repeat (sslength curass)
(DelXdata (ssname curass countr) '("*"))
(setq countr (1+ countr))
)
)
(princ)
)

---

Thank you for your cooperation

Have you tried :

Code:

---

(defun DelXdata (ent app / entlst tmplst)
(setq entlst (entget ent app))
(foreach memb (cdr (assoc -3 entlst))
(setq tmplst (cons -3 (list (cons (car memb) nil)))
entlst (subst tmplst (assoc -3 entlst) entlst)
entlst (entmod entlst)
)
)
)

(defun C:delSelXdata ( / curass countr)
(setq curass (ssget "_:L" '((-3 ("*"))))
countr 0
)
(if curass
(repeat (sslength curass)
(DelXdata (ssname curass countr) '("*"))
(setq countr (1+ countr))
)
)
(princ)
)

---