xotoo 发表于 2019-12-29 21:28:52

标注取整

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


ssdsfg 发表于 2019-12-30 11:03:37

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

start4444 发表于 2019-12-29 22:14:34

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

332319857 发表于 2019-12-30 19:18:48

(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 发表于 2019-12-30 21:35:03

本帖最后由 xotoo 于 2019-12-31 01:02 编辑

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

系统提示：

输入的字符串有缺陷
页: [1]
查看完整版本: 标注取整