---

Hallo,

ich habe heute auf einer Diskette einen Gravurzyklus Namens Cyclegra gefunden. Das ist ein SPF File. Leider kann ich mir beim Besten willen nicht vorstellen wie man damit was Gravieren kann. Anbei ein Ausschnitt aus dem Programm, vieleicht kann mir ja jemand auf die Sprünge helfen, wie man den Zyklus anwendet?

%_N_CYCLEGRA_SPF
;$PATH=/_N_CUS_DIR
PROC CYCLEGRA(STRING[80] _TEXT,REAL _GT,REAL _SH,REAL _ZA, REAL _A_X ,REAL _A_Y,REAL _EFS , REAL _FFS , REAL _SDIS)
;V01.03 22.03.99 < Horst Hanneforth> Gravurzyklus_fuer_840D
DEF AXIS _XX=X,_YY=Y,_ZZ=Z
DEF INT _L
DEF INT _Z
DEF CHAR _ZW
DEF REAL _R[100]
DEF STRING[80] _TS
DEF BOOL _TA[256]= SET(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
_TA[26] =SET(0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,0,1,1,1,1,1,1,1,1) _TA[51] =SET(1,1,1,1,1,1,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1) _TA[76] =SET(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,0,0,1,1,1,1)
_TA[101]= SET(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0) _TA[126]= SET(1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) _TA[151]= SET(0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0)
_TA[176]= SET(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0) _TA[201]= SET(0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,1,1,1) _TA[226]= SET(1,1,1,0,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,0,1,1,1) _TA[251]= SET(1,1,1,0,1)
_R[0]=_SH _R[1]=_GT _L=STRLEN(_TEXT)
IF _L==0 GOTOF _END2
ENDIF
G90 G00 AX[_ZZ]=_SDIS
G90 G00 AX[_XX]=_A_X AX[_YY]=_A_Y AX[_ZZ]=_SDIS
REPEAT
IF _TEXT[_Z]==95
_TEXT[_Z]=32
ENDIF
IF _TA[_TEXT[_Z]]==FALSE GOTOF _END1
_Z=_Z+1
UNTIL _Z==_L
_Z=0
REPEAT
_TS = _TS<<_TEXT[_Z]
MSG("SCHREIBE: "<<_TS)
_ZW=_TEXT[_Z]
GOTOF SCHREIB
_M:
G91 G0 AX[_XX]=(_ZA*0.25 - 0.25)
_Z = _Z+1
UNTIL _Z==_L
MSG(" ")
GOTOF _END2
SCHREIB:
IF _ZW<51 GOTOF _CH0 IF _ZW<76 GOTOF _CH51 IF _ZW<101 GOTOF _CH76 IF _ZW<126 GOTOF _CH101 IF _ZW<151 GOTOF _CH126 IF _ZW<176 GOTOF _CH156 IF _ZW<201 GOTOF _CH196 IF _ZW<226 GOTOF _CH203 IF _ZW<=255 GOTOF _CH226
_CH0:
IF _ZW<>0 GOTOF _CH32
GOTOF _END2
_CH32:
IF _ZW<>32 GOTOF _CH33
_R[68]=_R[0]*0.75
G91 G00 AX[_XX]=_R[68]
GOTOB _M
_CH33:
IF _ZW<>33 GOTOF _CH34
_R[50]=0.3000*_R[0] _R[51]=0.7000*_R[0] _R[60]=0.2500*_R[0]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_YY]=_R[50]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
AX[_YY]=_R[51] F=_FFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_XX]=_R[60] AX[_YY]=-_R[0]
GOTOB _M
_CH34:

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!
SPF-file ist ein file für eine Siemens 840 Steuerung. Das hast du aber sicher selbst gewußt, steht ja auch im Auszug:

Zitat:

---

;V01.03 22.03.99 < Horst Hanneforth> Gravurzyklus_fuer_840D

---

Wahrscheinlich gibt es irgendwo eine gesteurte Graviermaschine oder so etwas in der Art, welche das verarbeiten kann.
Gruß,
Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

falls es jemanden hier interessiert, ich habe die Lösung gefunden. Der Proc Befehl in der 3. Zeile verlangt eine Parameterübergabe vom aufrufenden Programm.
Beispiel:
Im Hauptprogramm muss stehen: CYCLEGRA("test",2,25,10,35,15,150,300,3)
Das bedeutet, das das Unterprogramm Cyclegra aufgerufen wird der Reihe nach die Werte in der Klammer in die Variablen im Unterprogramm (SPF) geschrieben werden.

Mick

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

den CYCLEGRA habe ich in unserer Firma auch ins Leben gerufen.
Mitlerweile beherrsche ich den Zyklus perfekt.

Auf welcher Maschine soll er angewendet werden?

Gruß Ante

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ante,

ich benutze den auf einer Famup MC60 mit 840D. Mittlerweile hab ich den Zyklus auch durchschaut. Aber hast du vieleicht eine Idee wie man andere Schriftarten darstellen kann. Ich denke da an Schilder für Pokale oder sowas?

Mick

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Für eine andere Schrift muss halt das Datenstück pro Buchstabe geändert werden.

Zitat:

---

_CH33:
IF _ZW<>33 GOTOF _CH34
_R[50]=0.3000*_R[0] _R[51]=0.7000*_R[0] _R[60]=0.2500*_R[0]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_YY]=_R[50]
G91 G01 AX[_ZZ]=-_R[1]-_SDIS F=_EFS
AX[_YY]=_R[51] F=_FFS
G90 G00 AX[_ZZ]=_SDIS
G91 AX[_XX]=_R[60] AX[_YY]=-_R[0]
GOTOB _M

---

Das ist das Stück das für den ASCII-Code 33 zuständig ist. Laut Tabelle ist das das Ausrufezeichen !
Wobei dieses AX[_YY] einfach Y bedeutet. Das wird wohl deshalb gemacht, damit man bei einer Ebenenumstellung nicht ins Schleudern kommt.

Wenn man mit nem Gravurprogramm nen schönen Font hat, könnte man den theoretisch in Siemens Notation umsetzen. Praktisch tut man sich aber wesentlich leichter, wenn man das Gravurprogramm direkt ausführt.

Vor allem ist das Programm so riesig, dass es bei älteren Maschinen nicht mal in den Speicher passt und von Festplatte abarbeiten klappt auch nicht so recht weil da wild hin und her gesprungen wird.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP