标注舍入

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 ": ")

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

KO你

快捷键  dfs  标注舍入
(defun c:dfs (/ *error* ss inputStr prec doc i ent dimObj decimals reset)
(vl-load-com)
(if (not (boundp '*dfs-last-prec*))
(setq *dfs-last-prec* 0.0))
(defun *error* (msg)
(if doc (vla-endundomark doc))
(if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(princ (strcat "\n错误: " msg)))(princ))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark doc)
(setq ss (ssget '((0 . "DIMENSION"))))
(if (null ss)(progn(alert "未选择标注对象!")(exit)))
(initget 0 "F f")
(setq inputStr (getstring
(strcat "\n输入标注舍入精度,按<F>恢复) "(if (> *dfs-last-prec* 0.0)
(strcat "<"(rtos *dfs-last-prec*)">")"")": ")))
(cond((or (equal inputStr "F") (equal inputStr "f"))
(setq reset T)
(setq prec nil))
((equal inputStr "")
(setq reset nil)
(setq prec *dfs-last-prec*))
(T(if (setq prec (distof inputStr))
(progn(setq *dfs-last-prec* prec)
(setq reset nil))
(progn(alert "输入无效，请重新输入数值！")(exit)))))
(if (not reset)
(setq decimals(cond((= (fix prec) prec) 0)
((< prec 0.1) 2)(T 1))))(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq dimObj (vlax-ename->vla-object ent))
(if reset(progn
(vla-put-RoundDistance dimObj 0.0)
(vla-put-TextOverride dimObj "")
(vla-put-PrimaryUnitsPrecision dimObj
(if (vlax-property-available-p dimObj 'UnitsPrecision)
(vla-get-UnitsPrecision dimObj) 2)))
(progn
(vla-put-RoundDistance dimObj prec)
(vla-put-PrimaryUnitsPrecision dimObj decimals)
(vla-put-TextOverride dimObj "\\A1;<>")))
(setq i (1+ i)))
(vla-endundomark doc)
(princ (strcat "\n成功处理了 " (itoa (sslength ss)) " 个标注。"))
(if reset(progn
(princ " 已恢复标注到默认设置（跟随标注样式）。")))
(princ))