Основы анализа конструкций в ANSYS. Конюхов А.В. - 46 стр.

ET,1,BEAM4
!* Задание опций элемента
KEYOPT,1,2,0
KEYOPT,1,6,0
KEYOPT,1,7,0
KEYOPT,1,9,9 ! 9 промежуточных точек для построения эпюр
KEYOPT,1,10,0
!* Задание констант элемента. Сечение первое
! Через запятую заданы:
! Площадь сечения: B1*H1
! Момент инерции сечения Izz: (B1*H1**3)/12
! Момент инерции сечения Iyy: (H1*B1**3)/12
! Высота сечения вдоль оси z: B1
! Высота сечения вдоль оси y: H1
! Угол поворота сечения вдоль продольной оси: -90
! Начальная деформация: 0
! Момент инерции сечения Ixx: (H1*B1**3)/12+(B1*H1**3)/12
R,1, B1*H1, (H1*B1**3)/12, (B1*H1**3)/12, H1, B1, -90 ,
RMORE, ,(B1*H1**3)/12+(H1*B1**3)/12, , , , ,
!* Задание констант элемента. Сечение второе
R,2, B1*B1, (B1**4)/12, (B1**4)/12, B1, B1, ,
RMORE, ,(B1**4)/6, , , , ,
!* Присвоение атрибутов линии и числа разбиений на элементы
LSEL,S,LOC,Y,0 ! Выделить линию
! Присвоить атрибуты: материал, номер констант, номер типа элемента
LATT, 1, 1, 1, 0
LESIZE,ALL, , ,10,1, ! Присвоить число разбиений на элементы: 10 на линию
!*
LSEL,INVE ! Обратить выделение
LATT, 2, 2, 1, 0 ! Присвоить атрибуты
LESIZE,ALL, , ,5,1, ! Присвоить число разбиений на элементы: 5 на линию
ALLSEL,ALL ! Выделить все
LMESH,ALL ! Построить сетку
FINISH ! Выход из препроцессора