[求助]：如何将多个圆圈在原位置同时放大？

rwwsh_q

我搞结构设计，经常要用到将钢筋编号外好多圆圈在原位置放大或所缩小，如果编号多了，一个一个的改，太麻烦，有没有好的办法？

chenlei

这个问题在CAD2006中会解决，否则没人再愿意升级了。

small3d

二楼的回答真是经典！幽默！

贱人

很简单的，你可以把圆作成一个块，基点选圆心，复制到各个地方
改变尺寸时只要再画一个你需要的尺寸的圆，把它也做成块，名字用你刚才的那个块的名字，这样老的块就会被重定义，都变成新的尺寸了

ywdywd

找找专业软件。cass就有这个功能

wardhowe

如果所有的圆都是从一个大小变成另外一个大小都是有可能的，不会做flash，只能贴图了。。。。。

wardhowe

第二步，请注意红色框部分

wardhowe

最后一步统一改半径，如果不同半径的圆改为同一半径的也可以用此方法。。。。。

rwwsh_q

我试过了，在autocad2002以上的版本中都可以改，但在R14中可以改吗？谢谢！

wardhowe

呵呵，这就不知道了。。。。。。
怎么不愿意升级啦？？！！

teyjzy_yl

??有朋友编了这段代码，可以解决楼主的问题的。
[PHP]
(defun c:cr()
    (setq cm0(getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (princ "\n \n \n")
        (setq r(getreal "相同的半径<单个修改>:"))
    (if r (progn
    (setq ss(ssget))
    (while ss
    (setq ll(sslength ss))
    (setq ll0 -1)
    (repeat ll
        (setq ll0(+ ll0 1))
        (setq si(ssname ss ll0))
        (setq cc( entget si))
        (setq ty(cdr (assoc 0 cc)))
        (if (or (= ty "CIRCLE") (= ty "ARC"))
        (progn
        (setq r0(cdr (assoc 40 cc)))
        (setq cc(subst (cons 40 r)(assoc 40 cc)cc))
        (entmod cc)(entupd si)
        ))
     )
     (setq ss(ssget))
     ))
     (progn
    (setq si(entsel "\n选择圆或弧："))
    (while si
        (setq cc(entget (car si)))
        (setq ty(cdr (assoc 0 cc)))
        (if (or (= ty "CIRCLE") (= ty "ARC"))
        (progn
            (setq nm(cdr (assoc -1 cc)))
            (setq r0(cdr (assoc 40 cc)))
            (princ r0)(setq r(getreal "->"))
            (if r (progn
            (setq cc(subst (cons 40 r)(assoc 40 cc)cc))
            (entmod cc)(entupd nm)))
        ))
        (setq si(entsel "\n选择圆或弧："))
    )
     ))
     (setvar "cmdecho" cm0)
)
[/PHP]

贱人

11楼的，有个小问题，使用单个修改怎么不行啊？

CR
相同的半径<单个修改>:
选择圆或弧：; 错误: no function definition: FLD

陌生人

[php]
(defun c:xsc (/ sc ss e pt)
  (princ "\n缩放实体－－by 陌生人.")
  (command ".undo" "be")
  (setq sc (getdist "\n缩放倍数:")
        ss (ssget) i -1)
  (repeat (sslength ss)
    (setq e  (ssname ss (setq i (1+ i)))
          pt (trans (cdr (assoc 10 (entget e))) 0 1))
    (command ".scale" e "" pt sc)
  )
  (command ".undo" "e")
)
[/php]

teyjzy_yl

最初由 贱人 发布
[B]11楼的，有个小问题，使用单个修改怎么不行啊？

CR
相同的半径<单个修改>:
选择圆或弧：; 错误: no function definition: FLD [/B]

12楼的朋友，不好意思，出了点小错，我已修改。经测试，现在可以用了。
13楼朋友的简短精干，向你学习！稍感遗憾的只是不能单个修改。

water02

13楼的程序不错，能不能改成两种修改模式，一种是按半径（能将不同半径的改成制定半径大小的）；一种按缩放倍数（能将不同半径的改为原有半径的制定倍数），这样的话，就很好了