Procedure PtDialog displays a dialog box which requests the user to enter a coordinate (point) value.
PROCEDURE PtDialog(
request : STRING;
defaultX : STRING;
defaultY : STRING;
VAR x : REAL;
VAR y : REAL);def vs.PtDialog(request, defaultX, defaultY):
return (x, y)| Name | Type | Description |
|---|---|---|
| request | STRING | Dialog user prompt string. |
| defaultX | STRING | Default value for input field. |
| defaultY | STRING | Default value for input field. |
| x | REAL | Returns user input X value. |
| y | REAL | Returns user input Y value. |
PtDialog('Enter a coordinate.','0','0',cX,cY);BEGIN
TxtX := GetRField(Obj,kHoistPIOName,'ControlPoint01X');
TxtY := GetRField(Obj,kHoistPIOName,'ControlPoint01Y');
PtDialog(CONCAT('Input location measured from the insertion of the hoist.',chr(13),'the hoist graphic center'),TxtX,TxtY,X,Y);
IF (NOT DidCancel) THEN
ForEachObject(AssignTextPosition, (((R IN [kHoistPIOName]) & (SEL=TRUE))));
ENDresult = vs.PtDialog(request, defaultX, defaultY)Availability: from All Versions