Prezentarea unui program cu elemente finite capabil a fi folosit în ...

Programul ANSYS generează doi parametri interni _STATUS şi _RETURN care pot
fi folosiŃi în macrouri. De exemplu funcŃiile de modelare solidă generează parametrul
_RETURN care conŃine rezultatul executării funcŃiei. De exemplu executarea unei comenzi
de generare a unui Keypoint cu comanda K atribuie parametrului _RETURN numărul acelui
Keypoint. ExecuŃia unei comenzi oarecare (inclusiv un macro) generează parametrul
_STATUS. Acest parametru prin valoarea lui reflectă starea executării, adică:
0 (fără eroare);
1 (o notă explicativă);
2 (un warning);
3 (cu eroare).
1.1.12. Exemple simple de macrouri
Primul exemplu de macrou numit offset.mac, deplasează setul nodurilor selectate în
cadrul preprocesorului PREP7. Acest macrou este prezentat numai din considerente
demonstrative deoarece comanda NGEN este mai eficientă. Deoarece toate comenzile
inclusiv comentariile unor macrouri predefinite sunt în limba engleză, următorul exemplu se
prezintă aşa cum este descris în manualul APDL din ANSYS:
! Macro to offset selected nodes in PREP7
! The below file is saved as: offset.mac
! Usage: OFFSET,DX,DY,DZ
/NOP
! suppress printout for this macro
*GET,NNODE,NODE,,NUM,MAX ! get number of nodes
*DIM,X,,NNODE
*DIM,Y,,NNODE
*DIM,Z,,NNODE
*DIM,SEL,,NNODE
! set up arrays for node locations
! set up array for select vector
*VGET,X(1),NODE,1,LOC,X ! get coordinates
*VGET,Y(1),NODE,1,LOC,Y
*VGET,Z(1),NODE,1,LOC,Z
*VGET,SEL(1),NODE,1,NSEL ! get selected set
*VOPER,X(1),X(1),ADD,ARG1 ! offset locations
*VOPER,Y(1),Y(1),ADD,ARG2
*VOPER,Z(1),Z(1),ADD,ARG3
! *DO,I,1,NNODE ! store new positions
! *IF,SEL(I),GT,0,THEN ! this form takes 98 sec for 100,000 nodes
! N,I,X(I),Y(I),Z(I)
! *ENDIF
! *ENDDO
*VMASK,SEL(1) ! takes 3 seconds for 100,000 nodes
N,(1:NNODE),X(1:NNODE),Y(1:NNODE),Z(1:NNODE)
X(1) =
! delete parameters (cleanup)