Hi all,
I don't get to hangout here as often as I'd like but I wanted to drop by and share a super simple and cheap multileader driving subfunction that I have found extreamly fast and useful. I put this together for my own use but I want to share just in case someone here will find it useful too.
;;; AUTHOR ;;; Chuck Middaugh (mid-awe at http://www.mid-awe.com) ;;; subfunction to drive Multileader command: ;;; - Intended for use with scripts and custom LISPs ;;; - Call ex: (ALDR "Multiline Text with\ncontinuous adding of leaders" ARROWHEAD_point) ;;; ;;; I like to drive the point of the first arrowhead to quickly label block inserts. ;;; ex: (ALDR "Multiline Text with\ncontinuous adding of leaders" (CDR (ASSOC 10 (ENTGET (ENTLAST))))) ;;; ;;; - Takes two arguments. ;;; - LDRTEX is the string for multilinetext. ;;; - PT is the point for the first leader's arrowhead; if NIL is sent instead of an actual point then the user is prompted to pick a point on screen. ;;; - After the text is placed, then addleader is invoked to add as many as you wish until enter is pressed. (DEFUN ALDR (LDRTEX PT) (SETVAR 'ORTHOMODE 0) (IF (NULL PT) (SETQ PT (GETPOINT (STRCAT "\nSpecify leader arrowhead location: ")))) (VL-CMDF "_.mleader" PT PAUSE LDRTEX) (VL-CMDF "AIMLEADEREDITADD" (ENTLAST)) (VL-CMDF "TEXTTOFRONT" "ALL") (PRINC) )
Everyone feel free to modify / improve or anything else you like with this. I am only sharing in hopes that you may find it useful, but I am very interested to see what you might do with it beyond my original intent.
Have fun and please share back if you improve this "ALDR" subfunction. 
