lisp 自定义函数(1):颜色码收集器
(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)
)
)
页:
[1]