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: 
**Update**

*(included more style specifications as requested in the comments)*

You can use [`BaseStyle`](http://reference.wolfram.com/language/ref/BaseStyle) to control the appearance of the convex hull, and you can extract the coordinates of a mesh by using `mesh["Coordinates"]`. Finally, [`Arrowheads`](http://reference.wolfram.com/language/ref/Arrowheads) can be used to style the axes:

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

mesh = ConvexHullMesh[
    pts2,
    BaseStyle->{FrontFaceColor->None,EdgeColor->Black,FrontFaceOpacity->0}
];
Show[
    mesh,
    Graphics[{PointSize[Large],Point[mesh["Coordinates"]]}],
    GridLines->Automatic,
    Axes->True,
    AxesStyle->Arrowheads[{0.0,0.05}]
]

```

[![enter image description here](https://i.stack.imgur.com/Fqo3Y.png)](https://i.stack.imgur.com/Fqo3Y.png)
```
    Graphics[Line /@ Partition[AppendTo[pts2, First[pts2]], 2, 1],
GridLines -> Automatic]

```