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

Тема: Задание характеристик в стиле размеров через Delphi

День добрый. Не подскажете, каким образом можно изменить в существующем стиле размеров такие величины, как наклон текста размера, высота текста размера, длину и вид риски, и т.д.

  • На форуме с 21 июня 2004г.
  • Сообщений: 31
  • Спасибо: 0

Re: Задание характеристик в стиле размеров через Delphi

procedure TForm1.Button1Click(Sender: TObject);
var IAcad:IAcadApplication;
begin
  IAcad:=GetActiveOleObject('AutoCAD.Application') as IAcadApplication;
  with IAcad.ActiveDocument do
    begin
      SetVariable('DIMTXSTY','MyTextStyle');
      ActiveTextStyle.ObliqueAngle:=Pi*15/180;
      SetVariable('DIMTXT',5);
    end;
  IAcad:=nil;
end;

Вобщем, нужно работать с системными переменными DIM***.
Про них можно почитать в справке акада