mleader text issue in LSP

[CAD Brad]

See attached LSP file. The issue I am having is that when I run the lisp, I go to enter the text for the leader and it shows up in the command line rather than next to the leader. Because of that, when I hit the space bar it ends the text and completes the command. I would like to enter my text next to the leader I just inserted. Any ideas?

The whole reason for creating this lisp was to put the layer back to what it was instead of making the leader layer current.

P.S. The LINES.dwg file has the "SMALLARROW" leader style in it that will need to be loaded into the drawing use to test the leader.

[RobertB]

Add: (initcommandversion) before you start the MLeader command.

[CAD Brad]

Thanks Robert, that did the trick. Below is the final version.

(defun c:MECHLEADER ()
  (setvar "cmdecho" 0)
  (setq oldlay (getvar "clayer"))
  (command "-LAYER" "M" "MENOTE" "C" "7" "" "")
  (command "CMLEADERSTYLE" "SMALLARROW")
  (initcommandversion)
  (command "MLEADER")
  (setvar "clayer" oldlay)
  (setvar "cmdecho" 1)
)

[RobertB]

Thanks Robert, that did the trick. Below is the final version.

(defun c:MECHLEADER ()
  (setvar "cmdecho" 0)
  (setq oldlay (getvar "clayer"))
  (command "-LAYER" "M" "MENOTE" "C" "7" "" "")
  (command "CMLEADERSTYLE" "SMALLARROW")
  (initcommandversion)
  (command "MLEADER")
  (setvar "clayer" oldlay)
  (setvar "cmdecho" 1)
)

I hope that isn't the final version. The way the code is written, the original layer will be restored before the MLeader is drawn. Suggest the following revision:

  (initcommandversion)
  (setvar 'CmdEcho 1)
  (command "MLEADER")
  (while (> (getvar 'CmdActive) 0) (command pause))
  (setvar "clayer" oldlay)
  (princ)
)