Etiketten Drucken, DOC Spalte in Werkzeugliste Drucken
11.09.2024, 09:00 Uhr
Guten Morgen
Benötige wiedermal die Schwarmintelligenz dieses Forum
Ich möchte gerne mein Programm Für Etiketten-Druck zusätzlich mit der Zeile DOC in der WZ. Liste erweitern.
Siehe Bild:
Bild.png ( 51.76KB )
Anzahl der Downloads: 25
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:
Den Code für die Etikette sieht so aus:
Das End Ergebnis sieht dann so aus:
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
Benötige wiedermal die Schwarmintelligenz dieses Forum
Ich möchte gerne mein Programm Für Etiketten-Druck zusätzlich mit der Zeile DOC in der WZ. Liste erweitern.
Siehe Bild:
Bild.png ( 51.76KB )
Anzahl der Downloads: 25Ich 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
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;
"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
11.09.2024, 16: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
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
Schwindl
18.09.2024, 08:57 UhrZITAT(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
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
19.09.2024, 09:48 UhrZITAT(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
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
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_33_02.png ( 43.4KB )
Anzahl der Downloads: 7Ausgelesen
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_45_45.png ( 40.59KB )
Anzahl der Downloads: 9;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
DATAREAD.h ( 852Byte )
Anzahl der Downloads: 4--------------------
Gruß
Schwindl
Schwindl
19.09.2024, 11:34 UhrZITAT(schwindl @ 19.09.2024, 10:48 Uhr)
Hallo Scooti,
gerade getestet. Läuft einwandfrei.
Doc in der TOOL.T
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_33_02.png ( 43.4KB )
Anzahl der Downloads: 7
Ausgelesen
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_45_45.png ( 40.59KB )
Anzahl der Downloads: 9
;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
DATAREAD.h ( 852Byte )
Anzahl der Downloads: 4
gerade getestet. Läuft einwandfrei.
Doc in der TOOL.T
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_33_02.png ( 43.4KB )
Anzahl der Downloads: 7Ausgelesen
VirtualBox_iTNC530__606425_04_SP18__19_09_2024_10_45_45.png ( 40.59KB )
Anzahl der Downloads: 9;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
DATAREAD.h ( 852Byte )
Anzahl der Downloads: 4Hallo Schwindl
tatsächlich dein pgm funktioniert
Ich habe wahrscheinlich bei mir einen Schreibfehler drinnen.
ich wünsche dir einen schönen tag
1 Besucher lesen dieses Thema (Gäste: 1)
0 Mitglieder: