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

框架单元
NFrame=0
NElem=0
I=0
EType=0
N1=0
N2=0
NRE=0
*CFOPEN,'Frame','txt',' '
*Get,NElem,Elem,0,Count
*DO,I,1,NELEM
 *GET,ETYPE,ELEM,I,ATTR,TYPE
 *IF,ETYPE,EQ,1,THEN
  NFrame=NFrame+1
  *GET,N1,ELEM,I,NODE,1 !得到第一节点号
  *GET,N2,ELEM,I,NODE,2 !得到第二节点号
  *GET,NRE,ELEM,I,ATTR,REAL !得到实参数号
  *VWRITE,NFRAME,' J=',N1,' ',N2,' SEC=',NRE,' NSEG=2 ANG=0'
   (F,A,F,A,F,A,F,A)
 *ENDIF
*ENDDO
*CFCLOS

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


※ 修改:·luxz 于 Mar  8 12:20:04 修改本文·[FROM:  166.111.44.179]
※ 来源:·BBS 水木清华站 smth.edu.cn·[FROM: 166.111.44.179]