Thanks Doug
I'll try CATIA.StartCommand("Clear History"), report improvement effect tomorrow.
For batch mode, I have no this ability now, but I will try to understand.
*****2015\5\20*****
I add
Set CATIA = GetObject(, "CATIA.Application")
CATIAStartcommand "Clear History"
but always get...