Visual LISP, AutoLISP and General Customization

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

LISP to create a two line MLEADER

291 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 (256 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 (240 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)

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

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 to get help installing your software.

Ask the Community