Jump to content
Developer Wiki and Function Reference Links ×

Decimal numbers


dirlep

Recommended Posts

Hy there,

Is there anyone who can show me how to reduce the numbers after decimals in the results on screen.

Thanks.

---The script I use is (partially from the manual):

PROCEDURE Vertexbepaling;

VAR

obj :HANDLE;

vertexNum :INTEGER;

X, Y :REAL;

vertexType :INTEGER;

arcRadius :REAL;

BEGIN

obj := FSActLayer;

FOR vertexNum := 1 TO GetVertNum(obj) DO BEGIN

GetPolylineVertex(obj, vertexNum, X, Y, vertexType, arcRadius);

TextOrigin(X+5, Y+5);

CreateText(Concat(' ', vertexNum, ' / X: ', X, ' / Y: ', Y));

END;

END;

RUN(Vertexbepaling);

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...