Question

LISP CAD求高手帮忙利用lisp代码实现特定选择！

我有一段代码，
(SETQ ss (SSGET "X" '((0 . "TEXT") (-4 . "=") (40 . 5))))
以上代码能实现筛选出所有图层的文字字高5的文字，但是我现在被选中的文字里，有两种字体但颜色不一样，我想在筛选条件里在加上一个颜色的筛选条件，举例红色和黑色，我想要红色，求高手帮忙！！

Answer 1

(SETQ ss (SSGET "X" '((0 . "TEXT")(cons 62 1) (-4 . "=") (40 . 5))))

;红色

(SETQ ss (SSGET "X" '((0 . "TEXT")(cons 62 255) (-4 . "=") (40 . 5))))

;黑色

颜色就按 color中的颜色序号设置

追问

提示bad ssget list

追答

(setq ss (SSGET "X" '((0 . "TEXT")( 62 . 1) (40 . 5))))

Answer 2

(SETQ ss (SSGET "X" '((0 . "TEXT") (-4 . "=") (40 . 5)(62 .1))))
颜色的群组码是62，黑色的群组码有可能不显示，红色是1，黄色是2，绿色是3，以此类推