[LISP]请教如何改变小数位？？？？

haha · 发表于 2005-4-27 11:58:00

各位高手

陈龙在这又要请叫各位了，我想朋友们如果有空，帮忙弄一个小程序，将小数点后的四位数改变成两位数，例如，732.4656-------732.47（四舍五入），因为图形中有很多是四位小数的，要选择其中的一部分，修改为两位。能批量选择修改最好了。看你水平咯。注意保留原格式原字型字库哦！

陈龙在此不胜感激！感谢驻足于此的朋友，更感谢编程高手啦·哈

andyding · 发表于 2005-4-27 20:45:00

这样好像可以,4可以改成0~8﹕

(defun c:4() (command "AIDIMPREC""4")(PRINC))

ljpnb · 发表于 2005-4-28 01:05:00

例如: (setq a 732.4656)
(setq b (atof (rtos a 2 2)))

岁月无身 · 发表于 2005-4-29 11:22:00

是标注尺寸的数据嘛？如果是的话修改系统变量就可以

haha · 发表于 2005-5-1 02:17:00

本人感谢各位的帮助,我还没试用,相信应该行的! 是标注的尺寸数据,只是不是CAD原有的,可以说是文本!改动变量会导致全部修改,可是我只要局部,也就是选择谁,谁就要乖! andyding,可以批量处理吗?以上函数还有高手补充吗?

haha · 发表于 2005-5-3 17:44:00

朋友们，经过试用，以上函数仅对标注有用，对文本不起作用！还有高手完善一下吗？感谢！

tiyi8888 · 发表于 2005-5-7 05:50:00

如果在标注中修改标注中的变量后用格式筛即可吧在文本中直接用格式筛这之前必需要先有样本

账号		自动登录	找回密码
密码			注册