快速选择并连线

江南十笑

下面是论坛上选择包含文字并连续的源码：
(defun c:tt (/ n pt ss str)
        (if (setq str (getstring "\n输入文字含有的字符:"))
        (progn(setq str (strcat "*" str "*") n 0  pt (getpoint "\n指定集合点:"))
                        (repeat (sslength (setq ss (ssget "X" (list '(0 . "*TEXT") (cons 1 str)))))
(entmake (list '(0 . "LINE") (cons 10 pt) (cons 11 (cdr (assoc 10 (entget (ssname ss n))))) '(62 . 1)))
(setq n (+ n 1)))))(sssetfirst nil ss))
                                (setq n (+ n 1))
                        )
                )
        )
)



如何修改为：选择一个单行文字，有如下选项：选择同颜色的单行文字，选择同颜色同图层的单行文字，选择内容相同的单行文字，选择>=给定值(手输入)的单行文字 选择<=给定值(手输入)的单行文字  选择介于A,B的单行文字(AB手输入 或者对话框填写)