找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 572|回复: 4

[字符串] (XD::String:For->Num)格式化数字字符串

[复制链接]

已领礼包: 160个

财富等级: 日进斗金

发表于 2017-9-26 19:14:36 | 显示全部楼层 |阅读模式
函数发布
函数名称: (XD::String:For->Num)
调用格式: (XD::String:For->Num num np pn)
参数说明: num ---->为自然数
np ---->为整数位数,整数位数不足np 用"0"补全
pn ---->为小数位数,小数位数不足np 用"0"补全
返回值: 数字字符串
(XD::String:For->Num 0 3 3)------>"000.000"
(XD::String:For->Num -1 3 3)------>"-001.000"
函数简介: 应用:
CAD中把圆孔坐标转出为一些**CNC高精度模具钻孔机所识别的坐标格式
函数来源: 二次修改
函数作者: 未知
适用版本: 不限 
最后更新时间: 2017-09-26
备注: -
演示图片: -

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

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

×
本帖最后由 75215195 于 2017-10-1 10:07 编辑

  1. ;|(XD::STRING:FOR->NUM 234.546 3 2)
  2. "234.55"
  3. (XD::STRING:FOR->NUM 0 3 2)
  4. "000.00"
  5. (XD::STRING:FOR->NUM 1 3 3)
  6. "001.000"
  7. (XD::STRING:FOR->NUM 123.1234 3 3)
  8. "123.123"
  9. (XD::STRING:FOR->NUM 123.1234 1 3)
  10. "3.123"
  11. (XD::STRING:FOR->NUM -123.1234 1 3)
  12. "-3.123"
  13. |;
  14. (defun XD::String:For->Num (num np pn / zs xs newnum)
  15.   (setq newnum (rtos (abs num) 2 pn))
  16.   (setq zs(itoa (fix (abs num))))
  17.   (setq xs(substr newnum (1+ (strlen zs))))
  18.   (cond
  19.     ((< (strlen zs) np)
  20.       (repeat (- np (strlen zs))
  21.         (setq zs (strcat "0" zs))
  22.         )
  23.      )
  24.     ((and (> (strlen zs) np)(/= np 0))
  25.     (setq zs (substr zs (- (1+ (strlen zs)) np)))
  26.     )
  27.     ((= np 0)
  28.      (setq zs "0")
  29.      )
  30.     )
  31.   (if (< num 0)
  32.     (setq newnum(strcat "-" zs xs))
  33.     (setq newnum(strcat zs xs))
  34.     )
  35.   newnum
  36.   )


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

已领礼包: 769个

财富等级: 财运亨通

发表于 2017-9-26 20:50:37 | 显示全部楼层
谢谢楼主分享!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3186个

财富等级: 富可敌国

发表于 2017-9-30 14:32:51 | 显示全部楼层
好好学习天天向上,谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1211个

财富等级: 财源广进

发表于 2017-10-1 08:11:35 | 显示全部楼层
值得学习一下,谢谢楼主分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

发表于 2017-11-19 00:02:26 | 显示全部楼层
谢谢楼主分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 22:07 , Processed in 0.350216 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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