!Generierung ohne Kugel am Ende des Werkstücks
!Verschiebung Werkzeug kleiner als Durchmesser Werkzeug
!dadurch Überschneidung 

fini
/cle

!Vordefinition von lokalen Variablen

!Abmessungen des Werkstueckes (x,y,z)

a=50
b=-30
c=30

!Startpunkt des Werkzeuges

x=5
y=5

!Radius und Höhe des Werkzeuges

r=2.5
h=10

!Preprozessor starten

/prep7

!Geometrische Umsetzung (Boolsche Operationen) des oszillierenden Fräsprozesses

!Erzeugen des Werkstückes mit Befehl Block,x1,x2,y1,y2,z1,z2

block,0,a,0,b,0,c

!Erzeugen eines KOS mit Befehl LOCAL, KCN, KCS, XC, YC, ZC, THXY, THYZ, THZX, PAR1, PAR2

local,11,0,,5

!Umschalten auf KOS csys,KCn

csys,11

!Wechsel der Arbeitsebene ins aktive Koordinatensystem (default) oder in lokales KS

wpcsys,,11

!Rotation der Arbeitsebene mit Befehl wprota,THXY,THYZ,THZX

wprota,,90

!Erzeugen des Werkzeuges mit Befehl Cyl4,XCenter,YCenter,Rad1,Theta1,Rad2,Theta2, Depth
!Cylind generiert einen Zylinder um die Normale des definierten Punktes auf der Arbeitsebene

cyl4,x,y,r,,,,-h

!Darstellen der einzelnen Volumen mit Befehl /pnum,volu,1

/pnum,volu,1
/rep

!Volumen 1 und 4 existieren

!Verschiebung des Volumens

vgen,,2,,,,-6,,,,1

!Behält die Gemeinsamkeiten von Volumen mit Befehl Vinv,nv1,nv2,...

boptn,keep,yes
vinv,all

!Volumen 1, 2 und 3 existieren

vsbv,1,3,sepo,delete,delete

!Volumen 4 und 2 existieren

vgen,,2,,,2.5,-1,,,,1

!Folgender Vinv-Befehl erzeugt Volumen und Flächen

boptn,keep,yes
vinv,all

!Folgender Befehl erzeugt Volumen 2 (Werkstueck) und 3

vsbv,4,1,sepo,delete,delete

!Verschiebung von Volumen 2

vgen,,2,,,2.5,1,,,,1

boptn,keep,yes
vinv,all

vsbv,3,1,sepo,delete,delete

vgen,,2,,,2.5,-1,,,,1

boptn,keep,yes
vinv,all

!Stopp

vsbv,4,1,sepo,delete,delete