autolisp extract more than one set from a string

[edsaqueteAG5Q7]

Here's a file to test,
need to do a ssget to select everything inside the layer "POLI" to do as below, my translator translates wrong in the topic.
.
I need to extract as the example below
Numbering example:
1 - TT-AC1 (extract the 1 after the AC )
2 - 101-AC16,PT2 (extract the 16 after the AC)
3 - 17-BC1,AC3,PT2 (extract 1 after BC and extract 3 after AC)

[hosneyalaa]

Hi 

do you found The solution

[edsaqueteAG5Q7]

yes, i found a solution.