Определить адреса документов прикрепленных к СБ чертежу

[Максим]

Нужно определить адреса документов прикрепленных к СБ чертежу.
По просмотренным темам форума ответа на этот вопрос найдено так и не было.
Если кто-то с этим разобрался, прошу кинуть кусок кода. Заранее благодарен.

[Дим]

Определить можно так - Файл-свойства-внешние ссылки-если надо то печатать в файл, если конечно об этом речь.

[Максим]

 
Не умничай, естественно программно определить

[YuKa]

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

{Список компонентов первого уровня для сборки}
procedure GetDetList();
var
doc3D: ksDocument3D;
iPartCol: ksPartCollection;
iPart: ksPart;
i: integer;
s: string;
begin
   doc3D := ksDocument3D(Kompas.ActiveDocument3D);
   if (doc3D = nil) or (doc3D.IsDetail) then
   begin
     Kompas.ksMessage('Документ не активизирован или не является сборкой');
     exit;
   end;
   iPartCol := ksPartCollection(doc3D.PartCollection(true));
   if iPartCol = nil then exit;
   iPart := ksPart(iPartCol.First);
   for i := 1 to iPartCol.GetCount-1 do
   begin
     s := s + #13#10 + iPart.fileName;
     iPart := ksPart(iPartCol.Next);
   end;
   Kompas.ksMessage('Список файлов компонентов:' + s);
end;

[Максим]

Мне кажется я все-таки про *.cdw (СБ чертеж) писал
Как объекты из сборки, спецификации найти, написано на форуме.
Требуется все-таки с cdw