SetPoint
Sets the digitizer point specified by PointIndex to the given X, Y coordinates.
Syntax:
Procedure:Â SetPoint(PointIndex: Integer; X, Y: Double);
API Calls
Delphi
PlanSwift Code:
If Item.PointCount > 0 Then
Item.SetPoint(0, 125, 135);
FreshDesk Code:
var
ps: IPlanSwift;
est: IItem;
itm: IItem;
sect: IItem;
pt: IPoint;
begin
// Create Planswift Interface
ps := coPlanswift.Create;
// Get the Estimating tab
est := ps.GetItem('Job\Takeoff');
// Create a new Item
itm := est.NewItem('Area', 'DoRecord Example');
// Create a new Section
sect := itm.NewSection('DoRecord Section');
// Add 4 points to section to create a box
sect.NewPoint(0, 0);
sect.NewPoint(100, 0);
sect.NewPoint(100, 100);
sect.NewPoint(0, 100);
// Show a message that the box has been drawn
ShowMessage('Box Drawn');
// Get the 4th point
pt := sect.GetPoint(3);
// Set the point 100 px lower on y axis
sect.SetPoint(3, pt.X, pt.Y + 100);
// Show that the point has been moved
ShowMessage('Point 4 has been Moved');
// Free planswift
ps := nil;
C#
public class PlanswiftApi
{
private PlanSwift Planswift { get; }
public PlanSwiftApi()
{
Planswift = new PlanSwift();
}
}
VB/VBA (OLE)