LSP to change Annotation Object Scale to current scale and remove any other scale

[aitorm]

Many times I find myself cleaning plans or drawing something in a wrong scale and need to change many object's scales in a bulk to current's one, deleting any other. I would like it to work with any object that can hold a scale list, like mleaders, text, blocks or dimmensions. Could you help me find or create a LSP that helps with that?

[Rick_Tolleshaug_TSC · Accepted solution]

Attached is ChgToCannoscale.lsp (command "CHGTOCANNOSCALE") which does exactly what you're requesting.

I wrote this for my own use several years back and use it far more than any AutoCAD annotative scale command.

I've also attached (2) 16x16 pixel icon PNG files (Dark and Light color themes) in case you want to add this command to a toolbar or ribbon panel.

[aitorm]

Exactly what I needed. I already used 3 times. Thanks a lot!!!

[rstanford2FEW7]

@Rick_Tolleshaug_TSC do you have any lisp routines to change or rename Annotation scales? We currently use Land F/X and it sets scale factors a little differently than what came with Autocad out of the box. I would like something that would autocorrect the scale name, and raito if it was wrong.