vla-AutoLispR14- vl-sort-i, vl-sort-points

(Defun dfn_pointsortLefttoRight(/ i)
(setq i 0)
(while (< (setq i (1+ i)) (sslength ss))
    (setq pts (cons (cdr (assoc 10 (entget (ssname ss i)))) pts))
    )
    (setq pts (vl-sort pts '(lambda (x y) (< (car x)(car y)))))

(setq the_list '(("Top Beam" "200x150") ("Left Beam" "200x100") ("Left Beam" "150x200") ("Bottom Beam" "225x75")
                 ("Bottom Beam" "100x200") ("Right Beam" "45x35") ("Bottom Beam" "100x175") ("Right Beam" "55x25")))

(defun mysort ( l )
    (mapcar '(lambda ( n ) (nth n l))
        (vl-sort-i (mapcar '(lambda ( x ) (read (strcat "(" (vl-string-subst " " "x" (cadr x)) ")"))) l)
           '(lambda ( a b )
                (if (= (car  a) (car  b))
                    (< (cadr a) (cadr b))
                    (< (car  a) (car  b))
                )
            )
        )
    )
)
(setq Author "LeeMac(c)2020-05")
$ (mysort the_list)
(
    ("Right Beam"    "45x35")
    ("Right Beam"    "55x25")
    ("Bottom Beam" "100x175")
    ("Bottom Beam" "100x200")
    ("Left Beam"   "150x200")
    ("Left Beam"   "200x100")
    ("Top Beam"    "200x150")
    ("Bottom Beam"  "225x75")
)