tool palettes and lisp routine

[Matt Mercer]

A question I have is: I have created lisp routine that switches layers on and off. I work in an architectural firm. For example main floor is "mp" and upper floor is "up" in the lisp routines. I have created main floor palette and an upper floor palette for different blocks . When I hit "mp" I would like the mainfloor palette to load automatically. When I hit "up" for the upper floor then it automatically switches to the upper floor palette. Is there a command to load tool palettes and unload? Thanks for any help Matt

[msretenovic]

A question I have is: I have created lisp routine that switches layers on and off. I work in an architectural firm. For example main floor is "mp" and upper floor is "up" in the lisp routines. I have created main floor palette and an upper floor palette for different blocks . When I hit "mp" I would like the mainfloor palette to load automatically. When I hit "up" for the upper floor then it automatically switches to the upper floor palette. Is there a command to load tool palettes and unload? Thanks for any help Matt

Matt,
To change tool pallettes, you will need to put them into seperate directories and change the directory path. When you change the path, the tool pallette will update itself. Here is the VLisp way to change the directory:

(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object))))  ;;get file preferences
 (setq tpPath (vla-get-toolPallettePath pFiles))  ;;get current tool pallette path
 (setq tpPath "C:\\ACAD\\ToolPallette\\up")  ;;set your path here
 (vla-put-toolPallettePath pFiles tpPath)  ;;set tool pallette path

HTH,

[kennet.sjoberg]

...(setq tpPath (vla-get-toolPallettePath pFiles)) ;;get current tool pallette path...

Hi Michael, when I try
(vl-load-com)
(vla-get-toolPallettePath pFiles) I get
Error: no function definition: VLA-GET-TOOLPALLETTEPATH
why ? (AutoCAD 2002)

: ) Happy Computing !

kennet

[Mike.Perry]

(vl-load-com)
(vla-get-toolPallettePath pFiles) I get
Error: no function definition: VLA-GET-TOOLPALLETTEPATH
why ? (AutoCAD 2002)

Hi

Probably because Tool Palettes didn't exist in AutoCAD 2002, they first made their appearance in AutoCAD 2004.

Have a good one, Mike

[Matt Mercer]

Thank you so much - this seemed to work great!!

Matt

[msretenovic]

Thank you so much - this seemed to work great!!

Matt

Matt,

No problem, that's what we're here for

[Matt Mercer]

I had more time to work on this I did find an error - if you see something I did wrong or stupid I sure appreciate any help.

(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) ;;get file preferences
(setq tpPath (vla-get-toolPallettePath pFiles)) ;;get current tool pallette path
(setq tpPath "e:\\aec\\ACADwin 2005\\johnson\\ToolPalettes\\johnson mainfloor") ;;set your path here
(vla-put-toolPallettePath pFiles tpPath) ;;set tool pallette path

This is what I had in my "mp" lisp routine. I assumed that I set the path on line 3 to what I want. I'm using a server instead of my c drive. I get this error message.

no function definition: VLA-GET-TOOLPALLETTEPATH

I do have the support file looking in that same file.

Thanks Matt

[Mike.Perry]

I had more time to work on this I did find an error - if you see something I did wrong or stupid I sure appreciate any help.

(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) ;;get file preferences
(setq tpPath (vla-get-toolPallettePath pFiles)) ;;get current tool pallette path
(setq tpPath "e:\\aec\\ACADwin 2005\\johnson\\ToolPalettes\\johnson mainfloor") ;;set your path here
(vla-put-toolPallettePath pFiles tpPath) ;;set tool pallette path

This is what I had in my "mp" lisp routine. I assumed that I set the path on line 3 to what I want. I'm using a server instead of my c drive. I get this error message.

no function definition: VLA-GET-TOOLPALLETTEPATH

Hi

vla-get-toolPallettePath has one too many "l"'s

Try the following....

(setq pFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object))))  ;;get file preferences
 (setq tpPath (vla-get-toolPalettePath pFiles))  ;;get current tool palette path
 (setq tpPath "E:\\aec\\ACADwin 2005\\johnson\\ToolPalettes\\johnson mainfloor")  ;;set your path here
 (vla-put-toolPalettePath pFiles tpPath)  ;;set tool palette path

Have a good one, Mike

[msretenovic]

...I get this error message.

no function definition: VLA-GET-TOOLPALLETTEPATH...

vla-get-toolPallettePath has one too many "l"'s

Sorry, that was my fault. As Mr. Perry has already pointed out, I have placed one too many "l"'s in the function name. Thanks Mike for pointing that out

[Matt Mercer]

I got it working great now. Thanks again everone for your help. I did add the ".atc" at the end of the search path and seems to work just like I want it to.

Matt