HEIDENHAIN

Etiketten Drucken, DOC Spalte in Werkzeugliste Drucken

Beitrag 11.09.2024, 09:00 Uhr
sc88ti
Level 1 = Community-Lehrling
*
Guten Morgen

Benötige wiedermal die Schwarmintelligenz dieses Forum biggrin.gif

Ich möchte gerne mein Programm Für Etiketten-Druck zusätzlich mit der Zeile DOC in der WZ. Liste erweitern.
Siehe Bild:
Angehängte Datei  Bild.png ( 51.76KB ) Anzahl der Downloads: 23


Ich weis dass ich nur numerische Werte Drucken kann. Wie kann ich aber alphanumerische Werte Drucken?
Geht das überhaupt?

Steuerung: TNC530

Mein Aktuelles Programm sieht so aus:
CODE
0 BEGIN PGM Etiketten MM
1 ;*********************
2 *******Werkzeuge*******
3 FN 0: Q800 =+9 ;WZ 1
4 CALL LBL 1
5 STOP
6 FN 0: Q801 =+2 ;WZ 2
7 CALL LBL 2
8 STOP
9 FN 0: Q802 =+14 ;WZ 3
10 CALL LBL 3
11 STOP
12 FN 0: Q803 =+51 ;WZ 4
13 CALL LBL 4
14 STOP
15 FN 0: Q804 =+39 ;WZ 5
16 CALL LBL 5
17 M30
18 ;***************************
19 ****** LBL Werkzeug 1 ******
20 LBL 1
21 FN 26: TABOPEN TNC:\tool.t
22 FN 28: TABREAD Q600 =Q800 /"NAME,L,R,R2,CUR.TIME"
23 FN 16: F-PRINT Etikette.A / TNC:\VOGT\Etikette.TXT
24 LBL 0
25 ****** LBL Werkzeug 2 ******
26 LBL 2
27 FN 26: TABOPEN TNC:\tool.t
28 FN 28: TABREAD Q600 =Q801 /"NAME,L,R,R2,CUR.TIME"
29 FN 16: F-PRINT Etikette.A / TNC:\VOGT\Etikette.TXT
30 LBL 0
31 ****** LBL Werkzeug 3 ******
32 LBL 3
33 FN 26: TABOPEN TNC:\tool.t
34 FN 28: TABREAD Q600 =Q802 /"NAME,L,R,R2,CUR.TIME"
35 FN 16: F-PRINT Etikette.A / TNC:\VOGT\Etikette.TXT
36 LBL 0
37 ****** LBL Werkzeug 4 ******
38 LBL 4
39 FN 26: TABOPEN TNC:\tool.t
40 FN 28: TABREAD Q600 =Q803 /"NAME,L,R,R2,CUR.TIME"
41 FN 16: F-PRINT Etikette.A / TNC:\VOGT\Etikette.TXT
42 LBL 0
43 ****** LBL Werkzeug 5 ******
44 LBL 5
45 FN 26: TABOPEN TNC:\tool.t
46 FN 28: TABREAD Q600 =Q804 /"NAME,L,R,R2,CUR.TIME"
47 FN 16: F-PRINT Etikette.A / TNC:\VOGT\Etikette.TXT
48 LBL 0
49 END PGM Etiketten MM


Den Code für die Etikette sieht so aus:

CODE
"TOOL: %6.0LF %02d.%02d.%2d",Q600,DAY,MONTH,YEAR2;
"WZ-LAENGE: %9.3LF", Q601;
"WZ-RADIUS: %9.3LF", Q602;
"WZ-RADIUS2: %9.3LF", Q603;
"STANDZEIT: %9.3LF", Q604;
M_CLOSE;


Das End Ergebnis sieht dann so aus:
CODE

TOOL: 103002 14.08.24
WZ-LAENGE: 100.952
WZ-RADIUS: 1.491
WZ-RADIUS2: 0.000
STANDZEIT: 38.000

Werkzeugschrank



Würde mich über eine Antwort freuen.

Gruss Scooti
   
Beitrag 11.09.2024, 16:16 Uhr
schwindl
Level 7 = Community-Professor
*******
Hallo Scooti,

das geht wie die numerischen Werte

Statt %9.3LF schreibst Du %S und dananch den QS wo der Text drin steht.

Um Den Doc aus der Tabelle zu bekommen, brauchst Du den DATAREAD. Der geht aber erst ab einer gewissen Software. Einfach mal die Suche bemühen, dann findest du dazu hier im Forum auch etwas


--------------------
Gruß
Schwindl
   
Beitrag 18.09.2024, 08:57 Uhr
sc88ti
Level 1 = Community-Lehrling
*
ZITAT(schwindl @ 11.09.2024, 17:16 Uhr) *
Hallo Scooti,

das geht wie die numerischen Werte

Statt %9.3LF schreibst Du %S und dananch den QS wo der Text drin steht.

Um Den Doc aus der Tabelle zu bekommen, brauchst Du den DATAREAD. Der geht aber erst ab einer gewissen Software. Einfach mal die Suche bemühen, dann findest du dazu hier im Forum auch etwas


Hallo schwindl

Danke erstmal.

Mit Stringbefehlen kenne ich mich gar nicht aus.
Habe jetzt hier im Forum ein PDF von dir gefunden über die Funktionen DATA WRITE / DATA READ.
Zum verstehen was da genau passiert habe ich mir Punkt 1 mal nachgebaut. Leider erhalte ich die Fehlermeldung; Nicht erlaubter DATA ACSESS PATH bei Satz 30.


23 QS1 = "\TABLE\"
24 QS2 = "TNC:\TOOL.T"
25 QS3 = "T"
26 Q4 = 1 ;WZ NUMMER
27 Q5 = 0 ;INDEX
28 QS6 = "\NAME"
29 QS10 = QS1 || QS2 || QS3 || TOCHAR( DAT+Q4 DECIMALS0 ) || "." || TOCHAR( ~
DAT+Q5 DECIMALS0 ) || QS6
30 DATA READ QS11 = QS10

NC-SW ist 606420 04 SP16

Gruss scooti
   
Beitrag 19.09.2024, 09:48 Uhr
schwindl
Level 7 = Community-Professor
*******
ZITAT(sc88ti @ 18.09.2024, 09:57 Uhr) *
Hallo schwindl

Danke erstmal.

Mit Stringbefehlen kenne ich mich gar nicht aus.
Habe jetzt hier im Forum ein PDF von dir gefunden über die Funktionen DATA WRITE / DATA READ.
Zum verstehen was da genau passiert habe ich mir Punkt 1 mal nachgebaut. Leider erhalte ich die Fehlermeldung; Nicht erlaubter DATA ACSESS PATH bei Satz 30.


23 QS1 = "\TABLE\"
24 QS2 = "TNC:\TOOL.T"
25 QS3 = "T"
26 Q4 = 1 ;WZ NUMMER
27 Q5 = 0 ;INDEX
28 QS6 = "\NAME"
29 QS10 = QS1 || QS2 || QS3 || TOCHAR( DAT+Q4 DECIMALS0 ) || "." || TOCHAR( ~
DAT+Q5 DECIMALS0 ) || QS6
30 DATA READ QS11 = QS10

NC-SW ist 606420 04 SP16

Gruss scooti


Hallo Scooti,

gerade getestet. Läuft einwandfrei.

Doc in der TOOL.T
Angehängte Datei  VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_33_02.png ( 43.4KB ) Anzahl der Downloads: 6


Ausgelesen
Angehängte Datei  VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_45_45.png ( 40.59KB ) Anzahl der Downloads: 7


;DOC
19 * Read from Table
20 * - Zielpfad
21 ;
22 QS1 = "\TABLE\" ;Art der Datei
23 QS2 = "'TNC:\TOOL.T'" ;Pfad und Name der Tabelle
24 QS3 = "\T\" ;Spalte fuer Zeilennummer
25 Q4 = 8 ;Werkzeugnummer
26 Q5 = 0 ;Werkzeugindex
27 QS6 = "\DOC"
28 ;
29 QS10 = QS1 || QS2 || QS3 || TOCHAR( DAT+Q4 DECIMALS0 ) || "." || TOCHAR( ~
DAT+Q5 DECIMALS0 ) || QS6
30 ;
31 DATA READ QS11 = QS10

Angehängte Datei  DATAREAD.h ( 852Byte ) Anzahl der Downloads: 4




--------------------
Gruß
Schwindl
   
Beitrag 19.09.2024, 11:34 Uhr
sc88ti
Level 1 = Community-Lehrling
*
ZITAT(schwindl @ 19.09.2024, 10:48 Uhr) *
Hallo Scooti,

gerade getestet. Läuft einwandfrei.

Doc in der TOOL.T
Angehängte Datei  VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_33_02.png ( 43.4KB ) Anzahl der Downloads: 6


Ausgelesen
Angehängte Datei  VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_45_45.png ( 40.59KB ) Anzahl der Downloads: 7


;DOC
19 * Read from Table
20 * - Zielpfad
21 ;
22 QS1 = "\TABLE\" ;Art der Datei
23 QS2 = "'TNC:\TOOL.T'" ;Pfad und Name der Tabelle
24 QS3 = "\T\" ;Spalte fuer Zeilennummer
25 Q4 = 8 ;Werkzeugnummer
26 Q5 = 0 ;Werkzeugindex
27 QS6 = "\DOC"
28 ;
29 QS10 = QS1 || QS2 || QS3 || TOCHAR( DAT+Q4 DECIMALS0 ) || "." || TOCHAR( ~
DAT+Q5 DECIMALS0 ) || QS6
30 ;
31 DATA READ QS11 = QS10

Angehängte Datei  DATAREAD.h ( 852Byte ) Anzahl der Downloads: 4



Hallo Schwindl
tatsächlich dein pgm funktioniert smile.gif danke.gif
Ich habe wahrscheinlich bei mir einen Schreibfehler drinnen. wacko.gif

ich wünsche dir einen schönen tag thumbs-up.gif

   
1 Besucher lesen dieses Thema (Gäste: 1)
0 Mitglieder: