修改茨哈峡大坝水科院模型数据为abaqus的inp数据

首先根据前面的介绍，

 

 

把网格建立起来，如图:

此时的inp如下（太大，传不上）：

 

 

然后根据给出的材料分组（每种材料包括那些单元）建立材料分组：

Dim writearr() As Double
Sub BIANXING()
tlineno = [A1048576].End(xlUp).Row     '总行数
lineno = CInt(tlineno / 16) ' 列转换后行数

ReDim readinArr(tlineno)
ReDim writearr(lineno + 1, 16)
'readinArr = Range("A1").Resize(tlineno, 1)
'ThisWorkbook.Worksheets(Sheet4).Activate
For i = 0 To tlineno - 1
 readinArr(i) = Cells(i + 1, 1).Value
Next

k = 1
m = 0
j = 0
For i = 0 To tlineno - 1
 
 writearr(j, m) = readinArr(i)
 
 If (((i + 1) Mod 16) = 0) Then  '说明写了一行了
'  j = (i Mod 16) - i  ' 二维数组行数
  j = j + 1
  m = 0
  Else

 m = m + 1 ' 二维数组列数
 End If
Next
Range("B1").Resize(lineno, 16).Value = writearr

End Sub