将直径更改为最接近的v

razaim · 发表于 2022-7-8 11:00:59

嗨，我是这个论坛的新手。

好吧，不足为奇，我有一个问题。

我需要一种方法来选择多个圆，并将其舍入到最接近的值。例如：半径值小于7但大于6.5且值大于7但小于7.5的所有圆应转换为7（除第一个小数点后的零外，没有其他值）。

任何命令或小脚本都会非常有用。我自己没有脚本知识。如果你有一个解决方案，并愿意帮助我，那么请！

rkent · 发表于 2022-7-8 12:28:34

或运行此lisp：

copy

(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))
   )
 )

[综合讨论] 将直径更改为最接近的v

发表回复

精选推荐