0 Members and 1 Guest are viewing this topic.
Perhaps more concise:Code: [Select](setq DWG (getvar 'DWGPREFIX))(substr DWG (1+ (vl-string-position 92 (substr DWG 1 (vl-string-position 92 DWG 0 t)) 0 t)))
(setq DWG (getvar 'DWGPREFIX))(substr DWG (1+ (vl-string-position 92 (substr DWG 1 (vl-string-position 92 DWG 0 t)) 0 t)))
;;;S:\STONE_APPS\CUSTOMERS\JIM VAUGHN HOMES\24115;;;;;;\JIM VAUGHN HOMES\24115;;;(setq filename "S:\\STONE_APPS\\CUSTOMERS\\JIM VAUGHN HOMES\\24115")(setq list_1 (fnsplitl filename)) ;;("S:\\STONE_APPS\\CUSTOMERS\\JIM VAUGHN HOMES\\" "24115" "")(setq _filename (car list_1) _l (cadr list_1)) ;; "S:\\STONE_APPS\\CUSTOMERS\\JIM VAUGHN HOMES\\" "24115"(setq __sub (substr _filename 1 (- (strlen _filename) 1) )) ;;"S:\\STONE_APPS\\CUSTOMERS\\JIM VAUGHN HOMES"(setq list_2 (fnsplitl __sub)) ;;("S:\\STONE_APPS\\CUSTOMERS\\" "JIM VAUGHN HOMES" "")(setq item1 (car list_2) item2 (cadr list_2)) ;;"S:\\STONE_APPS\\CUSTOMERS\\" "JIM VAUGHN HOMES"(setq backs (substr item1 (strlen item1)))(setq path (strcat backs item2 backs _l)) ;;"\\JIM VAUGHN HOMES\\24115"
Oh yeah, know that the reactor will only work if the person opening the file is running it.
Quote from: alanjt on May 27, 2010, 07:56:04 PMOh yeah, know that the reactor will only work if the person opening the file is running it.What do you mean the person running the file? It has to be loaded on every machine right?
You're welcome So bear in mind that if you send the file to clients - the lack of reactor means that the FIELD will not display correctly.
Quote from: Lee Mac on May 28, 2010, 12:03:16 PMYou're welcome So bear in mind that if you send the file to clients - the lack of reactor means that the FIELD will not display correctly.<out of scope>every time I read that it is always translated to beer in mind.... in all my 38 years I have speaking English.... :ugly:<out of scope>