! ______________MACRO TO DEFINE KEYPOINTS IN C-SECTION________________
!*
w=60 ! width along x-axis (mm)
h=40 ! height along x-axis (mm)
t=5 ! wall thickness (mm)
y=(h*h+(w-2*t)*(h-t/2))/(2*(h-t)+w) ! y coordinate of the center of gravity (mm)
/PREP7 ! Main Menu/ Preprocessor
! Main Menu/ Preprocessor/Modeling/Create/Keypoints/In Active CS
k,1,-w/2,-y,0, ! 1- no. of keypoint, X=-w/2, Y=-y, Z=0
k,2,-w/2+t,-y,0,
k,3,-w/2+t,0,0,
k,4,-w/2,0,0,
k,5,-w/2+t,h-y-t,0,
k,6,-w/2,h-y-t,0,
k,7,-w/2+t,h-y,0,
k,8,-w/2,h-y,0,
k,9,w/2,-y,0,
k,10,w/2-t,-y,0,
k,11,w/2-t,0,0,
k,12,w/2,0,0,
k,13,w/2-t,h-y-t,0,
k,14,w/2,h-y-t,0,
k,15,w/2-t,h-y,0,
k,16,w/2,h-y,0,
!* _________________________END OF MACRO _____________________________