Skip to main content
Mathematica

Return to Answer

added 182 characters in body
Source Link
cvgmt
cvgmt
  • 91.7k
  • 6
  • 113
  • 194

Edit

  • We locate the level of the lastGraphicsGroup and use Delete to delete it's upper level by Most.
  • And DeleteCases the Line.
indexs = Position[reg, GraphicsGroup]; reg1 = Delete[reg, indexs // Last // Most]; DeleteCases[reg1, _Line, -1]

enter image description here

Original

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here

  • Or ReplacePart the last GraphicsGroup to Nothing.
ReplacePart[reg, GraphicsGroup -> Nothing, Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here

  • Or ReplacePart the last GraphicsGroup to Nothing.
ReplacePart[reg, GraphicsGroup -> Nothing, Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

Edit

  • We locate the level of the lastGraphicsGroup and use Delete to delete it's upper level by Most.
  • And DeleteCases the Line.
indexs = Position[reg, GraphicsGroup]; reg1 = Delete[reg, indexs // Last // Most]; DeleteCases[reg1, _Line, -1]

enter image description here

Original

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing
  • Or ReplacePart the last GraphicsGroup to Nothing.
ReplacePart[reg, GraphicsGroup -> Nothing, Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing
added 177 characters in body
Source Link
cvgmt
cvgmt
  • 91.7k
  • 6
  • 113
  • 194

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here

  • Or ReplacePart the last GraphicsGroup to Nothing.
ReplacePart[reg, GraphicsGroup -> Nothing, Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here

  • Or ReplacePart the last GraphicsGroup to Nothing.
ReplacePart[reg, GraphicsGroup -> Nothing, Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing
Source Link
cvgmt
cvgmt
  • 91.7k
  • 6
  • 113
  • 194

Another possible way.

  • We add FaceForm[] to the last GraphicsGroup to erase the surface and replace Line to Nothing to erase all the lines.
Insert[reg, FaceForm[], Position[reg, GraphicsGroup[_]] // Last] /. Line -> Nothing

enter image description here