标注取整

xotoo

各位大佬
能不能帮写一个标注取整的小程序——就是选择（可以框选）部分标注后，把标注数值不是5或者10的，取整为5或者10的整数

ssdsfg

修改标注样式应该能是你想要的结果。

start4444

http://bbs.mjtd.com/thread-179100-1-1.html

332319857

(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:tt( / 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-RoundDistance (vlax-ename->vla-object blk ) rnd)
                                                (setq i (1+ i))
                                        )
                                )
                )
                (setvar "DIMRND" OLDDIMRND)
)

xotoo

332319857 发表于 2019-12-30 19:18
(defun ureal (bit kwd msg def / inp);by院长
  (if def
    (setq msg (strcat "\n" msg ": ")

系统提示：

输入的字符串有缺陷