Mleader

[au-s]

Hello,

 

I am trying to make a lisp that corresponds to MLEADER.

 

What this code do is drawing an mleader but when I want to write text as mtext as in MLEADER cad command it does not. What happens is that on command line:

 

Enter Text:

 

When I enter text and hit space it exists.

 

How can I make that little code make me an mtext ?

 

(setq p1 (getpoint "\nStarting Point: ")
p2 (getpoint p1 "\nText placement: ")
 )
 (grdraw p1 p2 1 1)
   (command "_mleader" p1 p2)
 (redraw)
)

[lpseifert]

maybe this?

(command "_mleader" p1 p2 pause)

or just

(command "_mleader")
 (while (> (getvar 'CmdActive) 0) (command pause))