topic Betreff: Lisp for loading and unloading Tool Palettes in Visual LISP, AutoLISP and General Customization Forum

Lisp for loading and unloading Tool Palettes

VincentSheehan — Tue, 03 Apr 2018 17:01:31 GMT

Hi,

I found this on the AUGI forum.

(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) ;;get file preferences
(setq tpPath (vla-get-toolPalettePath pFiles)) ;;get current tool pallette path
(setq tpPath "c:\\Users\\(username)\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support\\ToolPalette") ;;set your path here
(vla-put-toolPalettePath pFiles tpPath) ;;set tool palette path

It works great. I have it assigned to a button in the Ribbon and I toggle between palettes. I would like to have the single button load and unload the tool palette and also load the palette if a palette is already loaded. So if the tool palette is loaded, click it to unload and vice versa. I guess a few If, Then statements need to be added. The above lisp sets the assigned palette current.

Betreff: Lisp for loading and unloading Tool Palettes

cadffm — Tue, 03 Apr 2018 22:00:29 GMT

(if (= (strcase tpPath)    (strcase "c:\\Users\\bbbbb\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support\\ToolPalette"))
    (vla-put-toolPalettePath pFiles "c:\\Users\\aaaaa\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support\\ToolPalette")
    (vla-put-toolPalettePath pFiles "c:\\Users\\bbbbb\\AppData\\Roaming\\Autodesk\\C3D 2018\\enu\\Support\\ToolPalette")
)

Betreff: Lisp for loading and unloading Tool Palettes

VincentSheehan — Thu, 07 Feb 2019 18:23:31 GMT

This might not be the best method but I ended up writing this.

(defun C:eperospal ()
(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) ;;get file preferences
(setq tpPath "f:\\8-Drawing Standards\\Autodesk\\Tool Palettes\\EP-EROS") ;;set your path here
(vla-put-toolPalettePath pFiles tpPath) ;;set tool palette path
   
   (princ)
)