...
Integer value returns an ANSI key code (default code 115, the 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).
API Call:
...
Image Removed
Image Added
Figure 1
Image Removed
Image Added
Figure 2
Image Removed
Image Added
Figure 3
API Calls
Delphi
Code Block |
---|
language | delphi |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
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 |
---|
language | delphi |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
//or
procedure main;
var
planswift: IPlanSwift;
property:IPropertyObject;
begin
planswift := coPlanSwift.Create();
property := planswift.GetProperty('\Settings','ToggleOrthoHotkey');
WriteLn(property.ResultAsInteger())
end; |
C#
Code Block |
---|
language | c# |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
private void Main()
{
PlanSwift planswift = new PlanSwift();
IItem settings = planswift.GetItem(@"\Settings");
IPropertyObject property = settings.GetProperty("ToggleOrthoHotKey");
console.WriteLn(property.ResultAsInteger())
} |
Code Block |
---|
language | c# |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
private void Main()
{
PlanSwift planswift = new PlanSwift();
IPropertyObject property = planswift.GetProperty(@"\Settings","ToggleOrthoHotKey")
console.WriteLn(property.ResultAsInteger)
} |
VB/VBA (OLE)
Code Block |
---|
language | vb |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using IItem Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
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 |
---|
language | vb |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Using PlanSwift Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
Sub Main()
Dim planswift = CreateObject("PlanSwift9.PlanCenter")
Dim nameProperty = planswift.GetProperty("\Settings","ToggleOrthoHotKey")
Console.WriteLn(property.ResultAsInteger)
End Sub |
Pascal Scripting (OLE)
Code Block |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Item Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
settings := getItem('\Settings');
ShowMessage(GetResultAsInteger(settings,'ToggleOrthoHotKey'));
end |
Code Block |
---|
theme | RDark |
---|
title | Root Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
ShowMessage(GetResultAsInteger('\Settings','ToggleOrthoHotKey'));
end |
Pascal Scripting
Code Block |
---|
theme | RDark |
---|
firstline | 1 |
---|
title | Item Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
settings := PlanSwift.getItem('\Settings');
property := settings.GetProperty('ToggleOrthoHotKey');
ShowMessage(property.ResultAsInteger);
end |
Code Block |
---|
theme | RDark |
---|
title | Using the PlanSwift Object Model |
---|
linenumbers | true |
---|
collapse | true |
---|
|
begin
property := PlanSwift.GetProperty('\Settings','ToggleOrthoHotKey');
ShowMessage(property.ResultAsInteger);
end |