• На форуме с 4 октября 2002г.
  • Сообщений: 29
  • Спасибо: 0

Тема: Помогите с FilterType, FilterData в DELPHI

Уважаемые эксперты!
Помогите с примером как правильно использовать
SelectionSet.Select в Delphi.
Вылетает ошибка: 'Invalid argument FilterType in SelectOnScreen'. Вот код:

var ss:IAcadSelectionSet;
     FilterType: Variant;
     FilterData: Variant;
begin
FilterType:=VarArrayCreate([0,0],varInteger);
FilterData:=VarArrayCreate([0,0],varVariant);

FilterType[0]:=0;
FilterData[0]:='Circle';

ss:=Doc1.SelectionSets.Add('test');

ss.SelectOnScreen(FilterType, FilterData);// <--error: 'Invalid argument FilterType in SelectOnScreen'

  • ShaggyDoc
  • Восстановленный участник
  • На форуме с 10 сентября 2001г.
  • Сообщений: 1,761
  • Спасибо: 0

Re: Помогите с FilterType, FilterData в DELPHI

Пробуй

FilterType: OleVariant;
FilterData: OleVariant;

  потом в

FilterType:=VarArrayCreate([0,0],varInteger);
FilterData:=VarArrayCreate([0,0],varVariant);
не varInteger, varVariant
а какие-то из VT_x из ActiveX.pas (посмотри)

И проверь какой-же должен быть тип аргумента, раз об этом говорят.

Кстати, не факт, что Автокаду в этот момент делать нечего, и он ждет запроса. Он может быть и занят более интересными делами.

  • На форуме с 4 октября 2002г.
  • Сообщений: 29
  • Спасибо: 0

Re: Помогите с FilterType, FilterData в DELPHI

Большое спасибо ShaggyDoc!
Помогло : '...не varInteger, varVariant
а какие-то из VT_x из ActiveX.pas ...'

FilterType:=VarArrayCreate([0,0],VT_I2);
FilterData:=VarArrayCreate([0,0],VT_VARIANT);

FilterType[0]:=0;
FilterData[0]:='Circle';

ss:=Doc1.SelectionSets.Add('test');

//ss.SelectOnScreen(FilterType, FilterData);// OK!

ss.Select(acSelectionSetAll,EmptyParam, EmptyParam, FilterType, FilterData);// OK!