自定义按钮和工具栏201
我不知道如何在Autocad 2011中为我的lisps制作自定义按钮和工具栏。在2000年至2005年，这件事过去很容易。。。 它仍然是，但使用部分菜单和菜单加载一个例子寻找更多
***MENUGROUP=ALANSTOOLBAR
***TOOLBARS
**ALANSTOOLS
ID_TbModify
AECC_ShowTS^C^C^C^P_ShowTS
ID_Matchprop ^C^C_matchprop
ID_Erase ^C^C_erase
ID_Copy $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
ID_Mirror $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_mirror)
ID_Offset ^C^C_offset
ID_Array ^C^C_array
ID_Move $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Rotate $M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)
一些定制的东西
Alloff ^c^c^c(setq surface "_COGG All Off")(load "vercheck")(load "listselect")(load "changecontours6")
50mm ^c^c^c(setq surface "_COGG NS 0.05 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
100mm ^c^c^c(setq surface "_COGG NS 0.1 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
200mm ^c^c^c(setq surface "_COGG NS 0.2 Contours")(load "vercheck")(load "listselect")(load "changecontours6")
500mm ^c^c^c(setq surface "_COGG NS 0.5m Contours")(load "vercheck")(load "listselect")(load "changecontours6")
1m ^c^c^c(setq surface "_COGG NS 1m Contours" )(load "vercheck")(load "listselect")(load "changecontours6")
Triangles ^c^c^c(setq surface "_COGG NS Triangles" )(load "vercheck")(load "listselect")(load "changecontours6")
页:
[1]