Change DWGPREFIX with if-function

[Manuel_Kunde]

Hi, I want to change the beginning of my path (the workingfolder) if the path starts with "P:\" (marked red) and replace it with the path marked green. (with an if - function). 

 

(The destination location is the same, but the access is through a different network).

Is it possible to change the beginning with an If - function and change the Path this way?

 

(strcat (substr (getvar "DWGPREFIX") 1 2) "\\company.lan\center")

 

 

 

 

 

 

[marko_ribar]

Don't you mean :

 

(strcat "\\company.lan\center" (substr (getvar "DWGPREFIX") 1 2))

 

[Manuel_Kunde]

5 minutes ago, marko_ribar said:

Don't you mean :

 

(strcat "\\company.lan\center" (substr (getvar "DWGPREFIX") 1 2))

 

Yes, exactly. Do you know of an If function that will only execute the Stract command if "P:" is at the beginning of the path?

[confutatis]

(if (vl-string-search "P:\\" (getvar "DWGPREFIX"))
 (strcat "\\\\company.lan\\center" (substr (getvar "DWGPREFIX") 3 (strlen (getvar "DWGPREFIX"))))
)

 

 

Edited July 6, 2021 by confutatis

[marko_ribar]

(if (= (substr (getvar 'dwgprefix) 1 2) "P:")
  (strcat "\\company.lan\center" (substr (getvar "DWGPREFIX") 3))
)

Not sure, though...

[BIGAL]

The path would always have something a start re drive ? If not P: then what ?

 

 

Edited July 7, 2021 by BIGAL

[ronjonp]

On 7/6/2021 at 6:49 AM, Manuel_Kunde said:

Yes, exactly. Do you know of an If function that will only execute the Stract command if "P:" is at the beginning of the path?

Sounds like you have people accessing files through UNC ? If so perhaps:

(if (wcmatch (setq dp (getvar "DWGPREFIX")) "P:*")
  (strcat "\\\\company.lan\\center" (substr dp 3))
  dp
)

*EDIT Changed (substr dp 1 2) to (substr dp 3)

Edited July 7, 2021 by ronjonp

[Manuel_Kunde]

8 hours ago, ronjonp said:

Sounds like you have people accessing files through UNC ? If so perhaps:

(if (wcmatch (setq dp (getvar "DWGPREFIX")) "P:*")
  (strcat "\\\\company.lan\\center" (substr dp 1 2))
  dp
)

 

 

It works, thank you so far.

[ronjonp]

59 minutes ago, Manuel_Kunde said:

 

It works, thank you so far.

I had a typo changed above.