This example sets a linetype current with the CELTYPE system variable.
Application.SetSystemVariable("CELTYPE", "Center")
Application.SetSystemVariable("CELTYPE", "Center");
ThisDrawing.SetVariable "CELTYPE", "Center"