获取系统变量错误，晕『附部分代码』

buhuilang

如题，不明白了，高手指点一下

ps：肯定就是下边的sblip和scmde引起的，我调试过，去掉还可以运行。

。。。。。。。。。。。。。。。。。。。。。

Sub gardenpath()
    Dim sblip As Variant
    Dim scmde As Variant
    gpuser
    sblip = ThisDrawing.GetVariable("blipmode")
    scmde = ThisDrawing.GetVariable("cmdecho")
    ThisDrawing.SetVariable "blipmode", 0
    ThisDrawing.SetVariable "cmdecho", 0
    drawout
    drawtiles
    ThisDrawing.SetVariable "blipmode", sblip
    ThisDrawing.SetVariable "cmdecho", scmde
End Sub

zhihaoli_bj

参考如下代码即可：

Application.ActiveDocument.GetVariable("DIMSCALE")