Topic: Capturing the last positions of text to a variable

[Fabricio28]

Hi,

This lisp returns me the file name without the dwg

(setq arq (getvar "dwgname")) ; Catch filename
(setq comp (strlen arq)) ; take the length of the file name
(Setq comp (- (strlen arq)4)) ; length of the same name 4
(Setq text (substr arq 1 comp))

I need to get only the review of lisp, and I know that without the last 4 texts (. Dwg), revision (Rxx) is the last three letters,

How do I get to capture them?

Thank in advance

[Lee Mac]

Code: [Select]

(setq str (vl-filename-base (getvar 'dwgname)))
(substr str (- (strlen str) 2))

[bruno_vdh]

Code: [Select]

(substr (setq str (getvar 'dwgname)) (- (strlen str) 6) 3)

[Lee Mac]

Code: [Select]

(substr (setq str (cadr (fnsplitl (getvar 'dwgname)))) (- (strlen str) 2))

Code: [Select]

(substr (setq str (getvar 'dwgname)) (- (vl-string-position 46 str) 2) 3)

[Fabricio28]

Thank you so much Lee and Bruno!

 
Regards
Fabricio