18楼
*GET,TMMAX,NODE,,NUM,MAX
NSEL,S,LOC,Z,0
*GET,NTOL,NODE,,COUNT
*GET,NMAX,NODE,,NUM,MAX
*DIM,NODNO,,NTOL
!定义数组,存储各个单元号
!利用循环获取当前选择集中的各个节点号,并存放在NODNO数组中
*GET,N1,NODE,,NUM,MIN !首先获取最小的节点编号
NODNO(1)=N1
*DO,I,2,NTOL
N1=NDNEXT(N1)
NODNO(I)=N1
*ENDDO
!定义弹簧单元及NTOL个实常数(每个弹簧刚度可不相同)
/PREP7
ET,3,COMBIN14,,3
R,4,16 !(此位置弹簧系数单位KN/M)
TYPE,3
*DO,I,1,NTOL
NI=NODNO(I)
N,TMMAX+I,NX(NI),NY(NI)
REAL,4
E,NI,TMMAX+I
*ENDDO
!对新建弹簧节点添加约束
NSEL,S,,,TMMAX+1,TMMAX+NTOL
D,ALL,ALL
ALLSEL,ALL
回复