The engraving sub program can be called from any program for engraving characters.
The program is provided by the installer/retrofitter.
The text to engrave is written in English characters and its source can be plain text, received from a data entry program, functions that return text, e.g. date$, or a variable, e.g. part number.
To produce the test-pattern below, comment the line: menuhelp and run Engrave as a program.
The text to engrave is entered in a string variable A$.
The associated numerical data is entered under letter addresses.
A$ must be defined in the beginning of the user program before other arrays:
dim A$(80)This statement allocates memory for an 80 character string A$.
A$='TODAY IS '+date$ A$=str$(123456) \converted according to the last programmed Format) A$=str$(#10) \#10 can be set as a part counter
To call the engraving sub-program a line like this is used:
g4 x-5 y-1 z.1 k-.1 @r-1 @p180 E2 call 'engrave'Where:
G4 Required if G0 priority for Z is not set (some 5-axis machines) XY Beginning of text Z Rapid plane K Cutting depths @R Scale @P Rotation E SpacingThe last 3 addresses were selected because they are set to zero at the beginning of a program and in most programs they aren't used.
Once all variables have been assigned, for the next text the most likely changes are the position, so it is enough to enter:
g4 x-5 y-1 z.1 call 'engrave'
The available character set is:
Space, 0 to 9, A to Z, + - : . /Other symbols may be added by the user. Lowercase alpha characters are converted to uppercase and undefined characters leave spaces.
dim A$(80) copy(cnx$+'bin\engrave.cpl', cpl$) . . . . A$='ACME INC' X-5 y2 z.1 k-.1 f40 Call 'engrave' . . . . format(1,0) A$=str$(#20) x2 y-4 z.1 Call 'engrave'