View Source

NewPoint

Adds a new point to ItemPath at the X, Y coordinates. If the Item is not found or is not a drawing object, this procedure will be ignored.

Syntax:

Procedure: NewPoint(ItemPath: String; 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

PlanSwift Code:


StartCount := PlanSwift.PointCount(ItemPath);

PlanSwift.NewPoint(ItemPath, 100, 125);

StopCount := PlanSwift.PointCount(ItemPath);

if StopCount > StartCount then
  begin
    Result := TRUE;
  end
else
  begin
    Result := FALSE;
  end;


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#

public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}

Coming soon

VB/VBA (OLE)

Coming soon

Coming soon