怎么判断面板输入的字符是数字

ktlamors

各位大佬怎么判断面板输入是否是数字  不是数字的话需要重新输入   刚刚学习  希望各位大佬指教

Andyhon

可先参阅 ASCII & CHR 函数的帮助

ktlamors

Andyhon 发表于 2020-4-5 11:43
可先参阅 ASCII & CHR 函数的帮助

好的  谢谢大佬指教

lqdcwnui

将获取的字符串atoi或者atof，结果为0 或者0.0 就不是数值。或者使用函数vl-string->list判断每个字符是不是数字

wzg356

dcl输入限制示例
(defun edit_boxexample (/ dcl_id)
(setq dcl_id (load_dialog (edit_box-dcl)))
(if (null (new_dialog "edit_boxexample" dcl_id)) (exit))
(action_tile "accept" "(if (not (nump (setq input (get_tile \"input\"))))(alert \"不是数字！\")(done_dialog 1))")
;这一句示例很重要
(start_dialog)
(unload_dialog dcl_id)
(princ)
)
(defun nump(str)
(if (member (type (read str)) (list 'INT 'REAL));INT整数型、REAL浮点数
;;其它，FILE 文件描述符，STR 字符串，SYM 符号
;;请学习read，type，member三个函数
t
nil
)
)
(defun edit_box-dcl  (/ lst_str str file f)
        (setq lst_str '(
"edit_boxexample:dialog {"
"    : edit_box {key = \"input\"; width = 8;}"
"    ok_cancel;"
"}"
                    )
    )
    (setq file (vl-filename-mktemp "DclTemp.dcl"))
    (setq f (open file "w"))
    (foreach str lst_str
        (princ "\n" f)
        (princ str f)
    )
    (close f)
    ;;返回
    file
)