Description:
Returns X2 of the last point returned by GetPoint, GetLine, or GetRect.
Notes:
Creates a Segment Item at GetLine Location. Using ResultPoints. Copy and past code into New PlanSwift Script.
Pascal Example:
ATab := CurrentTab;
X1 := ResultPointX;
Y1 := ResultPointY;
X2 := ResultPointX2;
Y2 := ResultPointY2;
GetPoint(X1,Y1,X2,Y2,'DrawLine');
NewSegment := NewItem(ATab);
SetDigitizerType(NewSegment,'Segment');
SetItemProperty(NewSegment,'Name','Test Segment');
NewSection := AddSection(NewSegment);
AddPoint(NewSegment,X1,Y1,NewSection);
AddPoint(NewSegment,X2,Y2,NewSection);
Visual Basic Example:
ATab = CurrentTab
X1 = ResultPointX
Y1 = ResultPointY
X2 = ResultPointX2
Y2 = ResultPointY2
GetPoint(X1,Y1,X2,Y2,"Draw Line")
NewSegment = NewItem(ATab)
SetDigitizerType(NewSegment,"Segment")
SetItemProperty(NewSegment,"Name","Test Segment")
NewSection = AddSection(NewSegment)
AddPoint(NewSegment,X1,Y1,NewSection)
AddPoint(NewSegment,X2,Y2,NewSection)
Enterprise and Developer editions
