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

Автор Максим, 21.11.08, 08:48:28

« предыдущая - следующая »

0 Пользователей и 1 гость просматривают эту тему.

Максим

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



Дим

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

Максим

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

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