Mtext on a set layer

I am trying to devise a lisp program that will allow me to insert Mtext on a specific layer, i can get to the point where the box is picked than nothing happens, any ides would be apprecisted.
Cheers.

(defun c:txtlayernotes (/ clayer)
(setq Clayer (getvar "clayer"))
(command "layer" "m" "03-NOTES-1" "c" 7 "" "")
(command "_mtext")
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))(command pause))
(setvar "clayer" clayer)
)

 

You might try this

(initdia)
(command "_mtext")

--
Autodesk Discussion Group Facilitator

a specific layer, i can get to the point where the box is picked than
nothing happens, any ides would be apprecisted.

 

You're welcome.

 

Any ideas on this one, same principle but with a quick leader!
Cheers!

(defun c:leaderlayernotes (/ clayer)
(setq Clayer (getvar "clayer"))
(command "layer" "m" "03-NOTES-1" "c" 2 "" "")
(initdia)
(command "_qleader")
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))(command pause))
(setvar "clayer" clayer)
)

 

Have you looked at the AutoLay function?
It was posted here some time ago:

http://www.google.com/groups?as_q=a...roup=autodesk.autocad.customization&lr=&hl=en

 

I ahve now, thats a cool programme, Cheers!