Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

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.

...

    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

Code Block
languagedelphi
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
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#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
public class PlanswiftApi
{
    private PlanSwift Planswift { get; }
    public PlanSwiftApi()
    {
        Planswift = new PlanSwift();
    }
}


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Coming soon

VB/VBA (OLE)

Code Block
languagevb
firstline1
titleUsing IItem Object Model
linenumberstrue
Coming soon


Code Block
languagevb
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
Coming soon