Custom toolbar & quick command together?

[canuck7783]

I have a custom program and put it on a toolbar.  it works fine when i manual click the toolbar to start my program.  But is there a way to attach a certain keystroke from my keyboard to access this custom toolbar program of mine?

I would like to just press "d" to run my program.  Is this possible?  I already tried making it into a lisp program but for some reason it doesn't work.

Below is the toolbar program that i copied and pasted from the CUI interface. It was something that my company already has been using for dimensions.  I'm jusst trying to figure a way to make it faster for me.

^C^CORTHO ON (COMMAND ".LAYER" "S" "DIM",)

(setq OSM (getvar "osmode"))

(setvar "osmode" 0)

(substr "ENTER FIRST SURFACE: " 1);ID;ENDPOINT \LINE @.06<90 \(setq FP (getvar "lastpoint")) @.06<90 ;Horzdim ENDPOINT

[pendean]

CUI command
scroll down to the KEYBOARD SHORTCUTS, expand it.
Under SHORTCUT KEYS, create one you like and add your toolbar button code to it.