圆径修改

xudongchu · 发表于 2020-7-29 08:54:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 xudongchu 于 2020-7-29 16:38 编辑

1.执行命令后将圆的直径保留小数点后一位进行取整修改直径
2.小数点后一位以后的数值舍弃，不四舍五入。

附件是测试图档+详细说明，请大神帮帮忙！
谢谢

pxr201419 · 发表于 2020-7-29 12:43:53

本帖最后由 pxr201419 于 2020-7-29 16:27 编辑

(defun c:ttt  ()
(prompt "\n选择圆")
(cond
   ((setq ss (ssget '((0 . "CIRCLE"))))
   (setq i 0)
   (while (< i (sslength ss))
      (setq st (entget (ssname ss i)))
      (setq ra (* 2 (cdr (assoc 40 st))))
      (entmod
         (subst
            (cons 40 (/ (+ (fix ra) (/ (fix (* (- ra (fix ra)) 10.0)) 10.0)) 2.0))
            (assoc 40 st)
            st))
      (setq i (1+ i)))
   (prompt "OK")))
(princ))

xudongchu · 发表于 2020-7-29 16:08:23

pxr201419 发表于 2020-7-29 12:43
(defun c:ttt ()
(cond
((setq ss (ssget "x" '((0 . "CIRCLE"))))

你好大神谢谢您的程序请问可以框选吗？一个图档里有的是不需要修改的谢谢！

pxr201419 · 发表于 2020-7-29 16:28:54

xudongchu 发表于 2020-7-29 16:08
你好大神谢谢您的程序请问可以框选吗？一个图档里有的是不需要修改的谢谢！

已更新.........

xudongchu · 发表于 2020-7-29 16:37:03

pxr201419 发表于 2020-7-29 16:28
已更新.........

OK 就是这种效果谢谢大神的热心回答！

账号		自动登录	找回密码
密码			立即注册

[编程申请] 圆径修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评