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

集中质量
NMASS
NElem=0
I=0
EType=0
N1=0
NRE=0
MX=0
MY=0
MZ=0
*CFOPEN,'MASS','txt',' '
*Get,NElem,Elem,0,Count
*DO,I,1,NELEM
 *GET,ETYPE,ELEM,I,ATTR,TYPE
 *IF,ETYPE,EQ,3,THEN
  NMASS=NMASS+1
  *GET,N1,ELEM,I,NODE,1 !得到第一节点号
  *GET,NRE,ELEM,I,ATTR,REAL !得到实参数号
  *GET,MX,RCON,NRE,CONST,1, !得到实参数第一个数值
  *GET,MY,RCON,NRE,CONST,2, !得到实参数第一个数值
  *GET,MZ,RCON,NRE,CONST,3, !得到实参数第一个数值
  *VWRITE,'ADD=',N1,' U1=',MX,' U2=',MY,' U3=',MZ
   (A,F,A,F,A,F,A,F)
 *ENDIF
*ENDDO
*CFCLOS

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


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