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

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

<p>如题，不明白了，高手指点一下</p><p>ps：肯定就是下边的sblip和scmde引起的，我调试过，去掉还可以运行。</p><p>。。。。。。。。。。。。。。。。。。。。。</p><p>Sub gardenpath()<br/>&nbsp;&nbsp;&nbsp; Dim sblip As Variant<br/>&nbsp;&nbsp;&nbsp; Dim scmde As Variant<br/>&nbsp;&nbsp;&nbsp; gpuser<br/>&nbsp;&nbsp;&nbsp; sblip = ThisDrawing.GetVariable("blipmode")<br/>&nbsp;&nbsp;&nbsp; scmde = ThisDrawing.GetVariable("cmdecho")<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "blipmode", 0<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "cmdecho", 0<br/>&nbsp;&nbsp;&nbsp; drawout<br/>&nbsp;&nbsp;&nbsp; drawtiles<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "blipmode", sblip<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "cmdecho", scmde<br/>End Sub<br/></p>

zhihaoli_bj 发表于 2008-4-28 16:14:00

<p>参考如下代码即可：</p><p>Application.ActiveDocument.GetVariable("DIMSCALE")</p>
页: [1]
查看完整版本: 获取系统变量错误，晕『附部分代码』