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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 开源函数库 › （XD::String:For->Num）格式化数字字符串
返回列表 发新帖
查看: 900|回复: 4

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

[复制链接]
75215195

已领礼包: 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豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

sh_h

已领礼包: 774个

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

使用道具 举报

yjch

已领礼包: 3191个

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

使用道具 举报

wenyish

已领礼包: 1211个

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

使用道具 举报

sicky111

已领礼包: 6468个

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-22 06:21 , Processed in 0.206871 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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