Работа с AutoCad

[KarolinaVlad]

При работе с AutoCad возникла такая проблема:
как создать верхний индекс для числа, например, х в степени (-0.5)

[Stilet]

Если речь идет об объекте MText то можно просто использовать его спецкодировку
Вот например такой пример

var
 q,s:string;      mt,adc,e2,e:OleVariant;
 SelectedObject:IDispatch;   pnt:variant;
 mn,mx:variant;
begin       {$o-}
 mn:=VarArrayCreate([0,2],varDouble);
 mx:=VarArrayCreate([0,2],varDouble);
 adc:=AcadActiveDoc;
  PostMessage(adc.Application.hwnd, WM_SYSCOMMAND, SC_MAXIMIZE, 1);
   SetForegroundWindow(adc.Application.hwnd);
 adc.Utility.GetEntity(SelectedObject,pnt);
 e:=SelectedObject;
 e.GetBoundingBox(mn, mx);
 mn[1]:=mx[1];
 mt:=adc.PaperSpace.AddMText(mn, 10, '{\Fgreeks|c204;\H1.429x;\C256;d\fArial|b0|i0|c0|p34;\H0.5835x;'+IntToStr(i)+'}');
 mt.Rotate(mn, e.Rotation);
 e.delete;
 inc(i);
 e:=EmptyParam;
 Edit1.Text:=IntToStr(i);

вот там я использую его специальную кодировку для форматирования текста, подставляя между ней свои значения.