/INPUT,'PiezoMat','txt','C:\DOKUMENTE UND EINSTELLUNGEN\WAHREN\DESKTOP\ANSYS_WUERFEL\',, 0   

!*******************************
!Jetzt Volumen Würfel erstellen
!*******************************

offx=0
offy=0
offz=0


length=0.01
height=0.01
width=0.01


BLOCK, offx, width, offy, length, offz, height


!*******************************
!Jetzt Meshen
!*******************************

CM,_Y,VOLU  !CM, Cname, Entity       Groups geometry items into a component.
VSEL, , , ,       1 !Vmin selektiert 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
MSHAPE,0,3d !MSHAPE, KEY, Dimension 0  —  Mesh with quadrilateral-shaped elements when Dimension = 2-D mesh with hexahedral-shaped elements when Dimension = 3-D
MSHKEY,1
VMESH,_Y1   
MSHKEY,0
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  



!*******************************
!Randbedingungen und Lasten
!********************************
/SOL
FLST,2,1,5,ORDE,1   
FITEM,2,2   
!*  
/GO 
DA,P51X,UX, 
FLST,2,1,5,ORDE,1   
FITEM,2,2   
!*  
/GO 
DA,P51X,UY, 
FLST,2,1,5,ORDE,1   
FITEM,2,2   
!*  
/GO 
DA,P51X,UZ, 

FLST,2,1,5,ORDE,1   
FITEM,2,2   
/GO 
!*  
DA,P51X,VOLT,0  
FLST,2,1,5,ORDE,1   
FITEM,2,1   
/GO 
!*  
DA,P51X,VOLT,100

!****************************
!Berechnung
!****************************
/STATUS,SOLU
SOLVE   
FINISH  
/POST1  
PLDISP,1