[求助]求一比较大小的LISP

XIAOFEILONG

图形中有文字“100”和“200”
现在想对图形中文字进行判断

选取文字，如果文字大于50小于150，则此文字内容变成“A”
如果文字大于150，则此文字内容变成“B”

请问如何把字符串“A”和“B”赋值到文字“100”和“200”中去？

dinosaurhxe2

(read "100")或(atoi "100")，即可与50或者150比较大小了。

XIAOFEILONG

能否按我的要求写个完整的LISP？
XIEXIE

caoyin

(read "100")或(atoi "100")，即可与50或者150比较大小了

read 和 atoi 是不行的，假如数字为 50.2

用 atof 比较好

(defun c:tt (/ e a b)
  (while (setq e (car (entsel "\n选择文字: ")))
    (setq e (entget e)
          a (atof (cdr (assoc 1 e)))
    )
    (cond ((> 150 a 50)
           (setq b "A")
          )
          ((> a 150)
           (setq b "B")
          )
    )
    (entmod (subst (cons 1 b) (assoc 1 e) e))
  )
)

byghbcx

少个判断a<50,怎么处理,否则接着上次的b值更新

caoyin

少个判断a<50,怎么处理,否则接着上次的b值更新

此言极是

(defun c:tt (/ e a b)
  (while (setq e (car (entsel "\n选择文字: ")))
    (setq e (entget e)
          a (atof (cdr (assoc 1 e)))
    )
    (cond ((> 150 a 50)
           (setq b "A")
          )
          ((> a 150)
           (setq b "B")
          )

          (T (setq b nil))
    )
    (if b (entmod (subst (cons 1 b) (assoc 1 e) e)))
  )
)