procedure TForm1.psPointCount(Sender: TObject);
var
ps: IPlanSwift;
est: IItem;
itm: IItem;
sect: IItem;
begin
//Create the Planswift Interface
ps := coPlanswift.Create;
//Get the Estimating Tab
est := ps.GetItem('Job\Takeoff');
//Create an Area Item
itm := est.newItem('Area','Point Count Area');
//Create a Section to the Area
sect := itm.NewSection('Point Count Section');
//Create a box on the selected page
sect.NewPoint(0,0);
sect.NewPoint(0,200);
sect.NewPoint(200,200);
sect.NewPoint(200,0);
//Show the Point Count
ShowMessage(intToStr(sect.PointCount));
//free Planswift Interface
ps := nil;
end; |