Syntax

code

Procedure: SetPoint(PointIndex: Integer; X, Y: Double);


Description

Sets the digitizer point specified by PointIndex to the given X, Y coordinates.


Code Reference


code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

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;