Hallo Schmitty,
endlich mal 'ne GRIP-Frage ;-)
Klar geht das, unten findest du ein Programm, das etwa deiner Frage entspricht.
Leider muss auch ich gestehen, dass GRIP etwas unmodern geworden ist. Aber GRIP ist extrem stabil, hat einen ganz klar definierten Sprachwortschatz (der gegenüber NXOpen.NET jedoch ziemlich eingeschräkt ist) eine einfache Syntax ... und ist weitestgehend auf- UND abwärtskompatibel. Es gibt weltweit Millionen GRIP-Programme die im aktiven Einsatz sind (haben wir schon über 1.200), daher ist vorerst nicht zu befürchten, dass GRIP stirbt, auch wenn das seit 10 bis 15 Jahren behauptet wird.
Und auch für mich gibt's einen Lichtblick! Ab der NX8 (die Beta-Version ist vor wenigen Tagen eingetroffen) gibt es "SNAP".
Zitat aus der Online-Hile: "SNAP is similar to the GRIP language in its purpose, flexibility, and ease of use."
Na, da scheint ja dann die mühsame Einstiegsschwelle für NX-Programmierer etwas zu sinken ;-)
$$ del_attribute.grs
$$
$$ Alle Attribute loeschen, um die IGES-konvertierten-Parts
$$ kleiner zu machen.
$$
$$ Das Programm laeuft ueber alle *.prt-Dateien des angegebenen
$$ Directories.
$$
$$ Walter Hogger / 14.02.1996
$$
ENTITY/elem
STRING/dirnam(60), sub1(4)
STRING/partna(120)
$$--- Directoryname erfragen
TEXT/'Elementnamen loeschen im Directory: ',$
dirnam, Antw1
JUMP/ENDE:,ENDE:,,,Antw1
$$--- Directory oeffnen
DOPEN/dirnam,IFERR,Fehl1:
$$--------- Schleife ueber alle PARTS -------------------------------
Nextp:
DNEXT/IFEND,ok1:,IFERR,Fehl2:
$$--- nur Partfiles auswaehlen
partna = dirnam + '/' + &FNAME
len = LENF(partna)
IFTHEN/ len <= 4
JUMP/Nextp:
ENDIF
Sub1 = SUBSTR(partna,len-3,4)
IFTHEN/ sub1 <> '.prt'
JUMP/Nextp:
ENDIF
$$--- PART-File aufrufen
FETCH/PART,partna,IFERR,Fehl3:
$$--- Meldung, was gerade bearbeitet wird
PRINT/'Bearbeite Datei: ' + partna
$$--- Alle ENTITY-Namen loeschen
INEXTE/ALL
$$--- Schleife ueber alle Elemente
LOOP1:
elem = NEXTE/IFEND,ok2:
DELNAM/elem
JUMP/LOOP1:
ok2:
$$--- PART wieder speichern und schliessen
FILE/PART,partna,IFERR,Fehl4:
FTERM/PART,partna,IFERR,Fehl5:
$$--- naechstes PART holen
JUMP/Nextp:
$$--------- Ende der Schleife ueber alle PARTS ----------------------
$$-------- Fehlerbehandlung -----------------------------------------
Fehl1: PRINT/'Fehler beim Oeffnen des Directories '+dirnam
JUMP/ENDE:
Fehl2: PRINT/'Fehler beim Oeffnen einer Datei'
JUMP/ENDE:
Fehl3: PRINT/'Fehler beim Oeffnen der Datei '+ partna
JUMP/ENDE:
Fehl4: PRINT/'Fehler beim Speichern der Datei ' + partna
JUMP/ENDE:
Fehl5: PRINT/'Fehler beim Schliessen der Datei ' + partna
JUMP/ENDE:
ok1: PRINT/' '
PRINT/'_____ Die Directory ist fertig bearbeitet ! ___________'
ENDE:
HALT
------------------
Walter Hogger
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP