Topic: Macro to Lsp

[MSTG007]

Guys
I am playing around with trying to create a simple routine from a macro I use a lot. I was thinking it would be easier to be typed in command opposed to a button I have to go find and push.

Code: [Select]

-la;s;C_NOTES;;CMLEADERSTYLE;"L80 CIRCLE WITH MTEXT";MLEADER;NEA;

Code: [Select]

-la;s;C_NOTES;;CMLEADERSTYLE;"L80 Leader Text Straight";MLEADER;NEA;
I have an example I am trying to follow, but I can not seem to get the OSNAP portion to work.

Code: [Select]

(defun C:mlo ()
(setvar "cmdecho" 0)
(setq CL (getvar "clayer")
) ;_ end of setq

(command "-LAYER" "M" "C_NOTES" "C" "82" "C_NOTES" "")
(setvar "cmleaderstyle" "L80 Circle")
(command ".mleader" pause)
(setvar "clayer" CL)
(princ)
)
(setvar "cmdecho" 0)

(princ)


(defun C:mlt ()
(setvar "cmdecho" 0)
(setq CL (getvar "clayer")
) ;_ end of setq

(command "-LAYER" "M" "C_NOTES" "C" "82" "C_NOTES" "")
(setvar "cmleaderstyle" "L80 Leader Text Straight")
(command ".mleader" pause)
(setvar "clayer" CL)
(princ)
)
(setvar "cmdecho" 0)

(princ)

[ronjonp]

(command ".mleader" "_Near" pause)

[MSTG007]

Sorry for not getting back. Thank you!

[ronjonp]

Sorry for not getting back. Thank you!