Thanks for bringing up this topic, I could use some help to. Here is what I use <the same thing>. I am looking for something better.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Tool Palette Navigator ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(defun ARCH:ToolPalettesPath (PATH)
;;(VLA-PUT-ToolPalettePath (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))) PATH)
;;)
(defun ARCH:ToolPalettesPath (PATH)
(cond ((<= (distof (substr (getvar "acadver") 1 4)) 16.1)
(VLA-PUT-ToolPalettePath
(vla-get-Files (vla-get-Preferences (vlax-get-acad-object)))
PATH))
((>= (distof (substr (getvar "acadver") 1 4)) 16.2)
(setvar "*_TOOLPALETTEPATH" PATH))))
;;;(ARCH:ToolPalettesPath "V:/ARCH/ToolPalette")
;;;(ARCH:ToolPalettesPath "V:/ARCH/Custom_Architettura/Bloc/ToolPalette_Blks")
;;;(ARCH:ToolPalettesPath "V:/ARCH/Custom_Architettura/Bloc/ToolPalette_Dtls")
;;;(ARCH:ToolPalettesPath "V:/ARCH/Patterns/ToolPalette")
Used in my menu file:
//**ARCH_TOOLPALETTE
[_Toolbar("Tool Palette Flyout", _Floating, _Hide, 225,200,1)]
[_Flyout("Palettes", ARCH_TOOLPALETTE, ARCH_TOOLPALETTE, _OtherIcon, ARCH.ARCH_TOOLPALETTE-FLYOUT)]
**ARCH_TOOLPALETTE-FLYOUT
[_Toolbar("Tool Palette", _Floating, _Hide, 225,200,1)]
[_Button("Arch Program", ARCH_TOOLPALETTE-A_P, ARCH_TOOLPALETTE-A_P)]+
(ARCH:ToolPalettesPath "V:/ARCH/ToolPalette");ToolPalettes;
[_Button("Custom Blocks", ARCH_TOOLPALETTE-BLK, ARCH_TOOLPALETTE-BLK)]+
(ARCH:ToolPalettesPath "V:/ARCH/Custom_Architettura/Bloc/ToolPalette_Blks");ToolPalettes;
[_Button("Custom Details", ARCH_TOOLPALETTE-DTL, ARCH_TOOLPALETTE-DTL)]+
(ARCH:ToolPalettesPath "V:/ARCH/Custom_Architettura/Bloc/ToolPalette_Dtls");ToolPalettes;
[_Button("Hatch Patterns", ARCH_TOOLPALETTE-HAT, ARCH_TOOLPALETTE-HAT)]+
(ARCH:ToolPalettesPath "V:/ARCH/Patterns/ToolPalette");ToolPalettes;
[_Button("Marks and Symbols", ARCH_TOOLPALETTE-SYM, ARCH_TOOLPALETTE-SYM)]+
(ARCH:ToolPalettesPath "V:/ARCH/Custom_Architettura/Syms/ToolPalette_Syms");ToolPalettes;
Gary