ssget过滤选择的问题

dyjwyqz5221

ssget可以过滤选择如："M123x234" "M34567x123" “M3456*2344”等中的数字位数，如：前面带字母“M”，后面跟着小于等于m位的数字，字母“x”，后面是小于等于n位的数字。m、n位数自定。用ssget过滤选择。程序如下：
(defun x_ssget(m n / get::lst lst1 lst2 str)
        (defun get::lst(n / str lst)
                (repeat n
                        (setq lst (cons (setq str (xdrx_prompt str "#" t)) lst))
                );;;repeat
                (reverse lst)
        );;;defun
        (setq lst1 (get::lst m)
                lst2 (get::lst n)
                str
                (XD::List->String
                        (apply 'append
                                (mapcar
                                        '(lambda(x)
                                                (mapcar
                                                        '(lambda(y)
                                                                (strcat "M" x "x" y)
                                                        );;;lambda
                                                        lst2
                                                );;;mapcar
                                        );;;lambda
                                        lst1
                                );;mapcar
                        );;;apply
                        ","
                )
        );;;setq
        (ssget (list '(0 . "TEXT")(cons 1 str)))
);;;defun