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

Тема: Имя блока

Добрый день! хочу обратиться с вопросом - мне необходимо достать имя обьекта, в моем случае вставленного блока, конструкция:
AcadApp.ActiveDocument.ModelSpace.Item(i).Name
не работает, Delphi ругается на свойство Name, мол нет такого, если кто знает как это сделать помогите плиз

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

Re: Имя блока

отрезал часть своего кода....

procedure ExtractBlockAttr(AFileName: string; Space: TWorkSpace = wsModelSpace);
var
  BlkRef: OleVariant;
  BlkName, tmpstr: string;
  i, ObjCount, NN: Integer;
begin
  if not VarIsClear(Acad) then
  begin
    CurrArrayNum:=0;
    try
      if Space = wsModelSpace then
        ObjCount:= Acad.ActiveDocument.ModelSpace.Count
      else
        ObjCount:= Acad.ActiveDocument.PaperSpace.Count;
      for i:= 0 to ObjCount - 1 do
      begin
        if Space = wsModelSpace then
          BlkRef:= Acad.ActiveDocument.ModelSpace.Item(i)
        else
          BlkRef:= Acad.ActiveDocument.PaperSpace.Item(i);
        if BlkRef.ObjectName = 'AcDbBlockReference' then
        begin
          Form1.Label3.Caption:=BlkRef.Name; //- тут имя блока и есть
          if BlkRef.HasAttributes then
          begin
            ExtractBlkRefAttr(BlkRef);
            inc(CurrArrayNum);
          end;
        end;
      end;
      end;
    finally
    end;
  end;
end;