autolisp设置cad指定文本颜色

;设置指定文本颜色
;1指定要查找的文本
;2指定查找范围
;3设定查找到的文本颜色
(defun configcol()
    (setq x 
        (cdr 
            (assoc 1 
                (entget 
                    (car (nentsel "\n请指定单个文字对象"))
                )
            )
        )
        
    )
    (princ "\n请选择要匹配的文字对象")
    (setq s
        (ssget 
            (list
                '(0 . "text")
                (cons '1 x)
            )
        )
    )
    (if (/= s nil)
        (progn
        (setq i(getint "请输入颜色编号：1 红、2 黄、3 绿、4 青、5 蓝、6 洋红、7 白/黑"))
        (command "change" s "" "p" "c" i "")
        )
    )
)