Schraubenvorspannung:
--------------------------------

/prep7
alls


esel,s,ename,,188						! Alle Beams selektieren
CM,screws,elem							! Komponente erzeugen
alls

*do,j,1,50

		CMSEL,s,screws,elem

		*get,ecount,elem,0,count			! Elementanzahl ermitteln

*if,ecount,eq,0,exit						! Schleife evrlassen, wenn keine weiteren Beams mehr vorhanden sind
			
		*get,elemmin,elem,0,num,min			! kleinste Elementnummer ermitteln	

                esel,s,,,elemmin 				! Balkenelemente der Reihe nach selektieren 

                psmesh,5000+j,,,all,,100,X			! PRETS-Mesh; Koordinatensystem 100 muss zwischen Schraubenanfang- und Ende liegen (Seperation surface)

                sload,5000+j,pl01,lock,forc,43400,1,2		! Schraubenvorspannung 43400N definieren

                CMSEL,s,screws,elem

		esel,u,,,elemmin

		CM,screws,elem

*enddo

alls

/Solu