LoadthefiniteelementandOpenCascadeLinksoftwarepackagesandgeneratethemesh:
In[]:=
Needs["NDSolve`FEM`"]Needs["OpenCascadeLink`"]
cyl=OpenCascadeShape[Cylinder[{{-8.6,0,0},{8,0,0}},5.6]];
In[]:=
dg=DiscretizeGraphics[ExampleData[{"Geometry3D","SpaceShuttle"}]];
In[]:=
orbiter=OpenCascadeShape[ToBoundaryMesh[dg]];
In[]:=
shape=OpenCascadeShapeDifference[cyl,orbiter];
In[]:=
bmesh=OpenCascadeShapeSurfaceMeshToBoundaryMesh[shape];
In[]:=
bmesh["Wireframe"]
Out[]=
（*Manythanksto"Wolfram's team"forhelpingtobreakthroughtheabove"bottlenecks"!*）
GenerateElementMesh:
In[]:=
mesh=ToElementMesh[bmesh];mesh["Wireframe"]
Out[]=
