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

ninja37

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

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

ssyfeng

试试：

ninja37

(defun CHchangCIRCLEdimLayer4 (/ 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

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

谢谢大神，问题解决了