Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
Valued Contributor
bdsmls
Posts: 85
Registered: ‎10-17-2008
Message 1 of 3 (305 Views)

LISP to create a two line MLEADER

305 Views, 2 Replies
07-18-2012 08:36 AM

I'm trying to write a lisp routine to create a two line MLEADER but i can only get one line of text. Creating the MLEADER manually from the command line i just have to hit enter after the first line of text to add a second line. How would i do this in a lisp routine?

 

Larry

*Expert Elite*
Hallex
Posts: 1,569
Registered: ‎10-08-2008
Message 2 of 3 (270 Views)

Re: LISP to create a two line MLEADER

07-22-2012 02:42 PM in reply to: bdsmls

Hi, Larry

Try this routine, set your text before:

(defun C:demo(/)
(setq txt "Blah\\PBlah\\PBlah");<-- set mleader text here
(princ "Type any character in the mtext window")
(command "_mleader" "_O" "_C" "_M" "_A" "_Y" "" "_X"  "_L" "_C" pause pause pause)
(setq ee (entget (setq en (entlast))))
(setq ee (subst (cons 304 txt)(assoc 304 ee) ee))
  (entmod ee)
  (entupd en)
  (command "_mleaderedit" "_L" "" "_A" (getpoint ) "")
  (princ)
  )

 

~'J'~

_____________________________________
C6309D9E0751D165D0934D0621DFF27919
Valued Contributor
bdsmls
Posts: 85
Registered: ‎10-17-2008
Message 3 of 3 (254 Views)

Re: LISP to create a two line MLEADER

07-23-2012 04:09 AM in reply to: Hallex

thanks for the response J

i just came up with a solution on friday thats works very nicely

 

(SETQ TELE(STRCAT TPFIX (RTOS TLV 4 2)))

(SETQ BELE(STRCAT BPFIX (RTOS BLV 4 2)))

(SETQ DUCEL(STRCAT TELE (CHR 10) BELE))

(COMMAND "MLEADER" BPT PAUSE DUCEL)

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.