Topic: Using a field with filename - path only

[Lee Mac]

OK, try the updated code 

[KOWBOI]

That worked, thank you Lee! Can I make this run automatically each time I start a new drawing?

[Lee Mac]

Excellent 

Put the code in the ACADDOC.lsp with (c:FilenameReactor) after it 

[It's Alive!]

FYI there is an ARX sample in the SDK that has this functionality.  it also has the hook for the field dialog.

[alanjt]

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)))


Thanks Lee; very nice.
I knew there was a better way to write it, but it was time to leave and I wanted to post 'something'. I figured someone would post a better solution.

[alanjt]

Oh yeah, know that the reactor will only work if the person opening the file is running it.

[Lee Mac]

Thanks Alan - and good point indeed 

[LE3]

ok... no idea if this miserable code is of some use and how about the vars names, but well here it goes (it can be use for at least extract the strings for the output path, and what it is available in a2006? for the field command):  

Code: [Select]

;;;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"


[LE3]

hmm... the old undocumented function fnsplitl does not play nice with long file names nor if the first front folder have empty spaces...

[KOWBOI]

Oh 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?

[alanjt]

Oh 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?

Correct.

[KOWBOI]

Cool, thank you all so much for the help it's greatly appreciated.

I setup the acaddoc.lsp with the code, works great! Thanks again, you guys are a huge help and a great resource of info.

[Lee Mac]

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.

[LE3]

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.

<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>

[Jeff_M]

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.

<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>

Makes sense to me, Luis! I do the same thing and I've never spoke another language...well, except for German during 3 years in high school....