ninja37 发表于 2024-8-14 13:31:14

【悬赏5明经币求程序】求"批量修改圆直径"的lisp

请求哪位大师帮忙写一个lisp程序
批量修改圆直径的程序很多，一直没有找到合适的
程序要求：习惯先选择圆然后亮显选择的圆再提示输入圆的直径
要求 ：1   ssget能筛选指定图层的圆    比如只选择图层0上面的圆

             2   选择各种大小的圆以后   批量改成一个直径，不要输入多次直径

ssyfeng 发表于 2024-8-14 13:31:15

试试：



ninja37 发表于 2024-8-14 13:33:38

(defun C:LHchangCIRCLEdimLayer4 (/ ss n s1 rad)
(setq rad (getreal "\n输入新的直径 : "))
(while (setq ss (ssget ":S" '((0 . "CIRCLE")(8 . "4"))))
    (setq n 0)
    (repeat (sslength ss)
      (setq s1 (ssname ss n))
      (sub_upd s1 40 (* rad 0.5))
      (setq n (1+ n))
    )
)
)

目前再用这个   只能先输入直径再选择圆很别扭   而且不能亮显选择的圆    亮显可以方便检查选的是哪些圆

ninja37 发表于 2024-8-21 21:57:32

ssyfeng 发表于 2024-8-14 13:31
试试：

谢谢大神，问题解决了

season_88 发表于 2025-3-22 01:30:42

谢谢大师分享
页: [1]
查看完整版本: 【悬赏5明经币求程序】求"批量修改圆直径"的lisp