Description:
Adds a new point to the last digitizer object.
Notes:
Creates a Point at the GetPoint location. Copy and paste code into a New PlanSwift Script.
Pascal Example:
ATab := CurrentTab;
X1 := 0;
Y1 := 0;
GetPoint(X1,Y1,'Select Point');
NewPoint := NewItem(ATab);
SetDigitizerType(NewPoint,'Count');
SetItemProperty(NewPoint,'Name','Test Count');
NewSection := AddSection(NewPoint);
AddPoint(NewPoint,X1,Y1,NewSection);
Visual Basic Example:
ATab = CurrentTab
X1 = 0
Y1 = 0
GetPoint(X1,Y1,"Select Point")
NewPoint = NewItem(ATab)
SetDigitizerType(NewPoint,"Count")
SetItemProperty(NewPoint,"Name","Test Count")
NewSection = AddSection(NewPoint)
AddPoint(NewPoint,X1,Y1,NewSection)
.
Enterprise and Developer editions
