Может кто подсказать, почему не работает вот этот код?
iKompas:= KompasObject(GetActiveOleObject('Kompas.Application.5'));
iDoc := ksDocument2D ( iKompas.ActiveDocument2D );
iDocParams := ksDocumentParam (iKompas.GetParamStruct (ko_DocumentParam));
iDoc.ksSetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);
iDocParams.Init;
iDocParams.author:=Edit1.Text;
iDocParams.comment:=Edit3.Text;
вдобавок мне интересно как заполнитиь поле "Организация"????
Попробуй так:
iDoc.ksGetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);
iDocParams.author:=Edit1.Text;
iDocParams.comment:=Edit3.Text;
iDoc.ksSetObjParam(iDoc.reference, iDocParams, DOCUMENT_OBJ);
Спасибо, yarikv!
Ты уже не в первый раз помогаешь!
работает, только надо изменить на ALLPARAM:
iKompas:= KompasObject(GetActiveOleObject('Kompas.Application.5'));
iDoc := ksDocument2D ( iKompas.ActiveDocument2D );
iDocParams := ksDocumentParam (iKompas.GetParamStruct (ko_DocumentParam));
iDoc.ksGetObjParam(iDoc.reference, iDocParams, ALLPARAM);
iDocParams.author:=Edit1.Text;
iDocParams.comment:=Edit3.Text;
iDoc.ksSetObjParam(iDoc.reference, iDocParams, ALLPARAM);