Hello All,
For occasional Acad users (like engineers doing their own
drawings) that are not likely to get to grips with a tablet
First create a file that loads your favourite lisp files
and include keyboard.lsp  - call it acad.lsp and put in
in the main acad dir - it then loads automatically
I:\acad12\acad.lsp
(load"keyboard")
(load"chgtext")
(load"asctext")
(load"wtext")
(load"chtext")
Then cut and paste the following file and edit it to suit.
Ie all the most often used commands are a single press,
then come the two character aliases, etc
Eg    copy is c
    circle is ci
     erase is e
    extend is ex
  explode is exp
 Next speed tip:
 Using the left hand on the keyboard and keeping the mouse
 on the target allows faster working than anyone (here) using
 a tablet - as soon as the left hand can quickly type the
 following: mid, end, int, tan, cen, qua, ins
 Tablet users are forever losing crosshair position on the drawing
 to pick the above from the tablet outer areas
 Here is that Keyboard lisp file I referred to earlier
i:\acad12\keyboard.lsp
(defun c:a ()(command "arc"))
(defun c:ar()(command "array"))
(defun c:b ()(command "break"))
(defun c:bl()(command "block"))
(defun c:c ()(command "copy"))
(defun c:ch()(command "change"))
(defun c:cha()(command "chamfer"))
(defun c:ci()(command "circle"))
(defun c:d ()(command "dist"))
(defun c:dt()(command "dtext"))
(defun c:e ()(command "erase"))
(defun c:ed()(command "ddedit"))
(defun c:el()(command "ellipse"))
(defun c:ex()(command "extend"))
(defun c:exp()(command "explode"))
(defun c:f ()(command "fillet"))
(defun c:g ()(command "grid")(command "s"))
(defun c:h ()(command "hatch"))
(defun c:i ()(command "insert"))
(defun c:l ()(command "line"))
(defun c:la()(command "layer"))
(defun c:li()(command "list"))
(defun c:m ()(command "move"))
(defun c:me()(command "measure"))
(defun c:mi()(command "mirror"))
(defun c:ml()(command "'ddlmodes"))
(defun c:of()(command "offset"))
(defun c:os()(command "osnap"))
(defun c:p ()(command "'pan"))
(defun c:pe()(command "pedit"))
(defun c:pl()(command "pline"))
(defun c:po()(command "point"))
(defun c:pol()(command "polygon"))
(defun c:q ()(command "quit"))
(defun c:r ()(command "'redraw"))
(defun c:re()(command "regen"))
(defun c:ro()(command "rotate"))
(defun c:sa()(command "save"))
(defun c:sc()(command "scale"))
(defun c:se()(command "select"))
(defun c:sn()(command "snap"))
(defun c:st()(command "stretch")(command "c"))
(defun c:sta()(command "status"))
(defun c:t ()(command "trim"))
(defun c:te()(command "text"))
(defun c:txm()(command"text")(command"m"))
(defun c:v ()(command "vports"))
(defun c:w ()(command "wblock"))
(defun c:z ()(command "'zoom"))
    
Have fun y'all
 -=> Ian >=-
Sincerely yours,
Internet : ian.underwood@esoftc.seuk.com
.!. Confidence, the feeling you had before you knew the problem.
--- Terminate 4.00/Pro*at
---------------