!   Commands inserted into this file will be executed just prior to the ANSYS SOLVE command.
!   These commands may supersede command settings set by Workbench.

!   Active UNIT system in Workbench when this object was created:  Metric (mm, kg, N, s, mV, mA)
!   NOTE:  Any data that requires units (such as mass) is assumed to be in the consistent solver unit system.
!                See Solving Units in the help system for more information.


!I) Einlesen der im letzten LS vor dem Restart gespeicherten Parameern, damit diese auch nach dem Restart in diesem LS nutzbar sind

PARRES,NEW,Pars_ 						!Läd die zuvor in LS1 mit PARSAV gespeicherten Parameter, damit diese nach dem Restart wieder verwendbar sind

!-------------------------------------------------------------

!II) Definition des 2. LS 

!/COM,------- TEST ERFOLGREICH ------- !Schreibt den Text als Kommentar in den Solver-Output, war hier nur ein Test, um zu sehen, ob es so funktioniert, wie ich gedacht habe

!Test
LSDELE,1,2,1

!Lagerung Bolzen unten
ALLSEL 								!Wählt alles aus

KBC,0 									!Die Last wird Rampenförmig (mit der Zeit steigend) aufgebracht

CMSEL,S,BBEDGE,NODE 							!Auswahl der Unterkante des Bolzend (Ort der Lagerung für diesen LS)
D,BBEDGE,UY,0 							!Legt die untere Kante des Bolzens fest (Lagerung)
D,BBEDGE,UX,0 !Lagerung in X-Richtung
CMLIST,BBEDGE,1,NODE !Zeigt die ausgewählten Nodes an

!Wegfahren der Einpressmatrize (die Kontaktschrittsteuerung hat hoffentlich den Kontakt zwischen Einpressmatrize und Ring gelöst!)
ALLSEL

CMSEL,S,ETEDGE,NODE 							!Wählt die Nodes der Komponente ETEDGE aus (Oberkante der Einpressmatrize)
D,ETEDGE,UY,31 							!Prägt die im Parameter vorgegebene vorläufige Verschiebung auf die Nodes, die die obere Kante der Einpressmatrize bilden auf. 31, damit ich dann in einem Substep davor mit ANTYPE,ENDSTEP den LS vorzeitig beenden kann.


ALLSEL 								!Wählt alles aus

T2=T1NEU1R_+30/1 !Verfahrgeschw. 1 mm/s
*STATUS,T2 								!Gibt die Zeit T2 nach dem zweiten LS aus
TIME,T2 								!Legt die Zeit nach dem Lastschritt fest
LSWRITE,2 								!Schreibt den gerade definierten Lastschritt in eine Datei, von der aus er später geladen und gelöst werden kann.
ALLSEL

!-------------------------------------------------------------

!III) Lösen der 2. LS
PARSAV,ALL,Pars_
RESCONTROL,DEFINE,1,1,-1 						!Sorgt dafür, dass in jedem Substep des ersten LS ein Restartfile geschrieben wird (max999, dann überschreiben der ältesten), damit der Punkt unmittelbar for den 90KN als Restartpunkt verfügbar ist!

LSSOLVE,2,2,1 !Klappt wegen der Kontaktschrittsteuerung nicht
FINISH

!-------------------------------------------------------------

!IV) Übergang in den nächsten LS

/POST1
SET,2 !Defaults zum letzten Substep im LS
*GET,FINSS2_,ACTIVE,0,SOLU,NCMSS !Ermittelt Anzahl der Substeps für den LS
*STATUS,FINSS2_ !Gibt die Anzahl der SS im LS aus (entsprich der Nummer des letzten SS im LS)
FINSS2STOP_=FINSS2_-1
*STATUS,FINSS2STOP_
SET,2,FINSS2STOP_
/SOLU

ANTYPE,STATIC,RESTART,2,FINSS2STOP_,ENDSTEP !Startet den LS im letzten SS neu und beendet diesen, damit es (hoffentlich) keine Probleme beim Übergang zum nächsten LS mehr gibt.

!-------------------------------------------------------------

/COM,---------------------------------------------------------
/COM,-------------------- LS2 SUCCESSFULL --------------------
/COM,-------------------- LS2 SUCCESSFULL --------------------
/COM,-------------------- LS2 SUCCESSFULL --------------------
/COM,---------------------------------------------------------

!/EXIT