求助一个LISP, 完整可运行的。刷标注成小数点后一位标注。
求助一个LISP,完整可运行的。刷标注成小数点后一位标注。(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 1rd1) (assoc 1 e) e))
(setq ti% (+ 1 ti%))
)
)
不知道为什么老是报错，能麻烦看一下吗，想将框选的所有标注改成，自己想要的小数点后一位。或两位。默认是1位，希望自己可以设置改
本帖最后由 cds15980954301 于 2025-3-22 23:14 编辑
469229020@QQ.CO 发表于 2025-3-21 01:45
(defun c:tt( / e en rd rd1 sd1 ti%)
(princ "\n选择要修改的尺寸：")
(setq sd1 (ssget '((0 . "DI ...
理解错误了
页:
[1]