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.

NewPoint - FD

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

NewPoint

Creates a new digitizer point at the X, Y coordinates.

Syntax: 

Procedure: IPlanswift.NewPoint(X, Y: Double);

Code Reference:

    • 1. Create a New Forms Application
    • 2. Add a Planswift to the References (Planswift_Tlb)
    • 3. Add a button to the form
    • 4. Copy code below to the onclick event of the button
    • 5. Compile and run

API Calls

Delphi

Using IItem Object Model 
procedure TForm1.GetSetPoint(sender: TObject);
var
  ps: IPlanSwift;
  area,sect: IItem;
  xs,cx,cy: Extended;
  pgw,pgh,p1x,p1y,p2x,p2y,p3x,p3y,p4x,p4y: Extended;
begin
  ps := coPlanswift.Create;
  area := ps.GetItem('Job\Takeoff');
  area := area.NewItem('Area','SetPointArea');
  sect := area.NewSection('SetPoint Area Section');
  pgw := ps.SelectedPage.GetPropertyResultAsInteger('PageWidth',0);
  pgh := ps.SelectedPage.GetPropertyResultAsInteger('PageHeight',0);
  xs := ps.SelectedPage.GetPropertyResultAsFloat('ScaleX',0);
  cx := pgw /2;
  cy := pgh /2;
  p1x := cx - 20 * xs;
  p1y := cy - 10 * xs;
  sect.NewPoint(p1x,p1y);          
  p2x := cx + 10 * XS;
  p2y := p1y;                       
  sect.NewPoint(p2x,p2y);
  p3x := p2x;
  p3y := cy + 10 * xs;
  sect.NewPoint(p3x,p3y);
  p4x := cx - 10 * xs;
  p4y := p3y;
  ps.NewPoint(sect.GUID,p4x,p4y);
  ShowMessage('Now will fix the first point by using set point');
  p1x := cx - 10 * XS;
  ps.SetPoint(sect.guid,0,p1x,p1y);
 
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