Versions Compared

Key

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

...

    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:


PlanSwift.PostChanges;


FreshDesk Code:


procedure TForm1.psNewChangeGroupPostChanges(Sender: TObject);
var
  ps: IPlanSwift;           
  itm,sect,pg: IItem;         
  I: Integer;
  ranX,ranY: Extended;
  x: Integer;
  y: Integer;
begin
//Create Planswift Interface
  ps := coPlanswift.Create;
  //Create Change Group
  ps.NewChangeGroup('Random Points');            
  //Begin Planswift Update
  ps.BeginUpdate;
  //Get The Current Selected Page
  pg := ps.SelectedPage;
  //Create a new Point Count Item
  itm := ps.GetItem('Job\Takeoff');        
  itm := itm.NewItem('Count','Random Points');
  //Create a section for the Random Points
  sect := itm.NewSection('Random Point Section');
  //Create 20 Random points on the page
  for I := 0 to 20 - 1 do begin
    x := Random(pg.GetPropertyResultAsInteger('PageWidth',0));
    ranX := x;
    y := Random(pg.GetPropertyResultAsInteger('PageHeight',0));
    ranY := y;
    sect.NewPoint(ranX,ranY);
  end;
  //End Planswift Update
  ps.EndUpdate;
  //Post all Changes for undo
  ps.PostChanges;
  //Notifiy user to press ctrl + Z
  ShowMessage('Press ctrl + z to undo changes');
  //free planswift
  ps := nil
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