1、FLAC3D建模（復雜邊坡）問題總在論壇里面看帖子，學習到了很多建模的技巧，覺得基本上是通過ansys與 surfer 導網格到 FLAC3D進行建模，這其中就存在一些問題，如果模型比較復雜的話，可能會嚴重失真，例如邊坡（我是巖土工程專業的，比較關注邊坡），如果邊坡內部存在多條斷層，且存在崩積物、坡積物疊加分布的現象，我們假設存在基巖上覆蓋10 層崩坡積物，那用ansys與 surfer 導入的網格是否能夠真實反映邊坡的真實情況呢？（我沒有具體用ansys與 surfer 做過，所以并不知道是否可行！），最近做的一個邊坡，強風化基巖上存在15 層疊加分布的崩坡積物，且邊坡內部存在3 條斷層，考

2、慮了很久，覺得用ansys與 surfer 做的話可能不合適（如果有朋友能做的話，請告訴我，先謝謝了！），最后考慮用AutoCAD建模，然后導入 FLAC3D的方法，模型建立起來后，覺得效果還不錯，下面就說下我的方法，有什么不恰當之處，還請各位批評指正。1、首先在 AutoCAD中建模，因為我覺得我們的剖面圖基本上是AutoCAD繪制的，盡量就CAD建模的話可以省下不少事（個人觀點），建立3 維模型需要盡量多的剖面，因此，在邊坡表面地形變化處、坡體內部不同成因巖土體處都需要做剖面；2、剖面做好后，進行剖面分層，就是在剖面上盡量細致的劃分出不同成因性質的巖土體層，例如崩積物、坡積物，之后利用Au

3、toCAD的 3dmesh 功能進行網格劃分；3、基本上只需要 brick 與 wedge 就可以了，自己編寫一個 VB 的程序，可以讀出 3dmesh 網格節點并輸出成 *.dat 文件；例如： Z 方向為單位長度，讀取3dmesh（brick）程序Dim AcadApp As AutoCAD.AcadApplicationSet AcadApp = GetObject(, AutoCAD.Application)Dim Mydocument As AcadDocumentSet Mydocument = AcadApp.ActiveDocument1 / 3Dim Myentity As

4、AcadPolygonMeshDim Mysel As AcadSelectionSetDim fil_type(0) As IntegerDim fil_data(0) As VariantDim Mycoordinates As Variantfil_type(0) = 0fil_data(0) = olygonMeshSet Mysel = Mydocument.SelectionSets.Add(Mysel)Dim i, j, k As IntegerMysel.SelectOnScreenFor Each Myentity In MyselMycoordinates = Myenti

5、ty.CoordinatesNextOpen App.Path & & .dat For Append As #1 For i = 0 To (j * 6 - 1) Step 6Print #1, gen zone brick size 1,1,1 & &Print #1, p0 & ( & Round(Mycoordinates(i), 4) & , & Round(Mycoordinates(i + 1), 4) &, & Round(Mycoordinates(i + 2), 4) & )&Print #1, p1 & ( & Round(Mycoordinates(i + 3), 4)

6、 & , & Round(Mycoordinates(i + 4), 4)& , & Round(Mycoordinates(i + 5), 4) & )&Print #1, p2 & ( & Round(Mycoordinates(i), 4) & , & Round(Mycoordinates(i + 1), 4) &, & Round(Mycoordinates(i + 2) - 1), 4) & )&2 / 3Print #1, p3 & ( & Round(Mycoordinates(i + 6), 4) & , & Round(Mycoordinates(i + 7), 4)& ,

7、 & Round(Mycoordinates(i + 8), 4) & )&Print #1, p4 & ( & Round(Mycoordinates(i + 3), 4) & , & Round(Mycoordinates(i + 4), 4)& , & Round(Mycoordinates(i + 5) - 1, 4) & )&Print #1, p5 & ( & Round(Mycoordinates(i + 6), 4) & , & Round(Mycoordinates(i + 7), 4)& , & Round(Mycoordinates(i + 8) - 1, 4) & )&

8、Print #1, p6 & ( & Round(Mycoordinates(i + 9), 4) & , & Round(Mycoordinates(i + 10), 4)& , & Round(Mycoordinates(i + 11), 4) & )&Print #1, p7 & ( & Round(Mycoordinates(i + 9), 4) & , & Round(Mycoordinates(i + 10), 4)& , & Round(Mycoordinates(i + 11) - 1, 4) & ) NextPrint #1, ;* Close #14、因為邊坡表面地形變化處、坡體內部不同成因巖土體處都已經做好剖面了，你只需要將兩個剖面之間網格建立好就達到將兩個剖面連接起來的目的了，這里建議采用 V