Использование итератора для выделения дуг окружности

[Mihonius]

Добрый день!
Написал следующую процедуру, для перебора и пока только подсветки дуг окружности, ошибок компилятор не выдает, но ничего и не делает, было замечено что pObj равен нулю, а pAttr не ноль и Iter не ноль, в чем может быть причина?

procedure IteratorArc;
var
     Iter : ksIterator;
     pObj, pAttr: Reference;
begin
  Iter := ksIterator(ikompas.GetIterator);
   if iter = nil then
      exit;
  Iter.ksCreateIterator(ARC_OBJ, 0); // Создаю итератор для дуг окружности
  begin
    pAttr := iter.ksMoveAttrIterator( 'F', pObj );  // перемещение на первый
    while ( pAttr <> 0 ) and ( idoc.ksExistObj(pObj) <> 0 ) do
    begin
      idoc.ksLightObj( pObj, 1 ); // подсветка
      pAttr := iter.ksMoveAttrIterator( 'N', pObj ); // перемещение на следующий
    end;
     iter.ksDeleteIterator();
  end;
end;

[Sabahs]

Функцию Вы не ту использовали, Вам нужен указатель на объект, а не на атрибут.
pObj := iter.ksMoveIterator( 'F' );  // перемещение на первый
    while ( idoc.ksExistObj(pObj) <> 0 ) do
...
pObj := iter.ksMoveIterator( 'N' ); // перемещение на следующий

[Mihonius]

точно, вот слепой, видать устал уже ) Спасибо!

[Mihonius]

Подскажите как ограничить зону в которой проводиться итерация? есть зона где не нужно перебирать!

[Sabahs]

Какую, зону?
Вы этой строкой  Iter.ksCreateIterator(ARC_OBJ, 0); // Создаю итератор для дуг окружности, уже ограничились только перебором дуг.

[Mihonius]

Уже вышел из положения. Суть итератора была для комплексного построения размеров радиусов. Но есть радиуса на круге катания которые мне не нужно образмеривать, переставил местами построение круга катания и построения размеров всех радиусов. Все работает спасибо!