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

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")

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

发表回复

精选推荐