Retrieve partial file name

[zwhaas2001]

I have drawing file names that are consistently XXXXXXXX_Rev_Y.dwg or XXXXXXXX_R_YY.dwg, and I want to create a field with the Y or YY value. How would I extract the Y or YY portion of the file name using LISP or Diesal expression?

[Kent1Cooper · Accepted solution]

The AutoLisp approach:

(setq str (vl-filename-base (getvar 'dwgname)))
Say that returns "ABCDEFGH_R_YY"

(substr str (+ (vl-string-position (ascii "_") str 1 T) 2))

returns whatever is after the last underscore character -- in this case "YY" -- whether there's one or more than one underscore character [the T argument has it search from the end].

[pendean]

---

@Kent1Cooper wrote:

wait...

---

https://www.youtube.com/watch?v=HuABhumm6fY 

[zwhaas2001]

Thank you. That worked perfectly! I really appreciate your help