标注舍入

KO你

那个大佬有标注指定舍入的程序吗，分享一下大家学习。

目前只能选出来Ctrl+1打开特性编辑 ；或者在标注样式编辑器的单位里舍入
有没有大佬能写一个框选标注，可以任意指定舍入呢，
因为有时需要舍入有些不需要，在标注样式编辑器的单位最方便，但不通用。
打开特性编辑的话效率出不来。

pizi158545086

(defun ureal (bit kwd msg def / inp);by院长
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
)
;标注取整
(defun c:ZX( / ss len i blk)
                                (setq OLDDIMRND (getvar "DIMRND" ))
                                (setq rnd (Ureal 5 "" "舍入值" rnd))
                (if (setq ss (SSGET ((0 . "*Dimension"))))
                                (progn
                                        (setq len (sslength ss)
                                                                i 0)
                                        (repeat len
                                                (setq blk (ssname ss i))
                                                (vla-put-RondDisance (vlax-ename>vla-object blk ) rnd)
                                                (setq i (1+ i))
                                        )
                                )
                )
                (setvar "DIMRND" OLDDIMRND)
)

KO你

pizi158545086 发表于 2023-7-8 14:53
(defun ureal (bit kwd msg def / inp);by院长
  (if def
    (setq msg (strcat "\n" msg ": ")

加载显示   错误: 输入的字符串有缺陷   不知道是什么原因