Сначала открывается файл спецификации, которую предстоит заполнить,
и вот на настройке свойств уже забуксовал. :(
Делаю так:
specparam:= ksDocumentParam(Kompas.GetParamStruct(ko_DocumentParam));
if specparam<>nil then begin {specparam begin}
specparam.Init;
if spec.ksGetObjParam(spec.reference, specparam, ALLPARAM)<>0 then begin
specparam.fileName:='specification.spw';
specparam.author:='Author';
specparam.type_:= 3;// тип - Спецификация
spec.ksSetObjParam(spec.reference, specparam, ALLPARAM);
end;
end;{specparam end}
В итоге свойства не изменяются. Проверял, строки выполняются...
Этот кусок кода переделан из работы с чертежом, там он работает нормально, вот исходный фрагмент:
// РАБОТА С ДОКУМЕНТОМ 2D
docparam:= ksDocumentParam(Kompas.GetParamStruct(ko_DocumentParam));
if docparam<>nil then begin {docparam begin}
docparam.Init;
if doc.ksGetObjParam(doc.reference, docparam, ALLPARAM)<>0 then begin
docparam.fileName:='drawing.cdw';
docparam.author:='Author';
doc.ksSetObjParam(doc.reference, docparam, ALLPARAM);
end;
end;{docparam end}
Подскажите, в чем может быть дело???
Никто, видимо не знает... :(
Проблему решил, создавая спецификацию заново, "с нуля".
Теперь все заполняется.
Имя файла устанавливать через SetObjParam?
Причем не полный путь.
Если нужно изменить имя файла нужно использоват функцию SaveDocument.
В SetObjParam нужно менять только автора
Тип документа изменить нельзя