求助一个LISP, 完整可运行的。刷标注成小数点后一位标注。

469229020@QQ.CO

求助一个LISP,  完整可运行的。刷标注成小数点后一位标注。

469229020@QQ.CO

(defun c:tt( / e en rd rd1 sd1 ti%)
  (princ "\n选择要修改的尺寸：")
  (setq sd1 (ssget '((0 . "DIMENSION"))))
  (setq ti% 0)
  (repeat  (sslength sd1)
     (setq en (ssname sd1 ti%))
     (setq e (entget en))
     (setq rd (cdr (assoc 42 e)))
     (if (equal (fix rd) (fix (+ 0.1 rd)) 0)
         (setq rd1 (rtos (fix rd) 2 0))
         (setq rd1 (rtos (+ (fix rd) 0.1) 2 1))
    )
  (entmod (subst (cons 1  rd1) (assoc 1 e) e))
    (setq ti% (+ 1 ti%))
)
)

不知道为什么老是报错，能麻烦看一下吗，想将框选的所有标注改成，自己想要的小数点后一位。或两位。默认是1位，希望自己可以设置改

cds15980954301

469229020@QQ.CO 发表于 2025-3-21 01:45
(defun c:tt( / e en rd rd1 sd1 ti%)
  (princ "\n选择要修改的尺寸：")
  (setq sd1 (ssget '((0 . "DI ...

理解错误了