Page Comparison

procedure TForm1.psBeginUpdateEndUpdate(Sender: TObject);
var
  ps : IPlanswift;
  pg: IItem;
  dimension: IItem;
  sect: IItem;
  psline: ILine;
  pt: IPoint;
begin                                     
  //Create the PlanSwift Interface
  ps := coPlanswift.Create;
  //Put Planswift Interface to Update Mode
  ps.BeginUpdate;                     
  //Get Selected Page
  pg := ps.SelectedPage;
  //Call The GetLine Function (See GetLine)
  psline := ps.GetLine('Draw Dimension Line');
  //Create a New Dimension Item
  dimension :=pg.NewItem('Dimension','Demo Dimension Item');
  //PageGUID Must be set to the selected page
  dimension.SetPropertyFormula('PageGUID',pg.GUID);
  //Get The First Piont from psLine
  pt :=  psline.Point1;
  //Add Start Point to the Dimension Section
  dimension.NewPoint(pt.X,pt.Y);
  //Get The Second Point from psLine
  pt := psline.Point2;
  //Add End Point to the Dimension Section
  dimension.NewPoint(pt.X,pt.Y);
  //Take Planswift out of Update Mode
  ps.EndUpdate;
  //Clear Planswift Interface
  ps := nil;
end;