Topic: Floating Toolbar Locations

[Dave M]

I created a workspace for myself with a few floating toolbars.  If I switch to another workspace and then switch back my toolbars are not where I placed them.


Does anyone have, or know of, a routine that would save the positions of the floating toolbars so I can place them back where I want them easily?


Thanks for any possible help

[dgorsman]

There is a setting which controls auto-saving your workspace.  When this is off, you need to manually save any changes you make e.g. moved/hidden/shown toolbars.  When it's on any changes are saved as you make them; however, this counts *any* changes including some situations where you don't want it saved e.g. a partially loaded CUIx cannot be found when starting the program, or temporarily hiding something because you don't need it right now.

I usually recommend keeping the setting as off, and deliberately saving changes rather than letting the program decide "Hey that's new so we'll keep going with that...".

Check out the WSAUTOSAVE system variable and the WSSAVE command.

[Lee Mac]

Agree with dgorsman, but the following is a quick function to obtain the positions of all floating toolbars for a given menugroup:

Code - Auto/Visual Lisp: [Select]

1. (defun floatingtoolbarpositions ( mgp / mnu rtn )
2.     (if
3.         (not
4.             (vl-catch-all-error-p
5.                 (setq mnu
6.                     (vl-catch-all-apply 'vla-item
7.                         (list (vla-get-menugroups (vlax-get-acad-object)) mgp)
8.                     )
9.                 )
10.             )
11.         )
12.         (vlax-map-collection (vla-get-toolbars mnu)
13.             (function
14.                 (lambda ( tbr )
15.                     (if (and (= :vlax-true (vla-get-visible tbr)) (= actoolbarfloating (vla-get-dockstatus tbr)))
16.                         (setq rtn
17.                             (cons
18.                                 (list
19.                                     (vla-get-name tbr)
20.                                     (vla-get-top  tbr)
21.                                     (vla-get-left tbr)
22.                                 )
23.                                 rtn
24.                             )
25.                         )
26.                     )
27.                 )
28.             )
29.         )
30.     )
31.     (reverse rtn)
32. )

e.g.:

Code - Auto/Visual Lisp: [Select]

1. (floatingtoolbarpositions "ACAD")

[Dave M]

dgorsman - I always keep the WSAUTOSAVE setting at zero; thanks for the reply.


Lee - thanks for the code. Works perfect as usual.  Is it normal for the "Y" value to be listed first?


I wish I knew how to code.  I would create something that would let me write the coordinates of the toolbars to a text file that I could import if I wanted at a later date.


I should have mentioned that I am using Civil 3D.  I don't think it matters, but I can't understand why they don't come back to their original positions.


Thanks again.

[GDF]

You can always hard code them into a position.
First show them, then position them as in code below:

Code: [Select]

  (command "toolbar" "ALL" "hide")
  (command "toolbar" "acad.TB_STANDARD" "show")
  (command "toolbar" "acad.TB_LAYER" "show")
  (command "toolbar" "arch.arch_program" "show")
  (command "toolbar" "arch.arch_sset" "show")
  (command "toolbar" "arch.arch_toolpalette" "show") 
  (command "toolbar" "acad.TB_STANDARD" "top" "0,0")
  (command "toolbar" "acad.TB_LAYER" "top" "515,0")
  (command "toolbar" "arch.arch_program" "top" "825,0")
  (command "toolbar" "arch.arch_sset" "top" "900,0")
  (command "toolbar" "arch.arch_toolpalette" "top" "950,0")



[MSTG007]

Thanks for sharing that. I had no idea you could do that.

[Marc'Antonio Alessi]

Agree with dgorsman, but the following is a quick function to obtain the positions of all floating toolbars for a given menugroup:
...
e.g.:

Code - Auto/Visual Lisp: [Select]

1. (floatingtoolbarpositions "ACAD")

I get nil...  where am I wrong?
Comando: (vla-get-toolbars (vla-Item (vla-get-menugroups (vlax-get-acad-object)) "Acad"))
#<VLA-OBJECT IAcadToolbars 0000000031adbcb8>
Comando: (floatingtoolbarpositions "Acad")
nil

[Dlanor]

I get nil...  where am I wrong?
Comando: (vla-get-toolbars (vla-Item (vla-get-menugroups (vlax-get-acad-object)) "Acad"))
#<VLA-OBJECT IAcadToolbars 0000000031adbcb8>
Comando: (floatingtoolbarpositions "Acad")
nil

Does your workspace have any floating toolbars? 

[Andrea]

I've created my own config allowing to save toolbars layouts..

[Dave M]

I've created my own config allowing to save toolbars layouts..

That looks like it works nicely!

[Marc'Antonio Alessi]

I get nil...  where am I wrong?
Comando: (vla-get-toolbars (vla-Item (vla-get-menugroups (vlax-get-acad-object)) "Acad"))
#<VLA-OBJECT IAcadToolbars 0000000031adbcb8>
Comando: (floatingtoolbarpositions "Acad")
nil

Does your workspace have any floating toolbars? 

You are right! I thought it would give me the position of all the toolbars. I apologize.

Edit:  modified line:   (if (= :vlax-true (vla-get-visible tbr)) ; (= actoolbarfloating (vla-get-dockstatus tbr))

[Andrea]

I've created my own config allowing to save toolbars layouts..

That looks like it works nicely!

thanks,..I use it every days...with all users costum toolbars...
combined with another tool called MENULOADS wich allows to load and unload multiple menu in one shot..
and detect, edit, and save setting and associated MNL files..

[Dave M]

Is this something you would be willing to share?