Hallo,
vielleicht kann mir jemand hier im Forum helfen.
Wir beschreiben unsere Werkzeuge an jeder Fräse nach einem bestimmten System:
z.B.: VHSFR-010.00-4S-30lg
steht für: Vollhartmetall-
Schaftfräser, 10mm Durchmesser, 4 Schneiden als "S" Schlichtfräser und ist 30mm ausgespannt.
Jetzt möchte ich dieses System auch mit dem PP umsetzten und habe die Sub-Routine "PrintAllTools" im PP dementsprechend geändert:
CODE
...
wkzd1 = pos(".",Toolinfo_Durchmesser)
wkzd2 = LEN(Toolinfo_Durchmesser)
if wkzd1 > 0 then wkzd1 = wkzd2 - wkzd1 + 1 else wkzd1 = 0
wkzd3 = "000.00"
if wkzd1 = 0 then wkzd3 = COPY(wkzd3,1,3-wkzd2) + Toolinfo_Durchmesser + ".00"
if wkzd1 = 2 then wkzd3 = COPY(wkzd3,1,3-(wkzd2-wkzd1)) + Toolinfo_Durchmesser + "0"
if wkzd1 = 3 then wkzd3 = COPY(wkzd3,1,3-(wkzd2-wkzd1)) + Toolinfo_Durchmesser
!FormBlock ! Ausgabe
output OutStr$ + "( T" + Toolinfo_Nummer + ": " + WKZinfo + wkzd3 + "-0S-" + Toolinfo_Laenge + "lg - " + UPCASE(k) + " )"
...
Die Berechnungen in den ersten drei Zeilen dienen der Formatierung mit führender und folgender Null. Dann wird die Zahl je nach Position der Kommastelle zusammengebaut und ausgegeben.
CODE
N2 ( ... WERKZEUGLISTE ........................ )
N3 ( T21: HSSFR-019.70-0S-35lg - SCHAFTFRÄSER L35, D19.7 HS )
N4 ( T53: VHSFR-003.90-0S-20lg - SCHAFTFRÄSER L20, D3.9 )
N5 ( T54: VHSFR-003.96-0S-20lg - SCHAFTFRÄSER L20, D3.96 )
N6 ( T55: VHSFR-004.00-0S-20lg - SCHAFTFRÄSER L20, D4 )
N7 ( ... ENDE WERKZEUGLISTE .................. )
Jetzt aber zu meinen eigentlichen Fragen:
1. Gibt es eine einfachere Art der Formatierung (Format Befehl) oder einen anderen Aufbau des Programms. Vielleicht hat ja jemand eine Idee?
2. Wie kann ich die Zähnezahl des Fräsers ermitteln? Im LOADTL Befehl wird dieser Wert scheinbar nicht mit übermittelt. Bisher habe ich also nur einen Platzhalter eingebaut. "-0S-".
MFG Uschi