[求助]：比如说有3个非同心圆，现在想以各自的圆心同一比例缩放，怎么做？

yexing

比如说有3个非同心圆，现在想以各自的圆心同一比例缩放，怎么做？

eachy

搜索本版精华，实体缩放

沙漠绿洲

[PHP](defun c:chrr ()
;改圆的半径
  (setvar "CMDECHO" 0)
  (setq olderr *error* *error* at_err)
;
;
  (princ "\n该功能可实现对多个圆及弧的半径编辑。请选择欲修改的圆(弧): ")

  (if (not
        (setq ss (ssget
                       '((-4 . "<OR")
                         (0 . "CIRCLE")
                         (0 . "ARC")
                         (-4 . "OR>"))
                 )
        )
      )
    (progn
      (princ "\nNothing selected.\n")
      (princ)
      (exit)
    )
  )

  (setq n (sslength ss))
  (setq ic -1)
  (setq kr (getdist "\n缩放比例 <统一半径直接回车> : "))
  (if (= kr nil)
    (setq crr (getdist "\n统一半径: "))
  )
  (repeat n
    (setq ic (+ ic 1))
    (setq en (ssname ss ic))
    (setq el (entget en))
    (setq r1 (cdr(assoc 40 el)))
    (if (/= kr nil)
      (setq crr (* r1 kr))
    )
    (setq el (subst (cons 40 crr) (assoc 40 el) el))
    (entmod el)
  )
;
;
  (setq *error* olderr)
  (princ)
)[/PHP]

lsjjm

VLISP会更简化:[php]
(defun c:test ()
  ;(vl-load-com)
  (setq ss (ssget '((0 . "ARC,CIRCLE"))))
  (initget 7)
  (setq sc (getreal "ScaleFactor: "))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-radius obj (* (vla-get-radius obj) sc))
    (setq n (1+ n))
  )
)[/php]

jx2008

谢谢了，很好用，两年前的东西了

xbaron

eachy总是这么潇洒！~但你能不能不这么惜墨如金，ps.搜索过后并未找到！