| @点の座標 P(a,b,c) |  | 
| A例えば 
  A(0,2,1) |  | 
| B面のとり方   面1 AEHD |  | 
 をクリック。
をクリック。
| Polygon[{ {3, 0, 0}, {0, 0, 0}, {0, 2, 0}, {3, 2, 0} }], ←面1 Polygon[{ {3, 0, 1}, {0, 0, 1}, {0, 2, 1}, {3, 2, 1} }], ←面2 Polygon[{ {3, 0, 0}, {3, 0, 1}, {3, 2, 1}, {3, 2, 0} }], ←面3 Polygon[{ {0, 0, 0}, {0, 0, 1}, {0, 2, 1}, {0, 2, 0} }], ←面4 Polygon[{ {3, 2, 0}, {3, 2, 1}, {0, 2, 1}, {0, 2, 0} }], ←面5 Polygon[{ {3, 0, 0}, {3, 0, 1}, {0, 0, 1}, {0, 0, 0} }], ←面6 | 
6面以上ある場合は行をつけたそう。ここで「コピー」と「貼り付け」を使うと便利。
6面ない場合は削除する。