Scale multiple objects, each about its own Center - CAD Software Forum

Scale multiple objects, each about its own Center

Moderators: CMS Inc, avaernes

2 posts

Scale multiple objects, each about its own Center

#1 by martin777

How to do this in Intellicad compatible lisp?

Re: Scale multiple objects, each about its own Center

#2 by QuanNguyen

Please 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))

2 posts

Return to “AutoLisp/SDS”