Создать верхний индекс для числа в AutoCad

Posted by micher under Delphi

При работе с 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);

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

Autocad купить
AutoCAD 2014 — это САПР с мощными 2D- и 3D-инструментами для проектирования и производства документации. В новой версии рабочий процесс обогащен инструментами взаимодействия — для обсуждения проекта с коллегами и более глубокого вовлечения всех заинтересованных сторон. Добавлены десятки усовершенствований, ускоряющий каждодневных рабочий процесс. Работа с картографическими службами и новые функции захвата реальности позволят применять сканированные данные объектов реального мира.

тема на форуме

Похожие статьи

• Связать Excel и Autocad