(if (and (setq num (getreal "\n输入数字:"))
(setq ss (ssget '((0 . "text"))))
)
(repeat (setq n (sslength ss))
(if (and
(setq e (entget (ssname ss (setq n (1- n)))))
(> (atof (cdr (assoc 1 e))) num)
)
(if (assoc 62 e)
(entmod (subst (cons 62 1) (assoc 62 e) e)) ;_ 改成红色
(entmod (append e (list (cons 62 1))))
)
)
)
)
可以在轴压比文件中快速选出大于某个数值的轴压比，并且改变颜色