(Str_IsNum)判别字符串是否为数字（整数或实数）

函数：
Str_IsNum
功能：
判别字符串是否为数字（整数或实数） 
函数代码：
(defun Str_IsNum(str)
  (numberp (read str ))
)
语法：
(Str_IsNum str) 
参数：
str:要检查的字符串
返回值：
 T ：字符串为数字； nil：字符串不是数字
示例：
命令: (setq str "")
""
命令: (Str_IsNum str)
nil
命令: (setq str "12.3")
"12.3"
命令: (Str_IsNum str)
T
(setq str "1s2.3")
"1s2.3"
命令: (Str_IsNum str)
nil