KO你 发表于 2023-7-7 23:38:28

标注舍入

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

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

pizi158545086 发表于 2023-7-8 14:53:53

本帖最后由 pizi158545086 于 2023-7-9 14:19 编辑

(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你 发表于 2023-7-9 03:26:10

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


加载显示   错误: 输入的字符串有缺陷   不知道是什么原因
页: [1]
查看完整版本: 标注舍入