Get the current support paths and add new paths

[framedNlv]

I just wanted to share this with everyone. It will get the current support paths and add new paths.

(SETQ ORIGPATH (STRCAT (GETENV "ACAD")";"))
(SETQ ONEPATH (STRCAT "E:\\BMP;E:\\PROJECTS\\SSS;E:\\PROJECTS\\OUR_BLOCKS;E:\\PROJECTS\\OUR_BLOCKS\\Symbol_List;"));ADD PATHS HERE, NOT TO MANY OR IT GETS CUT OFF
(SETQ TWOPATH (STRCAT "E:\\lisp;E:\\lisp\\LAYER-COLOR;E:\\lisp\\New_PANELS;"));ADD MORE HERE
(SETQ THREEPATH (STRCAT "E:\\lisp\\NOT USED;E:\\PROJECTS\\OUR_BLOCKS\\Symbols;E:\\PROJECTS\\scripts;E:\\FONTS\\SHX;E:\\lisp\\lisp;C:\\Program Files\\Autodesk\\Migration Tools;"));ADD MORE
(SETQ FOURPATH (STRCAT "E:\\lisp\\lisp\\BLK-INS"));ADD MORE HERE,NOTE - NO SEMI COL AT THE END

(SETQ MYENV (STRCAT ORIGPATH ONEPATH TWOPATH THREEPATH FOURPATH))

(SETENV "ACAD" MYENV)

(strlen (getenv "ACAD"));DON'T GO OVER 800 OR BAD THINGS HAPPEN

Let me know if this helps or if there are any improvements that can be made.

Chris

[rkmcswain]

You can also do it using the ActiveX object library as shown in this post [ http://forums.augi.com/showthread.ph...43797#poststop ]

[Opie]

I just wanted to share this with everyone. It will get the current support paths and add new paths.

(SETQ ORIGPATH (STRCAT (GETENV "ACAD")";"))
(SETQ ONEPATH (STRCAT "E:\\BMP;E:\\PROJECTS\\SSS;E:\\PROJECTS\\OUR_BLOCKS;E:\\PROJECTS\\OUR_BLOCKS\\Symbol_List;"));ADD PATHS HERE, NOT TO MANY OR IT GETS CUT OFF
(SETQ TWOPATH (STRCAT "E:\\lisp;E:\\lisp\\LAYER-COLOR;E:\\lisp\\New_PANELS;"));ADD MORE HERE
(SETQ THREEPATH (STRCAT "E:\\lisp\\NOT USED;E:\\PROJECTS\\OUR_BLOCKS\\Symbols;E:\\PROJECTS\\scripts;E:\\FONTS\\SHX;E:\\lisp\\lisp;C:\\Program Files\\Autodesk\\Migration Tools;"));ADD MORE
(SETQ FOURPATH (STRCAT "E:\\lisp\\lisp\\BLK-INS"));ADD MORE HERE,NOTE - NO SEMI COL AT THE END

(SETQ MYENV (STRCAT ORIGPATH ONEPATH TWOPATH THREEPATH FOURPATH))

(SETENV "ACAD" MYENV)

(strlen (getenv "ACAD"));DON'T GO OVER 800 OR BAD THINGS HAPPEN

Let me know if this helps or if there are any improvements that can be made.

Chris

Shouldn't you check for the length of the string prior to setting the environment variable?

[framedNlv]

RK,
Thanks for the link.

Opie,
Which string? Are you referring to the total acad env or the current?

From what I read the total (strlen (getenv "ACAD")) should not exceed 800 characters.

I did try reseting the acad env by setting it to blank (SETENV "ACAD" "" ) and then adding the new paths. When I set it to blank AutoCAD will add the default support paths.

So far it seems to be working in our mixed AutoCAD environment. No duplicate paths are being updated.

Chris

[Opie]

RK,
Thanks for the link.

Opie,
Which string? Are you referring to the total acad env or the current?

From what I read the total (strlen (getenv "ACAD")) should not exceed 800 characters.

I did try reseting the acad env by setting it to blank (SETENV "ACAD" "" ) and then adding the new paths. When I set it to blank AutoCAD will add the default support paths.

So far it seems to be working in our mixed AutoCAD environment. No duplicate paths are being updated.

Chris

I was referring to querying the length of the path after you reset it with the additional paths. If your additional paths make the Support Paths be larger than the limit, shouldn't you know that prior to resetting the environment variable?

[framedNlv]

I thought about it for a while and decided to do as you suggested. I'll add the condition in the morning.

If there doesn't seem to be any other problem with it I'm going to add it to our acad.lsp in the morning.

Basically I'm setting the lisp for new and old cad stations. I still have a lot to work out (pc3 paths is going to be next).

Chris

[Opie]

I thought about it for a while and decided to do as you suggested. I'll add the condition in the morning.

If there doesn't seem to be any other problem with it I'm going to add it to our acad.lsp in the morning.

Basically I'm setting the lisp for new and old cad stations. I still have a lot to work out (pc3 paths is going to be next).

Chris

Shouldn't you verify those paths are not already in the support paths?

[rkmcswain]

Shouldn't you verify those paths are not already in the support paths?

That's why in my method, I don't grab what's currently there and append it, I just set the entire path.

[Opie]

That's why in my method, I don't grab what's currently there and append it, I just set the entire path.

I realise that. But I think the OP wanted to have the ability to append it to the current list. Not the best approach for an office. I would rather have everyone have the same paths as well.

[framedNlv]

I didn't have any duplicate path problems while testing it. My current support paths have some of the ones that are being added, but they don't seem to duplicate.



Chris