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: 20
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: 20
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
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
Gestern, 08:57 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
5 Besucher lesen dieses Thema (Gäste: 5)
0 Mitglieder: