Using Layer Translator by LISP?

Hi everybody. I am trying to improve quality of exported drawings from Revit. We had troubles with lines and setting „by layer“. We found solution, but unfortunately we have to do it manually for each drawing. Is there any possible way how to program (by using LISP for instance) following commands?

See attached image…

1. Start Layer Translator (command „laytrans“)
2. In Layer Translator, load the same drawing in section „Translate To“
3. In Settings check only „force object colour to ByLayer“ and „Translate objects in blocks“
4. Click on „map same“
5. Click on „translate“
6. Done

I would appreciate any advice or help.

Thank you in advance

Pavel Prchal