set the file search path in autocad 2006-2008

[ghirosoft]

Hi.
I tried to do a search in the forums but I couldn't find what I need.
I need to set through lisp the directories of "support file search paths".
I have a directory where we have all our cad things and I doubled it for the following reason:
to our company from today changed name and we find ourselves having to manage cartiglio with name and old logo and carts with new name and logo.
I was thinking of leaning on an existing txt file where I already have settings and I wanted to add the search path, I must be able to edit it directly from cad anyway.

with vlisp is there a command that goes to edit or set this directory?
Thank you.

 

[rpor66]

(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject 'preferences))
(setq acadfiles (vlax-get-property acadpref 'files))
(setq acadsupp (vlax-get-property acadfiles 'supportpath))

; per esempio
(setq newacadsupp (strcat acadsupp (chr 59) "c:\bat"))
(vlax-put-property acadfiles 'supportpath newacadsupp)

bye

 

[ghirosoft]

Thank you so much!
I'll try very soon, but now that I'm thinking...
what I add is added to the existing ones or is replaced?

 

[rpor66]

Thank you so much!
I'll try very soon, but now that I'm thinking...
what I add is added to the existing ones or is replaced?

(setq newacadsupp (strcat acadsupp (chr 59) "c:\bat")

the bold part is the addition.

 

[ghirosoft]

Thank you again.

 

[acitano]

Bye to all,
if I can afford and contribute, it would be more correct to replace:

(setq newacadsupp (strcat acadsupp (chr 59) "[B]c:\\bat[/B]"))

a

(setq newacadsupp (strcat acadsupp (chr 59) "[B]c:\bat[/B]"))

as the slash is digested by autocad only with another slash in front.
Excuse the intrusion.
hi acitano