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

buhuilang 发表于 2008-4-26 00:03:00

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

如题，不明白了，高手指点一下
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 发表于 2008-4-28 16:14:00

参考如下代码即可：
Application.ActiveDocument.GetVariable("DIMSCALE")

查看完整版本: 获取系统变量错误，晕『附部分代码』