设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 判断一个数有无小数
返回列表 发新帖
查看: 1853|回复: 9

[研讨] 判断一个数有无小数

[复制链接]
WhoCanSay
发表于 2016-6-6 08:28:25 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
(equal (fix 3.6) 3.6)=》nil
(equal (atoi (VL-PRINC-TO-STRING 3.6)) 3.6)=>nil
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

Lisphk

已领礼包: 19个

财富等级: 恭喜发财
发表于 2016-6-6 09:07:39 | 显示全部楼层
命令: (type 3.0001)
REAL

命令: (type 3)
INT

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2016-6-6 09:44:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
用字符串判断也行哈

命令: (xdrx_string_regexps "[^.]+" (rtos 3.3))
("3" "3")

命令: (xdrx_string_regexps "[^.]+" (rtos 3))
("3")

点评

WhoCanSay
(xdrx_string_regexps "[^.]+" (rtos 3.0))会是什么结果？  详情 回复 发表于 2016-6-6 09:54
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2016-6-6 09:46:02 | 显示全部楼层
LISP版本

命令: (wcmatch (rtos 3.3) "*.*")
T

命令: (wcmatch (rtos 3) "*.*")
nil

点评

WhoCanSay
(wcmatch (rtos 3.0) "*.*")这个行。  发表于 2016-6-6 09:52
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2016-6-6 09:50:28 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
无  . 就是整数 （= a (fix a)）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

WhoCanSay
 楼主| 发表于 2016-6-6 09:54:32 | 显示全部楼层
newer 发表于 2016-6-6 09:44
用字符串判断也行哈

命令: (xdrx_string_regexps "[^.]+" (rtos 3.3))

(xdrx_string_regexps "[^.]+" (rtos 3.0))会是什么结果？

点评

newer
结果不在它下面显示了，这句的意思就是得到小数点分开的数 命令: (xdrx_string_regexps "[^.]+" (rtos 3.3)) ("3" "3") 命令: (xdrx_string_regexps "[^.]+" (rtos 3)) ("3")  详情 回复 发表于 2016-6-6 10:12
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2016-6-6 10:12:17 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
WhoCanSay 发表于 2016-6-6 09:54
(xdrx_string_regexps "[^.]+" (rtos 3.0))会是什么结果？

结果不在它下面显示了，这句的意思就是用增则表达式匹配得到小数点分开的数值字符串

命令: (xdrx_string_regexps "[^.]+" (rtos 3.3))
("3" "3")

命令: (xdrx_string_regexps "[^.]+" (rtos 3))
("3")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2016-6-6 10:24:16 | 显示全部楼层
本帖最后由 newer 于 2016-6-6 10:33 编辑

正则表达式很强的，判断一个数是不是整数

  1. 命令: (xdrx_string_regexps "^[0-9]+$" "3.3")
  2. nil

  4. 命令: (xdrx_string_regexps "^[0-9]+$" "3")
  5. ("3")

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

llsheng_73
发表于 2016-8-12 12:09:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
_$ (wcmatch (rtos 3.1) "*.*")
T
_$ (type 3.1)
REAL
_$ (type 3.0000000000000000000000001)
REAL
_$ (wcmatch (rtos 3.0000000000000000000000001) "*.*")
nil
_$ (wcmatch (rtos 3) "*.*")
nil
_$ (type 3)
INT
_$
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-4-27 09:11 , Processed in 0.238274 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表