Delphi и AutoCAD - страсти по типам данных

[praeeo]

Здравствуйте! Прошу помощи у тех, кто разбирается в объектной модели Автокада и VBA!
Хотелось бы реализовать функцию поиска и замены текста в Автокаде из Делфи.
Хотелось бы обойтись без привлечения классов, одними интерфейсами. И вот тут загвоздка, указанная ниже:

procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
  iadoc: IAcadDocument;
  iselset: IAcadSelectionSet;
  iselsets: IAcadSelectionSets;
  itxt: IAcadText;
  ient: IAcadEntity;
  ttxt: TAcadText;
  txtcode,
  txttype: Variant;
begin
  txtcode:= VarArrayCreate ([0,3], varSmallint);
  txtcode[0]:= -4;
  txtcode[1]:= 0;
  txtcode[2]:= 0;
  txtcode[3]:= -4;
  txttype:= VarArrayOf (['<OR','TEXT','MTEXT','OR>']);
  AcadApp := GetAcadApplication(false);
  iadoc := AcadApp.Documents.Open('c:\111', EmptyParam, EmptyParam);
  iselsets := iadoc.SelectionSets;
  iselset := iselsets.Add('t');
  iselset.Select(acSelectionSetAll, EmptyParam, EmptyParam, txtcode, txttype);
  for i := 1 to iselset.Count - 1 do
  begin
  itxt:= iselset.Item(i) as IAcadText;// здесь ошибка EIntfCastError, "Interface not supported"

При явном указании Item'а (например: itxt:= iselset.Item(3) as IAcadText) ошибки нет. Может быть, дело в совместимости числовых типов? Например, для процедуры Select пришлось создавать массив Variant'ов типа Smallint (Integer не прошел)

[Stilet]

Загляни в хелп акада, и посмотри есть ли метод Item() в классе AcadSelectionSet

[Stilet]

Загляни в хелп акада, и посмотри есть ли метод Item() в классе AcadSelectionSet

[praeeo]

Есть, с этим все в порядке ))

Добавление:

Всё, разобрался. Дело было в разных типах текста: IAcadText (однострочный) и IAcadMText (многострочный). Вот исправленный, хотя еще и сырой, юнит поиска и замены, может кому понадобится. Допилить по вкусу ))

unit acad;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AutoCAD_TLB, StdCtrls, ComObj;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    Function GetAcadApplication(Visible: Boolean): IAcadApplication;
    function ReplaceTxt (ss:IAcadSelectionSet; i: integer): WideString;
  private
    AcadApp: IAcadApplication;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
  iadoc: IAcadDocument;
  iselsets: IAcadSelectionSets;
  iselset: IAcadSelectionSet;
  txtcode, txttype: Variant;
begin
  txtcode := VarArrayCreate([0, 3], varSmallint);
  txtcode[0] := -4;
  txtcode[1] := 0;
  txtcode[2] := 0;
  txtcode[3] := -4;
  txttype := VarArrayOf(['<OR', 'TEXT', 'MTEXT', 'OR>']);
  AcadApp := GetAcadApplication(false);
  iadoc := AcadApp.Documents.Open('c:\123.dwg', EmptyParam,
    EmptyParam);
  iselsets := iadoc.SelectionSets;
  iselset := iselsets.Add('t');
  iselset.Select(acSelectionSetAll, EmptyParam, EmptyParam, txtcode, txttype);
  for i := 0 to iselset.Count - 1 do
  begin
    if iselset.Item(i).EntityName = 'AcDbText' then
       (iselset.Item(i) as IAcadText).TextString:= ReplaceTxt (iselset, i);
    if iselset.Item(i).EntityName = 'AcDbMText' then
       (iselset.Item(i) as IAcadMText).TextString:= ReplaceTxt (iselset, i);
    iselset.Update;
  end;
end;

function TForm2.ReplaceTxt(ss:IAcadSelectionSet; i: integer): WideString;
begin
  if ss.Item(i).EntityName = 'AcDbText' then
    if pos('23', string((ss.Item(i) as IAcadText).TextString)) <> 0 then
      Result := StringReplace(string((ss.Item(i) as IAcadText).TextString),
        '23', '89', [rfReplaceAll]);
  if ss.Item(i).EntityName = 'AcDbMText' then
    if pos('23', string((ss.Item(i) as IAcadMText).TextString)) <> 0 then
      Result := StringReplace(string((ss.Item(i) as IAcadMText).TextString),
        '23', '89', [rfReplaceAll]);
end;

function TForm2.GetAcadApplication(Visible: Boolean): IAcadApplication;
var
  v : OleVariant;
begin
  Try
    v := GetActiveOleObject('AutoCAD.Application');
  Except
    v:= CreateOleObject('AutoCAD.Application');
  end;
  Result := IDispatch(v) as IAcadApplication;
  if Visible then Result.Visible := True;
end;