GetOneWayLayout - FD

GetOneWayLayout

Function used to perform segment layouts at a specified span, horizontal run, as well as spacing. 

Arguments: 
AItem: WideString
Specifies the area section to assign the layout segments to.

sSpanHint: WideString
Hint to user on mouse cursor specifying to select the span line.

sRunHint: WideString
Hint to user on mouse cursor specifying to select the run line.

bIncludeFirst: WordBool
Specifies whether to include a segment at the "start" run point. Even if it does not fall within the spacing range.

bIncludeLast: WordBool
Specifies whether to include a segment at the "last" run point. Even if it does not fall within the spacing range.

nSpacing: Double
Specifies the "run" spacing used when laying out segment objects.

AArea: WideString (optional parameter)
Specifies a defined "Area Segment" to trim/extend laid segments to. Supply either the path or guid to the area section. Or, empty double-quotes for no trim/extending required.

Syntax:

Function:GetOneWayLayout(const AItem: WideString; const sSpanHint: WideString; const sRunHint: WideString; bIncludeFirst: WordBool; bIncludeLast: WordBool; nSpacing: Double; const AArea: WideString): WordBool;

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

procedure TForm1.psGetOnewWayLayout(Sender: TObject);
var
  ps: IPlanSwift;
  est,Area,Sect,Seg: IItem;
  psline: ILine;
  pt1,pt2: IPoint;
  S: Integer;
begin
   //Get Planswift Interface
  ps := CoPlanswift.Create;
  // Get the Takeoff Folder (Estimating Tab in Planswift);
  Est := ps.GetItem('Job\Takeoff');
  //Create a New Area Item in the Estimating Tab
  Area := Est.NewItem('Area','Get Rect Demo');
  //Create a new Section for the Area
  sect := Area.NewSection('Get Rect Demo Section');
  //Call the Get Rect functions
  psline := ps.GetRect('Draw Area');
  //Get the two points from the iLine Returned by the GetRect function
  pt1 := psline.Point1;
  pt2 := psline.Point2;
  //Add Points to section to create a box
  sect.NewPoint(pt1.X,pt1.y);
  sect.NewPoint(pt2.X,pt1.y);
  sect.NewPoint(pt2.X,pt2.y);
  sect.NewPoint(pt1.X,pt2.y);
  sect.NewPoint(pt1.X,pt1.y);
  //Create Line Segment Item
  seg := Area.NewItem('Segment','Draw One Way Demo');
  //input Spacing
  S := StrToInt(inputBox('Enter Spacing','Enter Spacing','24'));
 
  //Get OneWayLayout (Dras Segment lines in one direction)
  ps.GetOneWayLayout(Seg.GUID,'Draw Span','Draw Run',True,True,s,sect.guid);
 
  //Free the Planswift Interface
  ps := nil;
 
end;

C#

VB/VBA (OLE)

Pascal Scripting (OLE)

Pascal Scripting