Question: I use this code to find the `ConvexHull` for some points:

```
pts2 = {{2, 1}, {5, 0}, {7, 0}, {9, 5}, {6, 8}, {0, 6}, {0, 4}};
Show[ConvexHullMesh[pts2, GridLines -> Automatic], Axes -> True]

```

the result is this pic:

[![enter image description here](https://i.stack.imgur.com/Hmx2x.png)](https://i.stack.imgur.com/Hmx2x.png)

I need the result like this:

[![enter image description here](https://i.stack.imgur.com/N2VSw.png)](https://i.stack.imgur.com/N2VSw.png)

Answer: 
Another way is with [`MeshCellStyle`](http://reference.wolfram.com/language/ref/MeshCellStyle.html).

```
pts2 = {{2, 1}, {5, 0}, {7, 0}, {9, 5}, {6, 8}, {0, 6}, {0, 4}};

ConvexHullMesh[pts2, 
  Axes -> True, 
  AxesStyle -> Arrowheads[{0.0, 0.05}], 
  GridLines -> Automatic, 
  MeshCellStyle -> {0 -> {PointSize[Large], Opacity[1], Black}, 
    1 -> {Thick, Black}, 2 -> None}
]

```

[![enter image description here](https://i.stack.imgur.com/mI63A.png)](https://i.stack.imgur.com/mI63A.png)

For whatever reason, the setting `2 -> None` is influencing the vertices. This is why I manually set `Opacity[1]`.
```
ListPlot[AppendTo[pts2, First[pts2]], PlotStyle -> {Black}, 
 Joined -> True, Mesh -> All, 
 GridLines -> {Range[0, 10, 0.5], Range[0, 10, 0.5]}, 
 GridLinesStyle -> Directive[Gray, Dotted], AspectRatio -> 1, 
 AxesStyle -> Arrowheads[{0.0, 0.05}]]

```

[![enter image description here](https://i.stack.imgur.com/px6j2.png)](https://i.stack.imgur.com/px6j2.png)