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.

SetPoint (2)

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

SetPoint


Sets the XY coordinates of the specified point.


Syntax:

Procedure: SetPoint(ItemPath: String; PointIndex: Integer; 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 PlanSwift Object Model 
PlanSwift Code:


StartCount := PlanSwift.PointCount(ItemPath);
PlanSwift.NewPoint(ItemPath, 100, 125);
StopCount := PlanSwift.PointCount(ItemPath);
if StopCount > StartCount then
  result := True
else
  Result := False;


FreshDesk Code:


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;

C#

Using IItem Object Model 
public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}
Using PlanSwift Object Model
Coming soon

VB/VBA (OLE)

Using IItem Object Model
Coming soon
Using PlanSwift Object Model
Coming soon

Copyright 2023 ConstructConnect