Строки двухбайтовые.

PROCEDURE (this: IAcadLayers) Add* (Name: ARRAY OF CHAR): IAcadLayer, NEW;
(* Creates a member object and adds it to the appropriate collection *)
VAR arg: ARRAY 1 OF CtlT.Variant; ret: CtlT.Variant;
BEGIN
CtlC.StrVar(Name, arg[0]);
CtlC.CallParMethod(this, 2, arg, ret);
RETURN ThisIAcadLayer(CtlC.VarAny(ret))
END Add;

PROCEDURE ThisIAcadLayers* (v: CtlT.Any): IAcadLayers;
VAR new: IAcadLayers;
BEGIN
IF v # NIL THEN
NEW(new); CtlC.InitObj(new, v, "{C347DCBD-D10D-4E35-8509-463A47F6F197}"); RETURN new
ELSE RETURN NIL
END
END ThisIAcadLayers;


----------------------------------------

PROCEDURE (this: IAcadModelSpace) AddText* (TextString: ARRAY OF CHAR; InsertionPoint: CtlT.Any; Height: REAL): IAcadText, NEW;
(* Creates a single line of text *)
VAR arg: ARRAY 3 OF CtlT.Variant; ret: CtlT.Variant;
BEGIN
CtlC.StrVar(TextString, arg[2]);
CtlC.AnyVar(InsertionPoint, arg[1]);
CtlC.RealVar(Height, arg[0]);
CtlC.CallParMethod(this, 1572, arg, ret);
RETURN ThisIAcadText(CtlC.VarAny(ret))
END AddText;


PROCEDURE ThisIAcadText* (v: CtlT.Any): IAcadText;
VAR new: IAcadText;
BEGIN
IF v # NIL THEN
NEW(new); CtlC.InitObj(new, v, "{E3FD8511-58AF-43D4-9B16-C6941F7B245F}"); RETURN new
ELSE RETURN NIL
END
END ThisIAcadText;