TableStyle command in lisp

[am4soft]

I'm trying to completely purge dwg files in a symbol library. For objects like Text Style and Dimension Style I can use (command "Style" "STANDARD"....etc.), or(command "DimTxsty" "STANDARD"....etc.), and set the object to the AutoCad Standard, then purge every style that is not standard.
I have unneeded Table Styles in these dwg. "TABLESTYLE" brings up the dialog box where I can make my change, but I can't get it to work in a lisp routine.
Any ideas

[andrea.andreetti]

why not using command purge command ?

command:_-purge
Enter type of unused objects to purge 
[Blocks/Dimstyles/LAyers/LTypes/MAterials/MUltileaderstyles/Plotstyles/SHapes/te
xtSTyles/Mlinestyles/Tablestyles/Visualstyles/Regapps/All]: T
Enter name(s) to purge <*>: *
Verify each name to be purged? [Yes/No] <Y>: n

[am4soft]

These dwg files have two Table Styles defined in them: Standard and "Equipment." Standard is the style that comes with Acad and cannot be purged. The CURRENT Table Style in the dwg is SET to "Equipment, " so that cannot be purged. I must set Standard as the current Table Style, then I can purge "Equipment."
This is the same technique that I used for Text Style and Dim Styles. The style must be set to STANDARD, before the user added styles can be purged. I just can't figure out how to change TABLESTYLE, without a dialog box.

[Opie]

You might try the "CTABLESTYLE" system variable.

[ccowgill]

(setvar "ctablestyle" "Standard")

text so code will post

[am4soft]

That's it! Thank you very much. I checked the SETVARs but only those beginning with a "T."

[am4soft]

That's it! Thank you.