[Nurik]

Здраствуйте!
Как изменить значение атрибутов и цветы атрибутов через Дельфи?
Если атрибут "01" надо изменит на "02" по всей чертежи.
Заранее спасибо.

[Кулик Алексей aka kpblc]

В качестве алгоритма: получить указатель на вхождение блока, через GetAttributes получить массив атрибутов, вычленить нужный и работать с ним.

[Nurik]

// Значение атрибута уже выучил но как изменять не знаю...

Код:

[Выделить все]

procedure ExtractBlkRefAttr(ABlkRef: OleVariant; Items: TStrings);
var
  AttrArray, AttrRef: OleVariant;
  i, LBnd, HBnd: Integer;
begin
  if ABlkRef.HasAttributes then
  begin
  if ABlkRef.Name='e fire no' then
  begin
    Items.Add(Format('[%s]', [ABlkRef.Name]));
    AttrArray:= ABlkRef.GetAttributes;
    LBnd:= VarArrayLowBound(AttrArray, 1);
    HBnd:= VarArrayHighBound(AttrArray, 1);
    for i:= LBnd to HBnd do
    begin
      AttrRef:= AttrArray[i];
       if AttrRef='01' then
        begin
          AttrRef='02';
          // Дальше как изменить в автокаде
        end;
      Items.Add(Format('%s=%s', [AttrRef.TagString, AttrRef.TextString]));
    end;
  end;
  end else
    raise Exception.CreateFmt('Блок "%s" не имеет атрибутов', [ABlkRef.Name]);
end;

[Дима_]

В этом коде ты работаешь с определением блока (Block), а тебе нужно вхождение - BlockRef.

[Nurik]

Cпасибо ребята!
Блок известно, атрибут тоже известно, только остался изменить надо в автокаде.

Код:

[Выделить все]

procedure ExtractBlkRefAttr(ABlkRef: OleVariant; Items: TStrings);
var
  AttrArray, AttrRef: OleVariant;
  i, LBnd, HBnd: Integer;
begin
  if ABlkRef.HasAttributes then
  begin
  if ABlkRef.Name='e fire no' then
  begin
    Items.Add(Format('[%s]', [ABlkRef.Name]));
    AttrArray:= ABlkRef.GetAttributes;
    LBnd:= VarArrayLowBound(AttrArray, 1);
    HBnd:= VarArrayHighBound(AttrArray, 1);
    for i:= LBnd to HBnd do
    begin
      AttrRef:= AttrArray[i];
       if AttrRef='01' then
        begin
          AttrRef='02';
          // Дальше как изменить в автокаде
        end;
      Items.Add(Format('%s=%s', [AttrRef.TagString, AttrRef.TextString]));//
    end;
  end;
  end else
    raise Exception.CreateFmt('Блок "%s" не имеет атрибутов', [ABlkRef.Name]);
end;

[Дима_]

ну я дельфи не знал и забыл - но по сути тебе надо изменить свойство TextString аттрибута.

[Nurik]

Спасибо Дима, все поличилось, Только осталось изменить цвет атрибута. Ты помнишь какие функция нужен для этого?

Код:

[Выделить все]

procedure ExtractBlkRefAttr(ABlkRef: OleVariant; Items: TStrings);
var
  AttrArray, AttrRef: OleVariant;
  i, LBnd, HBnd: Integer;
begin
  if ABlkRef.HasAttributes then
  begin
  if ABlkRef.Name='e fire no' then
  begin
    Items.Add(Format('[%s]', [ABlkRef.Name]));
    AttrArray:= ABlkRef.GetAttributes;
    LBnd:= VarArrayLowBound(AttrArray, 1);
    HBnd:= VarArrayHighBound(AttrArray, 1);
    for i:= LBnd to HBnd do
    begin
      AttrRef:= AttrArray[i];
       if AttrRef.TextString='01' then
        begin
          AttrRef.TextString:='02';
          //Только осталось изменить цвет.. Какие функции нужен?.
        end;
      Items.Add(Format('%s=%s', [AttrRef.TagString, AttrRef.TextString]));
      Acad.Update;  //вот эту хрень забыл
    end;
  end;
  end else
    raise Exception.CreateFmt('Блок "%s" не имеет атрибутов', [ABlkRef.Name]);
end;

[Кулик Алексей aka kpblc]

Свойство Color - отвечает за индексированные цвета (от 0 до 255). TrueColor отвечает за установку т.н. TrueColor (RGB-цвет).

[gomer]

А почитать про свойство соlor в справке не дано?

[Nurik]

Cпасибо ребята!
Все работает.

Код:

[Выделить все]

procedure ExtractBlkRefAttr(ABlkRef: OleVariant; Items: TStrings);
var
  AttrArray, AttrRef: OleVariant;
  i, LBnd, HBnd: Integer;
begin
  if ABlkRef.HasAttributes then
  begin
  if ABlkRef.Name='e fire no' then
  begin
    Items.Add(Format('[%s]', [ABlkRef.Name]));
    AttrArray:= ABlkRef.GetAttributes;
    LBnd:= VarArrayLowBound(AttrArray, 1);
    HBnd:= VarArrayHighBound(AttrArray, 1);
    for i:= LBnd to HBnd do
    begin
      AttrRef:= AttrArray[i];
       if AttrRef.TextString='01' then
        begin
          AttrRef.TextString:='02';
          AttrRef.color:=clRed;//вот эту хрень забыл
          
        end;
      Items.Add(Format('%s=%s', [AttrRef.TagString, AttrRef.TextString]));
      Acad.Update;  
    end;
  end;
  end else
    raise Exception.CreateFmt('Блок "%s" не имеет атрибутов', [ABlkRef.Name]);
end;