Custom button and tool bar 2011

[Efeezy]

I don't know how to make a custom button and tool bar for my lisps in Autocad 2011. It used to be easy in 2000-2005...

[BIGAL]

It still is but use partial menus and just MENULOAD

 

one example looking for more

 

***MENUGROUP=ALANSTOOLBAR
***TOOLBARS
**ALANSTOOLS
ID_TbModify  [_Toolbar("Alans", _Right, _Show, 0, 0, 1)]
AECC_ShowTS  [_Button("Show Toolspace", RCDATA_16_IMAGE, RCDATA_16_IMAGE)]^C^C^C^P_ShowTS
ID_Matchprop [_Button("Match Properties", RCDATA_16_MATCH, RCDATA_16_MATCH)]^C^C_matchprop
ID_Erase     [_Button("Erase", RCDATA_16_ERASE, RCDATA_32_ERASE)]^C^C_erase
ID_Copy      [_Button("Copy", RCDATA_16_COPYOB, RCDATA_32_COPYOB)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
ID_Mirror    [_Button("Mirror", RCDATA_16_MIRROR, RCDATA_32_MIRROR)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_mirror)
ID_Offset    [_Button("Offset", RCDATA_16_OFFSET, RCDATA_32_OFFSET)]^C^C_offset
ID_Array     [_Button("Array...", RCDATA_16_ARRREC, RCDATA_32_ARRREC)]^C^C_array
ID_Move      [_Button("Move", RCDATA_16_MOVE, RCDATA_32_MOVE)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Rotate    [_Button("Rotate", RCDATA_16_ROTATE, RCDATA_32_ROTATE)]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)

 

some custom stuff

Alloff   [_Button("All Off","Alloff.BMP","alloff.BMP")]^c^c^c(setq surface "_COGG All Off")(load "vercheck")(load "listselect")(load "changecontours6")
50mm [_Button("50mm cont","50mm.BMP","50mm.BMP")]^c^c^c(setq surface "_COGG NS 0.05 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
100mm [_Button("100mm cont","100mm.BMP","100mm.BMP")]^c^c^c(setq surface "_COGG NS 0.1 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
200mm [_Button("200mm cont","200mm.BMP","200mm.BMP")]^c^c^c(setq surface "_COGG NS 0.2 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
500mm [_Button("0.50m cont","500mm.BMP","500mm.BMP")]^c^c^c(setq surface "_COGG NS 0.5m Contours")(load "vercheck")(load "listselect")(load "changecontours6")
1m [_Button("1m cont","1m.BMP","1m.BMP")]^c^c^c(setq surface "_COGG NS 1m Contours" )(load "vercheck")(load "listselect")(load "changecontours6")
Triangles [_Button("Triangles","TRI.BMP","TRI.BMP")]^c^c^c(setq surface "_COGG NS Triangles" )(load "vercheck")(load "listselect")(load "changecontours6")