I feel certain that Ziegler's Fig. 2.1 below (to which I assume you are referring?) 
was just drawn "by hand" 
in a generic drawing program,
such as Adobe Illustrator, or xfig.
<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
![Fig. 2.1][1]
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<sub>(p.643 = 27th page of notes linked by Camilo)</sub><br />

This is probably not what you want, but Mathematica (via Combinatorica) can draw Hasse diagrams.
See, e.g., [this link][2] for how to accomplish this.
<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
![alt text][3]


  [1]: https://i.sstatic.net/odMnq.jpg
  [2]: http://demonstrations.wolfram.com/HasseDiagramOfPowerSets/
  [3]: https://i.sstatic.net/afZJS.jpg