Hi gang,

A while back a bunch of you helped me get some code together that would insert a block scaled based on the value of INSUNITS (so they can be inserted from the tool palettes - which ignores the INSUNITS value - ***grumbles under breath***).

Works great, and thanks to Lee Mac, Tharwat, BlackBox and anyone I missed. (It was a while ago)

I'd like to do the same thing for an mleader object.

The code that does the work is below, it simply reads INSUNITS and defines SCL as some scale factor based on that value).

Code:
(cond
      ((= (getvar "INSUNITS") 1) (setq SCL 1))
      ((= (getvar "INSUNITS") 2) (setq SCL 0.08333))
      ((= (getvar "INSUNITS") 4) (setq SCL 25.4))
      ((= (getvar "INSUNITS") 5) (setq SCL 2.54))
      ((= (getvar "INSUNITS") 6) (setq SCL 0.0254))
      (t (alert "Current DWG set to non-standard units.  Check UNITS settings"))
)
Then it's easy enough to insert a block scaled by that factor.

Code:
(command "-insert" "Slope Tag" "Scale" SCL PAUSE "0")
My problem of course is that I want to do the same with one of our Multileader styles, but I can't get "under the hood" of the MLEADER command the way I can with INSERT. Not in LISP anyway...

Any help is greatly appreciated, as always.