Glättung der Region？

Question

Es gibt einen 2D Pi

Ich habe es erfolgreich in 3D umgewandelt.

extrudeImage[image_] := 
  Block[{res, img}, 
  img = DeleteSmallComponents[Binarize[image, 0.9], 500];
  res = ImageMesh[img];
  RegionProduct[res, Line[{{0.}, {10.}}]]]

img = DeleteBorderComponents@
        ImageResize[Import["https://i.stack.imgur.com/AM0gC.png"], 100];
r = Region[extrudeImage@img, Axes -> True, 
        AxesLabel -> {"X", "Y", "Z"}];
r = TransformedRegion[r, TranslationTransform[-RegionCentroid@r]]

Ich habe versucht, es zu drehen, um einen 3D-Pi zu erstellen, aber die Oberfläche schien zu rau zu sein. MMA kann das STL-Format nicht exportieren.

RegionUnion@
 Table[TransformedRegion[r, RotationTransform[i, {0, 1, 0}]], {i, 0, 
 Pi/3, Pi/10}]
Export["test.stl", %]

Wie kann die Oberfläche glatt gemacht werden, damit ein 3D-Drucker verwendet werden kann?

Answer 1

Sie brauchen DiscretizeRegionund RepairMesh:

r = Region[extrudeImage@img, Axes -> True, AxesLabel -> {"X", "Y", "Z"}];
r2 = TransformedRegion[r, TranslationTransform[-RegionCentroid@r]];

r3 = DiscretizeRegion@r2 // RepairMesh

rfinal = RegionUnion@
  Table[TransformedRegion[r3, RotationTransform[i, {0, 1, 0}]], 
        {i, 0, Pi/3, Pi/30}] // RepairMesh; // AbsoluteTiming
(* {117.008, Null} *)

Export["testfinal.stl", rfinal]

---

Aktualisieren

DiscretizeRegionstellt sich als unnötig heraus, da die Ausgabe von extrudeImagebereits a ist MeshRegion, also brauchen wir nur:

r = extrudeImage@img

r2 = TransformedRegion[r, TranslationTransform[-RegionCentroid@r]]

r3 = 
   RegionUnion@
    Table[TransformedRegion[r2 // RepairMesh, RotationTransform[i, {0, 1, 0}]], {i, 0, 
      Pi/3, Pi/75}]; // AbsoluteTiming
(* {0.296961, Null} *)

Export["test3.stl", r3]

Beachten Sie, dass der letzte RepairMeshauch weggenommen wurde, da r3 == RepairMesh@r3sich herausstellt, dass True.