Создание классов программно

[Beast-L]

Сделал вот так и вроде как работет.

ClassBuild addClass(str _name)
{
    ProjectGroupNode    classesNode;
    ClassBuild          newClass;
    ; // end of variables declaration

    classesNode = this.createClassesGroup();
    newClass    = new ClassBuild(_name);
    classesNode.addUtilNode(UtilElementType::Class, _name);
    newClass.classNode().AOTsave();
    project.AOTsave();
    project.AOTrefresh();
    return newClass;
}

Класс для работы с проектом где использован этот метод:
ProjectManager_shg.xpo