Все открытые 2D документы

[podshibyakinea]

Библиотека заполняет ячейки только в активном документе.
Как обратиться ко всем открытым документам разом для заполнения ячеек?

[Sabahs]

По очереди.

[#programmer]

API5
Через KompasObject.GetIterator() получаем итератор, создаём итератор по документам
ksCreateIterator (long tipSearch, long parent); (см. SDK)
Идём по документам с помощью ksMoveIterator (BSTR ch), который возвращает указатели на открытые документы.
С помощью KompasObject.ksGetDocumentByReference(long docRef) получаем указатель на интерфейс документа.

API7
IApplication свойство Documents

Как-то так....

[podshibyakinea]

Не могу понять как выполнить на api5.
Может будет пример? После SDK свет не наступил)

[Sabahs]

На API7, сделать проще и компактнее.

[podshibyakinea]

 

[#programmer]

Пример в Step7 SDK ф-я WalkFromDoc().
Но на API7 действительно компактнее и проще

[podshibyakinea]

Ура!

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

begin
iDoc := CreateIterator( DOCUMENT_OBJ , 0 );
if ( iDoc > 0 ) then
begin
   pDoc := MoveIterator( iDoc, 'F' );
   if ( pDoc > 0 ) then
   begin
  repeat
             if ( SetObjParam( pDoc, nil, 0, DOCUMENT_STATE ) > 0 ) then
       pDoc := MoveIterator(iDoc, 'N');
     until ( pDoc = 0 );
   end;
end;
end;