Создание листа с основной надписью

[Mark_49]

Приветствую!

Начинаю осваивать работу с API и уже столкнулся с проблемой:  при попытке создать лист заданного формата, ориентации, с рамкой, основной надписью и прочим, получаю пустой лист без элементов оформления.

Пишу следующее:

Код Выделить Развернуть


kompas:=KompasObject(CreateOleObject('Kompas.Application.5'));
kompas.Visible:=true;

documentparam:=ksDocumentParam(kompas.GetParamStruct(ko_DocumentParam));

documentparam.Init();
documentparam.type_:=ksDocumentDrawing;
document2D:=ksDocument2D(kompas.Document2D);
document2D.ksCreateDocument(documentparam);

sheetoptions:=ksSheetOptions(kompas.GetParamStruct(ko_SheetOptions));
document2D.ksGetDocOptions(SHEET_OPTIONS_EX, SheetOptions);
sheetoptions.sheetType:=false;
standartsheet:=ksStandartSheet(SheetOptions.GetSheetParam(false));
standartsheet.format:=3;
standartsheet.multiply:=1;
standartsheet.direct:=true;
sheetoptions.shtType:=1;
document2D.ksGetDocOptions(SHEET_OPTIONS_EX, SheetOptions);


Компас v17.1

Что я делаю не так?

[DesignЯR]

Думаю если " document2D.ksGetDocOptions(SHEET_OPTIONS_EX, SheetOptions);" заменить на   " document2D.ksSetDocOptions(SHEET_OPTIONS_EX, SheetOptions);"  может что-то получится