ToggleOrthoHotKey

...

Integer value returns an ANSI key code (default code 115, the number F4 key F4 in hotkey window) 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).

...

Image Added

...

          Figure 1

Image Added

             Figure 2

Image Added

           Figure 3

API Calls

Delphi

private void Main()
{
	PlanSwiftprocedure main; 
var
 planswift: IPlanSwift;
 settings: IItem;
 property: IPropertyObject 
begin
 planswift := new PlanSwiftcoPlanSwift.Create();
	IItem settings := planswift.GetItemgetItem(@"'\Settings"');
	IPropertyObject property := settingsplanswift.GetProperty("'ToggleOrthoHotkey"');
	console. WriteLn(property.ResultAsInteger()) }

//or

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property 
end

//or
procedure main; 
var 
 planswift: IPlanSwift;
 property:IPropertyObject; 
begin
 planswift := coPlanSwift.Create();
 property := planswift.GetProperty(@"'\Settings"',"'ToggleOrthoHotkey"'); 	console.
 WriteLn(property.ResultAsInteger()
}) 
end;

C#

procedureprivate main;
var
	planswift: IPlanSwift;
	settings: IItem;
	property: IPropertyObject
begin
	planswift := coPlanSwift.Createvoid Main()
{
	PlanSwift planswift = new PlanSwift();
	IItem settings := planswift.getItemGetItem('@"\Settings'");
	IPropertyObject property := planswiftsettings.GetProperty('ToggleOrthoHotkey'"ToggleOrthoHotKey");
	console.WriteLn(property.ResultAsInteger())
end

//or
procedure main;
var
	planswift: IPlanSwift;
	property:IPropertyObject;
begin
	planswift := coPlanSwift.Create}

private void Main()
{
	PlanSwift planswift = new PlanSwift();
	IPropertyObject property := planswift.GetProperty('@"\Settings','ToggleOrthoHotkey'); ","ToggleOrthoHotKey")
	console.WriteLn(property.ResultAsInteger)
}

VB/VBA (OLE)

...

Code Block
language vb theme RDark firstline 1 title VB \ VBA (OLE)Using IItem Object Model linenumbers true collapse true
Sub main() Dim planswift = CreateObject("PlanSwift9.PlanCenter") Dim settings = planswift.GetItem("\Settings") Dim property = settings.GetProperty("ToggleOrthoHotkeyToggleOrthoHotKey") Console.WriteLn(property.ResultAsInteger()); End Sub

Code Block
language vb theme RDark firstline 1 title Using PlanSwift Object Model linenumbers true collapse true
Sub Main() //or Sub Main() Dim planswift = CreateObject("PlanSwift9.PlanCenter") Dim nameProperty = planswift.GetProperty("\Settings","ToggleOrthoHotkeyToggleOrthoHotKey") Console.WriteLn(property.ResultAsInteger) End Sub

Pascal Scripting (OLE)

begin
   	 settings := PlanSwift.getItem('\Settings');
	property   := settings.GetProperty('ToggleOrthoHotkey');
	ShowMessage(property.ResultAsInteger);
end

//or

begin
	propertyShowMessage(GetResultAsInteger(settings,'ToggleOrthoHotKey'));
end

begin
   ShowMessage(GetResultAsInteger('\Settings','ToggleOrthoHotKey'));
end

Pascal Scripting

begin
    settings := PlanSwift.GetPropertygetItem('\Settings','ToggleOrthoHotkey);
    property := settings.GetProperty('ToggleOrthoHotKey');
 	   ShowMessage(property.ResultAsInteger);
end
//or

begin
	settings

begin
    property := getItemPlanSwift.GetProperty('\Settings');
	ShowMessage(GetResultAsInteger(settings,'ToggleOrthoHotkeyToggleOrthoHotKey'));
end  //or  begin
   ShowMessage(GetResultAsInteger('\Settings','ToggleOrthoHotkey'));
end

Image Removed

          Figure 1

Image Removed

             Figure 2

Image Removed

...

ShowMessage(property.ResultAsInteger);
end