发信人: luxz (panda----ppt,还要做好多好多ppt), 信区: DC
标  题: 资源共享,从ansys到sap(3)
发信站: BBS 水木清华站 (Sat Mar  8 12:19:59 2003), 转信

壳单元
NSHELL=0
NElem=0
I=0
EType=0
N1=0
N2=0
N3=0
N4=0
NRE=0
*CFOPEN,'SHELL','txt',' '
*Get,NElem,Elem,0,Count
*DO,I,1,NELEM
 *GET,ETYPE,ELEM,I,ATTR,TYPE
 *IF,ETYPE,EQ,2,THEN
  NSHELL=NSHELL+1
  *GET,N1,ELEM,I,NODE,1 !得到第1节点号
  *GET,N2,ELEM,I,NODE,2 !得到第2节点号
  *GET,N3,ELEM,I,NODE,3 !得到第3节点号
  *GET,N4,ELEM,I,NODE,4 !得到第4节点号
  *GET,NRE,ELEM,I,ATTR,REAL !得到实参数号
  *VWRITE,NSHELL,' J=',N1,N2,N4,N3,' SEC=',NRE
   (F,A,F,F,F,F,A,F)
 *ENDIF
*ENDDO
*CFCLOS

--
心若在
  梦就在
……
……
从头再来


※ 来源:·BBS 水木清华站 smth.edu.cn·[FROM: 166.111.44.179]