Язык Wolfram Language™

Нахождение оптимальной ориентации для 3D печати

Благодаря широкой поддержке сетчатых геометрических областей, легко выполнить анализ пригодности для печати, начиная с нагрузки на конструкцию и заканчивая вертикальной ориентацией.

Найдите возможные ориентации для расположения модели на плоской поверхности.

In[1]:=

cover = TransformedRegion[ MeshRegion[ Import["http://www.thingiverse.com/download:342676", "STL"], PlotTheme -> "Minimal"], TransformationFunction[{{1., 0.5, 0.03, -0.06}, {-0.05, 0.03, 1.1, 0.1}, {0.53, -1.02, 0.05, 0.19}, {0, 0, 0, 1.}}]]; points = MeshCoordinates[cover]; transform[Polygon[points_]] := Module[{proj = points}, proj[[All, 3]] = 0; Last[FindGeometricTransform[proj, points]]]; highlight[convexHull_, cover_] := Show[HighlightMesh[ convexHull, {Style[1, Brown], Style[2, Opacity[0.3, Brown]]}], cover]; Show[cover, Boxed -> True]

Out[1]=

Каждая грань выпуклой оболочки представляет собой возможную ориентацию.

In[2]:=

convexHull = ConvexHullMesh[points]; orientations = MeshPrimitives[convexHull, 2]; highlight[convexHull, cover]

Out[2]=

Используйте ортогональную проекцию центра массы для дальнейшего ограничения возможных ориентаций.

In[3]:=

masscenter = RegionCentroid[cover]; projection[polygon_, p_] := RegionNearest[AffineSpace @@ polygon, p]; candidates = Select[orientations, RegionMember[#, projection[#, masscenter]] &];

Возможная ориентация.

In[4]:=

Show[ncover = TransformedRegion[cover, transform[Last[SortBy[candidates, Area]]]], Boxed -> True]

Out[4]=

Напечатать модель.

In[5]:=

Printout3D[ncover, "Shapeways"]

Out[5]=