Versions Compared

Old Version 11

changes.mady.by.user Former user

Saved on

compared with

New Version Current

changes.mady.by.user Daniel Wal

Saved on

Key

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

ToggleOrthoHotKey


...

Integer value returns an ANSI key code (default code 115, the key F4 key F4 in hotkey window) for for the Toggle Angle Snap (Ortho), shown in Figure 1). This is controlled in the Main Menu / Settings / Snapping window (Ortho Snap to Angles, Figure 2) and at the bottom of the PlanSwift window (Figure 3).

API Call:

...

Image RemovedImage Added

          Figure 1


Image RemovedImage Added

             Figure 2


Image RemovedImage Added

           Figure 3

API Calls

Delphi

Code Block
languagedelphi
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
procedure main; 
var
 planswift: IPlanSwift;
 settings: IItem;
 property: IPropertyObject 
begin
 planswift := coPlanSwift.Create();
 settings := planswift.getItem('\Settings');
 property := planswift.GetProperty('ToggleOrthoHotkey');
 WriteLn(property.ResultAsInteger()) 
end


Code Block
languagedelphi
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
//or
procedure main; 
var 
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty('\Settings','ToggleOrthoHotkey'); 
 WriteLn(property.ResultAsInteger()) 
end;

C#

Code Block
languagec#
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IItem settings = planswift.GetItem(@"\Settings");
	IPropertyObject property = settings.GetProperty("ToggleOrthoHotKey");
	console.WriteLn(property.ResultAsInteger())
}


Code Block
languagec#
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property = planswift.GetProperty(@"\Settings","ToggleOrthoHotKey")
	console.WriteLn(property.ResultAsInteger)
}

VB/VBA (OLE)

Code Block
languagevb
themeRDark
firstline1
titleUsing IItem Object Model
linenumberstrue
collapsetrue
Sub main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim settings = planswift.GetItem("\Settings")
    Dim property = settings.GetProperty("ToggleOrthoHotKey")
    Console.WriteLn(property.ResultAsInteger());
End Sub


Code Block
languagevb
themeRDark
firstline1
titleUsing PlanSwift Object Model
linenumberstrue
collapsetrue
Sub Main()
    Dim planswift = CreateObject("PlanSwift9.PlanCenter")
    Dim nameProperty = planswift.GetProperty("\Settings","ToggleOrthoHotKey")
    Console.WriteLn(property.ResultAsInteger)
End Sub

Pascal Scripting (OLE)

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
collapsetrue
begin
    settings := getItem('\Settings');
    ShowMessage(GetResultAsInteger(settings,'ToggleOrthoHotKey'));
end


Code Block
themeRDark
titleRoot Object Model
linenumberstrue
collapsetrue
begin
   ShowMessage(GetResultAsInteger('\Settings','ToggleOrthoHotKey'));
end

Pascal Scripting

Code Block
themeRDark
firstline1
titleItem Object Model
linenumberstrue
collapsetrue
begin
    settings := PlanSwift.getItem('\Settings');
    property := settings.GetProperty('ToggleOrthoHotKey');
    ShowMessage(property.ResultAsInteger);
end


Code Block
themeRDark
titleUsing the PlanSwift Object Model
linenumberstrue
collapsetrue
begin
    property := PlanSwift.GetProperty('\Settings','ToggleOrthoHotKey');
    ShowMessage(property.ResultAsInteger);
end