To open any link in a new tab, preserving your position in the current article, just hold down the <CTRL> key on your keyboard before clicking the link or click using your mouse wheel.

GetRect - FD

Owned by Former user (Deleted)
Last updated: Sept 10, 2019 by Daniel Wal

GetRect

Prompts the user to click 2 points on the active plan to define a rectangle, then returns the coordinates in p1 and p2.

Returns 1 if the function is successful or 0 if the user cancels.

Syntax:

Function: GetRect(Var p1x: double; Var p1y: double; Var p2x: double; Var p2y: double; Hint: String): Integer;

Code Reference:

    • 1. Create a New Form application
    • 2. Add a button to the form
    • 3. Add Planswift to reference (Planswift9_tlb in the uses)
    • 4. Copy code to button onclick event

API Calls

Delphi

Using IItem Object Model 
procedure TForm1.psGetRect(Sender: TObject);
var
  ps: IPlanSwift;
  Est,sect,Area: IItem;
  psline: ILine;
  pt1,pt2: IPoint;
begin
  //Get Planswift Interface
  ps := CoPlanswift.Create;
  //Place planswift into update mode
  ps.BeginUpdate;
  // Get the Takeoff Folder (Estimating Tab in Planswift);
  Est := ps.GetItem('Job\Takeoff');
  //Create a New Area Item in the Estimating Tab
  Area := Est.NewItem('Area','Get Rect Demo');
  //Create a new Section for the Area
  sect := Area.NewSection('Get Rect Demo Section');
  //Call the Get Rect functions
  psline := ps.GetRect('Draw Area');
  //Get the two points from the iLine Returned by the GetRect function
  pt1 := psline.Point1;
  pt2 := psline.Point2;
  //Add Points to section to create a box
  sect.NewPoint(pt1.X,pt1.y);
  sect.NewPoint(pt2.X,pt1.y);
  sect.NewPoint(pt2.X,pt2.y);
  sect.NewPoint(pt1.X,pt2.y);
  sect.NewPoint(pt1.X,pt1.y);
  //EndUpdate;
  ps.EndUpdate;
  //Free the Planswift Interface
  ps := nil;
end;
Using PlanSwift Object Model

C#

Using IItem Object Model
Using PlanSwift Object Model

VB/VBA (OLE)

Using IItem Object Model
Using PlanSwift Object Model

Pascal Scripting (OLE)

Item Object Model
Root Object Model

Pascal Scripting

Item Object Model
Using the PlanSwift Object Model


Copyright 2023 ConstructConnect