Ok you will still need a button for kerb path road etc but 1 program, I would put the lisp as autoloaded on startup
Code:
; Mtext at Viewtwist rotation
(defun mtr (curlayer / )
(setvar 'clayer curlayer)
(setq twang (-(/ (* (GETVAR "viewtwist") 180.0) PI))
)
(initdia)
(command "mtext" PAUSE "R" twang "J" "TC")
)
your buttons
Code:
^c^c^p(mtr "Kerb")
^c^c^p(mtr "Road")
^c^c^p(mtr "Pipe")
if you want a keyboard option you will need another lisp as you are changing layer name. Could be as simple as a number of defuns
Code:
(defun c:mtrk () (mtr "Kerb"))
(defun c:mtrp () (mtr "Pipe"))
(defun c:mtrr () (mtr "Road"))