Re: Scale multiple objects, each about its own Center
#2Please refer to the simple lisp, multi-scale circle, and arc object.
Code: Select all
(defun c:scCir(/ ent i obj ss)
(vl-load-com)
(if (setq i -1 ss (ssget '((0 . "CIRCLE,ARC"))))
(progn
(SETQ scaleUp (not scaleUp))
(while (setq ent (ssname ss (setq i (1+ i))))
(setq obj (vlax-ename->vla-object ent))
(setq center (vla-get-center obj))
(vla-ScaleEntity obj center (if scaleUp 2 0.5) )) ))
(princ))