Delete all Objectscales except current

[Anonymous]

Does anyone have a LISP that can delete all the objectscales except the current one?

[Anonymous]

Look for Scalelistdel.lsp here, it might be what you want
http://management.cadalyst.com/cadman/article/articleDetail.jsp?id=469860

[Anonymous]

That is quite a nice lisp (I plan on keeping that around). But it only effets the scale list. I want to actually remove the scaled annotative objects for all scales except the current one. If someone has autoscale on and changes the scale 10 times then the object exists on 10 scales. if the drawing is then exported there will be 10 layers created for the objects. I want a way to purge all of them but the current one.