（求助）请问各位大佬，怎样批量修改小数点后有效数字？

YUYUFENG

求求论坛里的各位大佬，能否帮忙看看怎样批量修改小数点后有效数字？
谢谢大家了

vitalgg

如果无法播放，请点击此处在新窗口打开

输入 (fn 1) 保留一位小数。(fn 3) 保留三位小数。

1. (defun fn (n)
   
2.   (setq texts (pickset:to-list (ssget '((0 . "text")))))
   
3.   (foreach text% texts
   
4.     (entity:putdxf
   
5.       text%
   
6.       1
   
7.       (string:from-list
   
8.         (mapcar
   
9.           '(lambda (str)
   
10.              (if (string:numberp str)
    
11.                  (string:number-format (rtos (read str) 2 n) 1 n " 0")
    
12.                str
    
13.              ))
    
14.           (string:auto-split
    
15.             (entity:getdxf text% 1)
    
16.           ))
    
17.         ""
    
18.       )
    
19.     )))
    

(defun fn (n) <br />   (setq texts (pickset:to-list (ssget '((0 . "text")))))<br />   (foreach text% texts <br />     (entity:putdxf <br />       text%<br />       1<br />       (string:from-list <br />         (mapcar <br />           '(lambda (str) <br />              (if (string:numberp str) <br />                  (string:number-format (rtos (read str) 2 n) 1 n " 0")<br />                str<br />              ))<br />           (string:auto-split <br />             (entity:getdxf text% 1)<br />           ))<br />         ""<br />       )<br />     )))<br />

以上自定义函数来自@lisp 函数库。
须先安装 @lisp

将以下代码复制到 CAD 命令行内，回车即可开始安装。
(在代码行里用鼠标连续三击全选，然后右键复制或Ctrl+C 。到CAD命令行内,右键粘贴或Ctrl+V)

1. (progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h "http" o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://atlisp.""org/@"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />

xyp1964

1. (defun c:tt ()
   
2.   "文本数字精度"
   
3.   (xyp-Start)
   
4.   (setq i -1)
   
5.   (if (setq ss (ssget '((0 . "text"))))
   
6.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
7.       (setq lst (xyp-HzEngNum (xyp-DXF 1 s1) 0) )
   
8.       (setq lst (mapcar '(lambda (x) (if(setq a(distof x)) (rtos a 2 1) x)) lst))
   
9.       (xyp-SubUpd s1 1 (xyp-Strcat lst ""))
   
10.      )
    
11.   )
    
12.   (xyp-End)
    
13. )
    

(defun c:tt ()<br />   "文本数字精度"<br />   (xyp-Start)<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "text"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (setq lst (xyp-HzEngNum (xyp-DXF 1 s1) 0) )<br />       (setq lst (mapcar '(lambda (x) (if(setq a(distof x)) (rtos a 2 1) x)) lst))<br />       (xyp-SubUpd s1 1 (xyp-Strcat lst ""))<br />      )<br />   )<br />   (xyp-End)<br /> )<br />

YUYUFENG

vitalgg 发表于 2023-4-20 11:37
输入 (fn 1) 保留一位小数。(fn 3) 保留三位小数。

谢谢大佬，看实例是能满足我的期望了，真的谢谢！！

YUYUFENG

xyp1964 发表于 2023-4-20 14:19

谢谢院长，虽然要加载工具箱，院长的代码总是简洁又好用呢！