Add current annotation scale to objects

[Anonymous]

How to add the current annotation scale to selected objects with visual lisp ?

[DannyNL · Accepted solution]

Quickest way would be to use the command syntax.

(setq ss (ssget))
(command "_AIOBJECTSCALEADD" ss "")

Not sure if annotative scaling is exposed through the object model and can easily be manipulated with the VL-commands. Think this is probably a .NET thingy.

[jwhite]

(setq ss (ssget))
(vl-cmdf "-objectscale" ss "" "add" (getvar "cannoscale") "")

You can also pass it an entity name instead of a selection set.