Create Floating Toolbar Via Lisp

[Subidoooo]

Hi Guys

Is it possible to create a floating toolbar via lisp? at the moment i have to go onto each machine and create this toolbar manually. but wondering if it can be made via lisp

 

[BIGAL]

YES.

 

But a toolbar is so easy to make using Notepad. You can load custom toolbars using menu load, I had 2 custom toolbars, just copy the mnu or CUIX to a new pc and load it, all done.

 

Explain what the toolbar needs in terms of command, the second part is if you need to make custom icons they need to be 32x32 in size. There are ways to make them for LASB. Simple Character icons.

 

***MENUGROUP=ALSTOOLBAR
***TOOLBARS
**ALSTOOLS
ID_ALAN_0    [_Toolbar("Alans1", _Right, _Show, 0, 0, 1)]
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)

 

[Subidoooo]

i have custom images for my buttons how do yo select the location for them, how do you load this notepad file into autocad to create the toolbars?

[BIGAL]

Look at what I posted. That is copy of commands from the CUI plus some custom ones.

 

This is a full custom toolbar item

50mm         [_Button("50mm cont","50mm.bmp","50mm.bmp")]^c^c^c(load "changecontours6")

 

50mm a unique ID can leave out

[_Button("50mm cont" this is what the button is known as.

"50mm.bmp","50mm.bmp" this is my custom bitmaps you can have a 16x16 & a 32x32 image.

^c^c^c do Cancel 3 times as some commands need at least 2 if your in the middle of a command when you pick toolbar.

(load "changecontours6") run a lisp program.

 

So make a mnu file then use Menuload to load it into CAD.

 

Get stuck post what you have made here.

 

You can mix and match commands I have a drafting toolbar that has CIV3D commands added to it, this saves changing workspaces. 

 

 

 

 

Edited June 22, 2023 by BIGAL

[Subidoooo]

On 21/06/2023 at 00:56, BIGAL said:

YES.

 

But a toolbar is so easy to make using Notepad. You can load custom toolbars using menu load, I had 2 custom toolbars, just copy the mnu or CUIX to a new pc and load it, all done.

 

Explain what the toolbar needs in terms of command, the second part is if you need to make custom icons they need to be 32x32 in size. There are ways to make them for LASB. Simple Character icons.

 

***MENUGROUP=ALSTOOLBAR
***TOOLBARS
**ALSTOOLS
ID_ALAN_0    [_Toolbar("Alans1", _Right, _Show, 0, 0, 1)]
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)

 

You mentioned that its easy to create via notepad but how do you load it inti autocad?

[BIGAL]

MENULOAD its that simple, follow what appears it asks for menu name, if exist unload and load again.

Edited June 27, 2023 by BIGAL