Topic: Multileader Z Value

[Dave M]

Does anyone have a quick way to set/change the elevations of multileaders?
Cheers

[ronjonp]

Try something like this:

Code: [Select]

(defun c:foo (/ e elev ss)
  (if
    (and (setq elev (getdist "\nEnter elevation: ")) (setq ss (ssget ":L" '((0 . "MULTILEADER")))))
     (while (setq e (ssname ss 0))
       (entmod (mapcar '(lambda (x)
  (if (member (car x) '(10 12 110))
    (list (car x) (cadr x) (caddr x) elev)
    x
  )
)
       (entget e '("*"))
       )
       )
       (ssdel e ss)
     )
  )
  (princ)
)

[Dave M]

That worked perfectly, thanks!  BTW why is the function named foo?
Cheers
Dave

[ronjonp]

...   BTW why is the function named foo?
Cheers
Dave

Glad to help 

http://www.urbandictionary.com/define.php?term=foo

[Dave M]

Got it, thanks!

[lamarn]

How does this work? I do see that elevation is not a property listed.. (?)

[ronjonp]

All I did was dump the entity data then looked for point lists within and modified them with ENTMOD