Arrange items of a selection set

Actually I have a selection set of texts.

I need arrange them ascending order to X coordinates of insertion points of texts.

Actually I have a selection set of texts.

I need arrange them ascending order to X coordinates of insertion points of texts.

(defun c:demo (/ ss i lst [color="red"]en[/color])
 (if (setq ss (ssget ":L" '((0 . "TEXT"))))
   (progn (repeat (setq i (sslength ss))
    [color="red"](setq en[/color] (ssname ss (setq i (1- i))[color="red"])[/color]
     lst (cons [color="red"](cons en[/color] (cdr (assoc 10 (entget [color="red"]en[/color])))[color="red"]) [/color]lst))
     )
   (mapcar 'print ([color="blue"]vl-sort[/color] lst ''((a b) (< ([color="red"]cadr[/color] a) ([color="red"]cadr[/color] b)))))
   )
   ) 
 (princ)
 )

EDIT: in red

Many thanks for your code.

Yes it is working nicely. I need few more facility. The entities added to selection set also to be rearrange

according to lst.

Many thanks for your code.

Yes it is working nicely. I need few more facility. The entities added to selection set also to be rearrange

according to lst.

something like this?

[color="green"];(<Entity name: 7eff6968> 349.007 -619.006 0.0) ? [/color]

code updated post#2 (in red)

Thanks the code is working now.next I need keep one item each which have same insertion points and filter others.

Please can you help.