[编程申请]：xyp1964师傅救命啊？

huaheroys

将"GCD"层的数字注记由小数点后两位小数,改成小数点后一位小数.
我已在你发布的工具上找到了相应的功能{194_四舍五入},可是只能一个一个的改,太麻烦,能否改进一下,批量修改行吗?

xyp1964

不知“救命”是否还来得及？！

2. [FONT=courier new];;;GCD层数字小数位四舍五入
   
3. (defun c:test194 ()
   
4.   (CMDLA0)
   
5.   (setvar "DIMZIN" 0)
   
6.   (setq        INT (UINT 1 "" "\n保留位数" INT)
   
7.         ss  (ssget '((0 . "TEXT") (8 . "GCD")))
   
8.         i   -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (setq txt (rtos (atof (xyp-get-DXF 1 s1)) 2 INT))
    
12.     (sub_upd s1 1 txt)
    
13.   )
    
14.   (CMDLA1)
    
15. )[/FONT]

[FONT=courier new];;;GCD层数字小数位四舍五入<br /> (defun c:test194 ()<br />   (CMDLA0)<br />   (setvar "DIMZIN" 0)<br />   (setq        INT (UINT 1 "" "\n保留位数" INT)<br />         ss  (ssget '((0 . "TEXT") (8 . "GCD")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq txt (rtos (atof (xyp-get-DXF 1 s1)) 2 INT))<br />     (sub_upd s1 1 txt)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

huaheroys

当花儿已谢时,离花儿再次开放的日子也就不远了.
我的命是你救的,什么时候要,随时来拿,哈哈哈哈!
已完全解决我的问题.
说谢好象太俗,可不谢又不太好,想了大半天,还是觉得谢的好.
多谢了,师傅!!!!!!!!

xyp1964

说谢就过了，整整四天的日子不知你是怎么熬过来的？！呵呵……
有空将两个程序对比一下，自己对手试着修改修改，可能收获会更大。

huaheroys

就是说沙,不知道你跑到哪儿去了.

害我"左等还不来,右等还不来,夕阳在笑我,笑我太痴呆"(唱个么歌沙,跑题了!)

哈哈!果然是性情中人,我就啥也不说了!

如果有空来武汉的话,如果还有餐饭没有着落的话,麻烦你跟我联系.

电话好象不太方便留,记下我的邮箱吧(arcgis126@126.com)

学生拜谢.