hn10183051 发表于 2019-12-30 19:42:28

求修改文字小数点位数

求修改文字小数点位数~

要求能支持输入保留位数！谢谢大师~

x_s_s_1 发表于 2019-12-30 22:20:46

试试

(defun c:test (/ ss i n en ent str)
(setq ss (ssget '((0 . "text") (1 . "*`.*"))))
(setq i (getint "\n保留位数:"))
(repeat (setq n (sslength ss))
    (setq en(ssname ss (setq n (1- n)))
    ent (entget en)
    str (cdr (assoc 1 ent))
    str (atof str)
    str (rtos str 2 i)
    ent (subst (cons 1 str) (assoc 1 ent) ent)
    )
    (entmod ent)
    (entupd en)
)
)


革天明 发表于 2019-12-30 21:34:23

要发个dwg才好测试

Vhzeyu 发表于 2020-1-19 14:30:54

测试为4舍5入的功能，并且末尾不能按小数位数以零保留
页: [1]
查看完整版本: 求修改文字小数点位数