[LISP函数]：单字符关键字立刻响应

guohq

(defun Autostr (cap / lst rtn str1 str2)
  ;;CAP为1时，全部转为小写，为2时，转为大写,为其它时，不做转换
  ;;可接受的字符为
  (setq lst (grread))
  (setq str1 (car lst))
  (while (/= str1 2)
    (setq lst (grread))
    (setq str1 (car lst))
  )
  (setq str2 (cadr lst))
  (while (not (or (and (<= str2 57) (>= str2 48))
                  (and (<= str2 90) (>= str2 65))
                  (and (<= str2 122) (>= str2 97))
                  (= str2 32)
                  (= str2 13)
              )
         )
    (setq lst (grread))
    (setq str1 (car lst))
    (while (/= str1 2)
      (setq lst (grread))
      (setq str1 (car lst))
    )
    (setq str2 (cadr lst))
  )
  (setq rtn (chr str2))
  (if (= cap 1)
    (setq rtn (strcase rtn t))
  )
  (if (= cap 2)
    (setq rtn (strcase rtn))
  )
  rtn
)
(defun Initget_ex (str / lst nn)
;;;定义关键字函数，只能接受/返回单字符
;;;并且加入了空格与回车
  (setq lst '())
  (setq nn 1)
  (repeat (strlen str)
    (if        (/= (substr str nn 1) " ")
      (setq lst (cons (substr str nn 1) lst))
    )
    (setq nn (1+ nn))
  )
  (setq lst (cons " " lst))
  ;;空格
  (setq lst (cons "\r" lst))
  ;;回车
  (setq rtn_initget_ex (reverse lst))
  rtn_initget_ex
)
(defun Cap2Lit (str cap / rtn nn lst)
;;;字符大小写转换cap为1时，全部转为小写，为2时全部转为大写,此函数可以接受字符串或字符串列表

  (if (= (type str) 'STR)
    (progn
      (if (= cap 1)
        (setq rtn (strcase str T))
      )
      (if (= cap 2)
        (setq rtn (strcase str))
      )
    )
  )
  (if (= (type str) 'LIST)

    (progn
      (if (= cap 1)
        (setq cap T)
        (setq cap nil)
      )
      (setq nn 0)
      (setq lst '())
      (repeat (length str)
        (setq lst (cons (strcase (nth nn str) cap) lst))
        (setq nn (1+ nn))
      )
      (setq rtn (reverse lst))
    )
  )
  rtn
)

(defun Getkword_ex (/ rtn lst1)
;;;;获取关键字
  (setq lst1 (cap2lit rtn_initget_ex 2))
;;;取得initget_ex返回的值
  (setq rtn (autostr 2))
  (while (null (member rtn lst1))
    (setq rtn (autostr 2))
  )
  rtn
)



使用方法：
(defun c:tt(/ str)
  (prompt "\n打印字符串:<a>打印A | b 打印B | c:打印C")
  (initget_ex  "abc");;;定义能接受的字符
  (setq str (getkword_ex))
  (if (or (= str " ") (= str "\r"))
    (setq str "A")
    )
  (if (= str "A")
    (alert "a")
    (if (= str "B")
      (alert "B")
      (alert "c")
      )
    )
  (prin1)
  )