Author Topic: Change Multileader Defined Height  (Read 12694 times)

0 Members and 1 Guest are viewing this topic.

Jedi Leba

  • Mosquito
  • Posts: 1
Re: Change Multileader Defined Height
« Reply #15 on: March 07, 2023, 05:37:58 PM »
After digging into this a bit more this seems to work ( AutoCAD 2019 ). I would test it out though. I've 'entmodded' mleaders in the past and get some funky results.
Code - Auto/Visual Lisp: [Select]
  1. (defun c:foo (/ s)
  2.   ;; RJP 2019-01-16
  3.   ;; Reset mleader textbox height
  4.   (if (setq s (ssget ":L" '((0 . "multileader"))))
  5.     (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
  6.       (entmod (subst '(44 . 0.0) (assoc 44 (entget e)) (entget e)))
  7.     )
  8.   )
  9.   (princ)
  10. )

Yeah, I'm that kind of CAD user who will get unbearably bothered by things that don't really matter that much such as mleader grips that are lower than the actual text box.

You just saved me so much time with your gorgeous routine. Thank you endlessly.
Glad you can use it :)

My thanks as well - this has bugged me for so long and I just want to let you know how much it is appreciated! Everyone in my office is appreciative as well, it just didn't bug them enough to make them find the solution. :-)