Creating a variable from dwgprefix
Try something like this, which requires no variables except for the modifiedPath one that presumably you want to keep to do something else with:
(defun C:ModifyDirectory ()
(setq modifiedPath
(strcat
(substr test
1
(1+ (vl-string-position 92 (vl-string-right-trim "\\" (getvar 'dwgprefix)) 1 T))
); substr
"01_Basefiles\\"
); strcat
); setq
(prompt (strcat "\nModified Path: " modifiedPath))
(prin1)
)It takes advantage of the fact that (vl-string-position) can search from the end, so you can leave everything up through the next-to-last last folder in the path together in one piece, rather than splitting it up into a list of sub-folders and putting them back together [even if done in a valid way].
@charles_neelyFG4LK wrote:
.... Now that I have the correct directory I need to get the correct file. The filename has a 4 digit prefix that is fluid but the rest is static. I've tried using "****-" as a wildcard but not getting anywhere.
The asterisk wildcard is for anything including multiple characters or no characters, so multiple asterisks doesn't tie it down for you on the prefix part. But you do need one to stand in for the after-the-prefix content, or include the static part explicitly.
The @ wildcard is for any single alphabetic character, and the ? wildcard for any single character [numeric, alphabetic, punctuation]. Try:
"@@@@-*"
if the prefix will always be four letters, and accepting anything following the hyphen, or
"????-TheStaticPart"
if always four characters but not necessarily always letters, and you want to incorporate the static part. Mix and match as needed.
Read about the wildcard options in Help for the (wcmatch) function.
