Creates a blank page in the current job and returns the Page Item that was created.
Syntax:
Procedure: NewBlankPage(const AName: WideString; AWidth, AHeight, ADPI: Integer; const AScale: WideString): IItem;
Code Reference:
PlanSwift Code: var oPageItem : IItem; AName : WideString; AWidth : integer; AHeight : integer; ADPI : integer; AScale : WideString; begin AName := 'Floor Plan'; AWidth := 36; AHeight := 24; ADPI := 100; AScale := '1=48'; oPageItem := PlanSwift.NewBlankPage(AName, AWidth, AHeight, ADPI, AScale); end; FreshDesk Code: procedure TForm1.psNewBlankPage(Sender: TObject); var ps: IPlanSwift; pg: IItem; note: IItem; begin //Create Planswift Interface ps := coPlanswift.Create; //Check to see if a job is open if not ps.IsJobOpen then begin ShowMessage('No Job Open'); exit; end else begin //Create a new Blank page pg := ps.NewBlankPage('My New Page',36,24,200,'1/4"=1'); //Draw a note on that page note := pg.NewItem('Note','My Page Note'); // Set PAGEGUID on note so that it shows on the proper page note.SetPropertyFormula('PageGUID',pg.guid); //Set the note text note.SetPropertyFormula('Text','This is My New Page'); //add first point on note note.NewPoint(0,0); end; //Free Planswift Interface ps := nil; end; |
public class PlanswiftApi { private PlanSwift Planswift { get; } public PlanSwiftApi() { Planswift = new PlanSwift(); } } |
Coming soon |
Coming soon |
Coming soon |