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.

CurrentViewport - FD

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

CurrentViewport

Gets the upper-right and lower-left points of the viewport.

Syntax:

Function: CurrentViewport;

Code Reference:

    • 1. Create a New Form application
    • 2. Add a button to the form
    • 3. Add Planswift to reference (Planswift9_tlb in the uses)
    • 4. Copy code to button onclick event

API Calls

Delphi

Using IItem Object Model 
procedure TForm1.psCurrentViewPort(Sender: TObject);
var
  ps: IPlanSwift;
  psline: ILine;
  pg,d: IItem;
 
begin
  //Create Planswift Interface
  ps := coPlanswift.Create;
  //Get Current Viewport size and store it into a line
  psline := ps.CurrentViewport;
  // Get the current page in the viewport
  pg := ps.SelectedPage;
  //Add a dimension to the current page
  d := pg.NewItem('Dimension','ViewPort Dimension');
  //Set the PageGUID of the dimension so that it shows on the proper page
  d.SetPropertyFormula('PageGUID',pg.GUID);
  //Add Start point of the dimension
  d.NewPoint(psline.Point1.X,psline.Point1.Y);
  //Add End Point of the dimension
  d.NewPoint(psline.Point2.Y,psline.Point2.Y);
  //Free the planswift interface
  ps := nil;
end;
Using PlanSwift Object Model

C#

Using IItem Object Model
Using PlanSwift Object Model

VB/VBA (OLE)

Using IItem Object Model
Using PlanSwift Object Model

Pascal Scripting (OLE)

Item Object Model
Root Object Model

Pascal Scripting

Item Object Model
Using the PlanSwift Object Model

Copyright 2023 ConstructConnect