Scale ALL Blocks Simultaneously By Insertion Point
Scale ALL Blocks Simultaneously By Insertion Point
(OP)
Does anyone know how to scale ALL the blocks in a drawing simultaneously by their insertion points. I want to change the size of all of the blocks without losing having to move them back into position when I'm done. This shouldn't be too hard in LISP right? (I'm just learning LISP right now)





RE: Scale ALL Blocks Simultaneously By Insertion Point
(DEFUN C:SC1 (/ s2) ; Scale by factor about INS of object
(Setq s2 (GetReal "Scale factor: "))
(if (= s2 0.0) (setq s2 2.0))
(While (<= 0.0 s2)
(COMMAND "SCALE" "SI" "INS" PAUSE "@0,0" s1)
)
)
RE: Scale ALL Blocks Simultaneously By Insertion Point
Thanks
Matt
RE: Scale ALL Blocks Simultaneously By Insertion Point
Then you pick a block and it scales it by that scale factor about the insertion point. Keep picking blocks and it scales each the same way.
It would be relatively easy to add to the macro the ability for you to select one of the blocks and have it scale all the blocks of that name by the same scale factor about their insertion points.
RE: Scale ALL Blocks Simultaneously By Insertion Point
Set APPLY TO - Entire Drawing
OBJECT TYPE - Block Reference
PROPERTY - Name
OPERATOR - Equals
VALUE - Select Required Block
HOW TO APPLY - Include In New Selection Set
Click OK
Go into Properties (ctrl+1)
Change X, Y and Z values to whatever you want.
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point
Matt
RE: Scale ALL Blocks Simultaneously By Insertion Point
Of course! Using quickselect - quite a simple solution that I had overlooked. I didn't remember you could scale something that way.
An even faster method would be to just the right-click menu on one block and choose "Select Similar". I'm using CAD 2005, so I don't know if the feature is supported in other versions, but I use it a lot.
Dan
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point
RE: Scale ALL Blocks Simultaneously By Insertion Point