Примерный вид макроса

[dmiantosha 11]

Подскажите, пожалуйсто примерный вид макроса: опрашиваються все узлы, в зависисмоти от их координат накладываются силы. В жестко закрепленных узлах никаких сил накладывать не надо.

[Инжмаш 0]

Примерно так.

FINISH

/CLEAR,NOSTART

/PREP7

!*

ET,1,SOLID187

!*

CYLIND,30,50,0,200,0,360,

MP,EX,1,2.1e5

MP,PRXY,1,0.3

VMESH,all

alls

nsel,,loc,z,-100,0.1

D,all,all

alls

nsel,,D,UY

cm,NOD_FIX_UY,node

alls

NSEL,S,EXT

nsel,r,loc,Y,-5,5

cmsel,u,NOD_FIX_UY

nsle,u,mid

cm,arb,node

nplot

*GET,NODE_COUNT,NODE,0,COUNT

Kraft=1

Weg1=0

Weg2=5

*DO,I99,1,NODE_COUNT,1

cmsel,,arb

Kraft = Kraft + 1

nsel,r,loc,Z,Weg1,Weg2

F,ALL,FY,Kraft

Weg1=Weg1+5

Weg2=Weg2+5

*ENDDO

alls

FLIST, ALL

/replot

С уважением

Инжмаш

Изменено 27 февраля 2007 пользователем Инжмаш

[dmiantosha 11]

Огромное спасибо, буду разбиратся.

[Инжмаш 0]

Пожалуйста.

Будут вопросы – обращайтесь.

С уважением

Инжмаш

[Tako 0]

dmiantosha, Вы только в следующий раз пишите для какой программы макрос.

А то не все ведь обладают телепатией. :)

[dmiantosha 11]

Еще раз спасибо за ваш пример. Очень помогло. Стало намного понятнее как это сделать. Только вот такой вопрос. В вашем примере сила на узел накладывается значением Kraft, которое возрастает по мере итерационного процесс. А вот мне бы надо, чтобы сила на узел накладывалась пропорцианаьно координате узла, то есть Fx:=Fn*X, Fy:=Fn*Y, Fz:=Fn*Z; где Fn - единичная сила, а X,Y,Z координаты узла. Как бы узнать координаты выбраного узла?

Также в вашем примере узел выбирается по диапазону координаты. А можно ли как-нибудь просто перебрать все узлы преднадлежащие выделению.

Заранее, огромное спасибо.