• Виктор
  • Восстановленный участник
  • На форуме с 29 сентября 2005г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Где находится метод Block.GetAttributes()?

День добрый!
И все таки я не пойму ,как один товарищ умудрился получить набор аттрибутов блока с помощью GetAttributes() в Дельфи, для последующего их редактирования.
Ну нет там такого метода. Как же?
AcadDocument1.Blocks.item(). и ??

  • На форуме с 27 марта 2003г.
  • Сообщений: 24
  • Спасибо: 0

Re: Где находится метод Block.GetAttributes()?

procedure TForm1.Button1Click(Sender: TObject);
var Acad, AcadDoc, Blk, pt, Attr: OLEVariant;
    ObjBlk: IDispatch;
    str: string;
    i: integer;
begin
  try
    Acad := GetActiveOLEObject('AutoCAD.Application');
    AcadDoc := Acad.ActiveDocument;
    Acad.Visible := True;
    AcadDoc.Utility.GetEntity(ObjBlk, pt, 'Выбери блок:');
    blk := ObjBlk;
    str := blk.ObjectName;
    attr:= blk.GetAttributes;
    for i := 0 to VarArrayHighBound(attr,1) do begin
      str := attr[i].TagString;
//      MessageDlg('Tag = ' + str,  mtWarning, [mbOk], 0);
      if str = 'NAME' then attr[i].TextString := 'Aleksei';
    end;
  except
// обработка ошибок
  end;
end;