/nopr
! Генерация геометрии простой многоэтажной многопролетной рамы
! ------------------------------------------------------------
! Входные данные (локальные переменные):
! arg1 - количество этажей
! arg2 - высота этажа
! arg3 - количество пролетов
! arg4 - длина пролета
! ввод
! rama, кол_эт, выс_эт, кол_прол, длин_прол
!-------------------------------------------------------------
! Выходные данные
! kprama(i,j) - массив с номерами узловых точек
! где i - номер уровня (i=1 у обреза фунд.), j - номер оси
! col(i,j) - массив с номерами колонн
! где i - номер этажа, j - номер оси
! rig(i,j) - массив с номерами ригелей
! где i - номер этажа, j - номер пролета
!-------------------------------------------------------------
finish
/prep7
! блок создания узловых точек
*dim,kprama,,arg1+1,arg3+1 ! массив узловых точек
arg5=0
*do,arg7,1,arg1+1
arg6=0
*do,arg8,1,arg3+1
k,,arg6,arg5,0
arg6=arg6+arg4
*get,kprama(arg7,arg8),kp,,num,max ! номера точек в массив
*enddo
arg5=arg5+arg2
*enddo
! блок создания колонн
*dim,col,,arg1,arg3+1 ! массив колонн
*do,arg8,1,arg3+1
*do,arg7,1,arg1
lstr,kprama(arg7,arg8),kprama(arg7+1,arg8)
*get,col(arg7,arg8),line,,num,max ! номера колонн в массив
*enddo
*enddo
! блок создания ригелей
*dim,rig,,arg1,arg3 ! массив ригелей
*do,arg8,1,arg3
*do,arg7,2,arg1+1
lstr,kprama(arg7,arg8),kprama(arg7,arg8+1)
*get,rig(arg7-1,arg8),line,,num,max ! номера ригелей в массив
*enddo
*enddo
/go
|
