这问题其实是某日给差分格式画示意图的时候想到的。总之，在对有限差分的网格做示意的时候，或是其他的一些时候（具体的一时想不起来了，但是吧里以前确实出现过），我们可能会需要画出四方的格子，然后在交叉点上做些标注什么的，比如说：
箭头标注什么的我们先不管，这里只讨论画格子。画格子绝不算难，但是最简洁的方法是啥呢？
GridLines似乎很有吸引力：
range = {{0, 7}, {0, 8}};
g = Graphics[{}, GridLines -> Range @@@ range, PlotRange -> range]
可是显示范围一变就现了形：
Show[g, PlotRange -> 10]
我没想到什么特别好的变通方法，所以，大家来讨论下？

补充：本帖的主要目标是以Mathematica编程解决此问题，不过也不排斥旁门左道解法。

单纯画格子，我第一个想到的是 GridGraph[{7, 8}]
但Graph和Graphics不太一样，数据相对较难处理
Show[GridGraph[{7, 8}, VertexShape -> None, EdgeShapeFunction -> (Line[#] &)], PlotRange -> 10]

是我把问题想的太简单了吗
grid[x1_,y1_,x2_,y2_,dx_:1,dy_:1,opt___]:=Graphics[Flatten[{Table[{opt,Line[{{x1,i},{x2,i}}]},{i,y1,y2,dy}],Table[{opt,Line[{{j,y1},{j,y2}}]},{j,x1,x2,dx}]}]]
Show[grid[1,1,4,4],PlotRange->{{0,5},{0,5}},Axes->True]
Show[Plot[5Sin[x],{x,-5,5},AspectRatio->1],grid[-2,-3,4,5,1,0.5,Gray,Dashed]]

666

GraphicsComplex 如何？

range = {{0, 7}, {0, 8}};
Show[DensityPlot[0, {x, y} \[Element] Rectangle @@ Transpose@range,
Mesh -> Range @@@ range, ColorFunction -> (White &)],
PlotRange -> 10]

ArrayPlot[ConstantArray[0, {5, 6}], Mesh -> All]~Show~
Graphics[{Opacity[.05], Rectangle[{-1, -1}, {16, 8}]}]
要“白边”还不容易么？
（几十 K 大小的图 n 遍传不上，遂放弃）

gg=Graphics[{Transparent,EdgeForm[Black],Array[Rectangle[{
#1,#
2}]&,{7-1,8-1},{0,0}]}]
Show[gg,PlotRange->10]

range={{x1,x2},{y1,y2}}={{0,7},{0,8}};
gg=Graphics[{Transparent,EdgeForm[Black],Array[Rectangle[{
#1,#
2}]&,{x2-1,y2-1},{x1,y1}]}]
Show[gg,PlotRange->10]