[vittantonio]

Всем здравствуйте!

Исследую податлиовсть прямоугольного штампа на
однородном упругом полупространстве в зависимости
от соотношение сторон.

C помощью какой команды можно циклично записывать
различные модели под разным именем?

В макросе проблемная область выделена вопросами)

Команда SAVE не воспринимает имя как переменную.

Код:

[Выделить все]

!ОПРЕДЕЛЕНИЕ ПОДАТЛИВОСТИ ШТАМПА В ВЕРТИКАЛЬНОМ НАПРАВЛЕНИИ Z

/PREP7  
ANTYPE, STATIC

k=1

*DO,ax,1,10,1

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!ИСХОДНЫЕ ДАННЫЕ!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!Геометрические параметры грунта
lx=20
ly=20
lz=30

!Геометрически параметры штампа

ay=1
az=0.5

!Толщина плиты
t=0.05

!Размер сетки
a=3

!Вертикальная сила
f=0.5

!Физико-механические характеристики штампа
ex1=3e10
nuxy1=0.3
dens1=2500

!Физико-механические характеристики грунта
ex2=2e7
nuxy2=0.3
dens2=2000


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!ПОСТРОЕНИЕ МОДЕЛИ!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!Тип конечных элементов
ET,1,SOLID186
ET,2,SHELL93

!Характеристики штампа
UIMP,1,EX,,,ex1
UIMP,1,NUXY,,,nuxy1
UIMP,1,DENS,,,dens1

!Характеристики грунтов основания
UIMP,2,EX,,,ex2
UIMP,2,NUXY,,,nuxy2
UIMP,2,DENS,,,dens2

!Реальная константа для штампа
R,1,t

!Построение геометрии и разбивка

BLOCK,-ax/2,ax/2,0,ay/2,0,az
BLOCK,-lx,lx,0,ly,0,-lz
wprot,,,90
wpoffs,,,ax/2
VSBW,ALL
wpoffs,,,-ax
VSBW,ALL
wprot,,-90
wpoffs,,,ay/2
VSBW,ALL
WPCSYS,-1,0 
nummrg,all 
LESIZE,ALL,a, , , ,1, , ,1, 

!Назначение аттрибутов
VATT,2,,solid186,0,
VSEL,S,LOC,Z,az/2
VATT,1,,solid186,0,
ALLSEL,ALL

!Разбивка
vsweep,all

!Аттрибуты плиты
ASEL,S,LOC,Z,az
AATT,1,1,2,0
!Разбивка плиты
AMESH,ALL
ALLSEL,ALL

!Граничные условия
nsel,s,loc,y,0
dsym,symm,y
nsel,s,loc,x,lx
D,all,,,,,,UX,,,,,
nsel,s,loc,x,-lx
D,all,,,,,,UX,,,,,
nsel,s,loc,y,ly
D,all,,,,,,UY,,,,,
nsel,s,loc,z,-lz
D,all,,,,,,ALL, 
ALLSEL,ALL

!Единичная сила
NSEL,S,LOC,Z,az
NSEL,R,LOC,X,0
NSEL,R,LOC,Y,0
F,ALL,FZ,-f 

!Создание абсолютно жесткой области
NSEL,S,LOC,Z,az
ncent=node(0,0,az)
cerig,ncent,all,UZ
ALLSEL

!??????????????????????????????????????????????????????????????
!??????????????????????????????????????????????????????????????
SAVE,stamp,db,,all
!??????????????????????????????????????????????????????????????
!??????????????????????????????????????????????????????????????

FINISH

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!РЕШЕНИЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/SOL
  
ANTYPE,0

solve

FINISH

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!ПОСТПРОЦЕССОР!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

/POST1  

SET,FIRST
LCDEF,k  
LCWRITE,k
k=k+1

FINISH

/prep7
LSCLEAR,ALL 
VCLEAR,all 
ACLEAR,all 
VDELE,all,,,1

*enddo

[СергейД]

*do,i,1,10
/prep7
....

save,stampl%i%,db
*enddo

будут stamp1.db stamp2.db и тд
подойдет?
извините, анализировать код некогда.

[vittantonio]

Да, подойдед!

Теперь все работает как надо.

Спасибо за помощь!)