Have you attempted any code for this or are you just asking for someone to code this up for you?
How would one request the # for a *SHT# layer name?
Code:
(setq intSuffix (getint "\nSpecify sheet number: "))
This would get an integer of that number. This would provide no error checking of course, but it would require an integer be provided.
If you want to just make it a string, you might try this:
Code:
(setq strSuffix (getstr "\nSpecify sheet number: "))
If you went with the integer from the beginning, you would need to convert it to a string before concatenating it all together for future use.
Code:
(setq strSuffix (itoa intSuffix))
You could then concatenate this into the requested layer suffix like so...
Code:
(setq strLayerSuffix (strcat "*SHT" strSuffix))
Once you have that, you would need to run the VPLAYER command to make the layer changes you want to accomplish.
Code:
(command "VPLAYER" "Freeze" "*SHT*" "Current" "Thaw" strLayerSuffix "Current" "")
Most of that can get you started on compiling a routine for your request. There are other steps to meet your request. A search of the AutoLISP forum should find other small steps to get you there. Unfortunately, I can't volunteer that much time to build a one-off solution for something I have no need for.