lisp 自定义函数(1):颜色码收集器

cadlittlewhite

(defun hsdj_sema (msg / sm)
  (while (not (or (and (setq sm (getint msg)) (>= sm 0) (<= sm 256)) (= sm nil))))
  (cond
    ((= sm 0) (setq sm "bylayer"))
    ((= sm 256) (setq sm "byblock"))
    ((= sm nil) (setq sm "This is Enter or Space"))
    (t sm)
  )
)