Пустая строка обозначения "marking"

[zeratul]

Есть код подключения на 1с 8.2

API 7
kompas=Новый COMОбъект("Kompas.Application.7");
ActiveDoc = kompas.Documents.Open(Объект.Path,True,False);
FieldMark = ActiveDoc.TopPart.Marking;
MassObject = Окр(ActiveDoc.TopPart.Mass/1000,3);
Materials = ActiveDoc.TopPart.Material;
DetailName = ActiveDoc.TopPart.Name;
kompas.Quit();
Сообщить("Обознаение "+FieldMark+", Масса "+Строка(MassObject)+", Материалы "+Materials+", Имя детали "+DetailName);

под api7 все хорошо считывает все данные детали, но значение массива PartsEx = Неопределено (не знаю почему)

API 5
kompas=Новый COMОбъект("Kompas.Application.5");
Active = kompas.Document3d.open(Объект.Path,False);
If Active Then
doc3D = kompas.ActiveDocument3D;
PColl = doc3D.PartCollection(True);
jj = PColl.GetCount();
Для j = 0 По PColl.GetCount() - 1 Цикл
   iPart = doc3D.GetPart(j);
   //ReDim Preserve PathList(j)
   //PathList(j) = iPart.fileName;
   ll = iPart.name;
КонецЦикла;   
здесь наоборот отлично считываются детали сборки, кроме самой сборки, обозначения пустые...не могу разобраться почему..
если есть примеры на delphi пожалуйста напишите

[Sabahs]

под api7 все хорошо считывает все данные детали, но значение массива PartsEx = Неопределено (не знаю почему)

А можно посмотреть строку кода, как Вы его получаете.

iPart = doc3D.GetPart(j);

Для API5 iPart нужно получать от коллекции.
iPart = PColl.GetByIndex(j);

[zeratul]

iParts = ActiveDoc.TopPart.PartsEx

[Sabahs]

Не правильно, откройте SDK и посмотрите, что возвращает PartsEx.
iParts = ActiveDoc.TopPart.PartsEx
Должна выглядеть так  iParts = ActiveDoc.TopPart.PartsEx[ksAllParts] или так iParts = ActiveDoc.TopPart.PartsEx[ksUniqueParts],
в зависимости, что Вы хотите получить, где iParts:OleVariant - вариантный массив интерфейсов IDispatch.

[zeratul]

а можно примерчик

[Sabahs]

Примерчика нет, здесь http://forum.ascon.ru/index.php/topic,24894.msg180294.html#msg180294 есть картинка, как работать с вариантным массивом, проверка, что он не пустой, интерфейсы IDispatch внутри массива  нужно будет привести к IPart7.

[zeratul]

Спасибо, а как быть в API 5? Не получается считать обозначение

[Sabahs]

Попробуйте преобразовать документ из API5 в API7.
Doc3D:=IUnknown(ksTransferInterface(LtDefine.PIUnknown(Doc3DAPI5),ksAPI7Dual,0)) as IKompasDocument3D;
Part7:=Doc3D.TopPart;
FieldMark:=Part7.Marking;