Здравствуйте.
Попробовал из Blackbox зайти в автокад. С английскими буквами все в порядке, с русскими - проблемы. Может быть, ответ следует искать на форуме autocad.ru?
Заранее благодарю.
С уважением, Кубаныч.

MODULE testacad;
IMPORT Log := StdLog,
acad:=CtlAutoCAD (*получен через DevComInterfaceGen из
D:\Programs\Common Files\Autodesk Shared\acax16enu.tlb

с ручным комментированием и последующим неиспользованием одного
сбойного места*)

, WinOleAut, CtlT;

PROCEDURE Cart (x,y,z:REAL ):CtlT.RealArray;
VAR
arr:ARRAY 3 OF REAL;
dot:CtlT.RealArray;
BEGIN
arr[0]:=x;arr[1]:=y;arr[2]:=z;
dot:=CtlT.RealArr(arr);

RETURN dot;
END Cart;

PROCEDURE run* ( );
VAR
vot:acad.IAcadApplication;
doc:acad.IAcadDocument;
sloi:acad.IAcadLayer;
slois:acad.IAcadLayers;
model:acad.IAcadModelSpace;

str:ARRAY 256 OF CHAR;

text:acad.IAcadText;
line:acad.IAcadLine;



BEGIN
vot:=acad.NewAcadApplication();
IF vot#NIL THEN

vot.PUTVisible(TRUE);

doc:=vot.ActiveDocument();
slois:=doc.Layers();
sloi:=slois.Add('Jalil');
sloi:=slois.Add('Akjol');
sloi:=slois.Add('Sergei');
sloi:=slois.Add('Eugen');
sloi:=slois.Add('Dauren'(*Здесь русские буквы приводят к ТРАПу*) );

model:=doc.ModelSpace();

text:=model.AddText(
'Salam' (*здесь русские буквы приводят к неправильному отображению в автокаде*)
, Cart(0,10,0) ,20);

line:=model.AddLine( Cart(0,10,0) , Cart(100,10,0) );
line.PUTcolor(acad.acGreen);
line.Update;

END;
END run;

BEGIN
END testacad.