将直径更改为最接近的v
嗨，我是这个论坛的新手。好吧，不足为奇，我有一个问题。
我需要一种方法来选择多个圆，并将其舍入到最接近的值。例如：半径值小于7但大于6.5且值大于7但小于7.5的所有圆应转换为7（除第一个小数点后的零外，没有其他值）。
任何命令或小脚本都会非常有用。我自己没有脚本知识。如果你有一个解决方案，并愿意帮助我，那么请！ 或运行此lisp：
(defun c:round()
(setq ss (ssget "X" (list '(0 . "CIRCLE"))))
(repeat (setq i (sslength ss))
(setq c (entget (ssname ss (setq i (1- i)))))
(setq r (fix (+ (cdr (assoc 40 c)) 0.5)))
(entmod (subst (cons 40 r) (assoc 40 c) c))
)
)
页:
[1]