How to: Add a text

Create a variable of IPCsText

to store access to a text. A Text can be modified through this variable

uses DPSCAD_TLB;

var
  ADocument : IPCsDocument;
  APage : IPCsPage;
  AText : IPCsText;
  Point3D : TPCsPoint3d;
begin
  {check if we're connected to Automation}
  if CheckConnection() then    // (See function here)
    begin
      {active project}
      ADocument := PCsApplication.ActiveDocument;
      {active page}
      APage := ADocument.ActivePage;

      {set position for text}
      Point3D.X := 10000;
      Point3D.Y := 10000;
      Point3D.Z := 0;

      {create text}
      AText := APage.Texts.Add(Point3D,'This is the Text');

      {update drawing in Automation through IPCsApplication}
      PCsApplication.Redraw;
    end;
end;

Dim ADocument As Dpscad.PCsDocument
Dim APage As Dpscad.PCsPage
Dim AText As Dpscad.PCsText
Dim Point3D As Dpscad.TPCsPoint3D

If CheckConnection() Then   // (See function here)
  'active project
  ADocument = PCsApplication.ActiveDocument
  'active page
  APage = ADocument.ActivePage

  'set position for the symbol
  Point3D.X = 10000
  Point3D.Y = 10000
  Point3D.Z = 0

  'create text
  AText = APage.Texts.Add(Point3D, "This is a Text")

  'update drawing in Automation through IPCsApplication
  PCsApplication.Redraw()
End If

Dpscad.PCsDocument ADocument;
Dpscad.PCsPage APage;
Dpscad.PCsText AText;
Dpscad.TPCsPoint3D Point3D;

if (CheckConnection())   // (See function here)
{
  /*active project*/
  ADocument = PCsApplication.ActiveDocument;
  /*active page*/
  APage = ADocument.ActivePage;

  /*set position for the symbol*/
  Point3D.X = 10000;
  Point3D.Y = 10000;
  Point3D.Z = 0;

  /*create text*/
  AText = APage.Texts.Add(Point3D, "This is a Text");

  /*update drawing in Automation through IPCsApplication*/
  PCsApplication.Redraw();
}