[讨论]VBA中关于UCS的及时更新问题

geabus

一般而言，激活UCS采用的方法是 .ActiveUCS=...
但这样似乎会遇到一个问题
我的代码过程如下：

do
     函数：点的在UCS1中的坐标转换成UCS2中的坐标
loop while 条件

函数：
  取得当前UCS0

  激活UCS1
    点在UCS1中的坐标转换成WCS
    激活UCS2
    WCS转换成UCS2中的坐标
  
  恢复当前UCS0

在这样一个过程中，如果单步执行，没有一点问题，但是正式运行的时候，取得当前UCS总会失败，提示X,Y轴不垂直。我的取得当前UCS的代码是引用CAD例子文件里的，是通过取得系统变量，来获取当前UCS的X、Y轴向量以及原点坐标，在我另一个工程里运行时，非常成功。

是不是系统变量不能及时更新，导致得出这样的结果？

相关代码：
With ThisDrawing
        Set currUCS = .UserCoordinateSystems.Add( _
                            .GetVariable("UCSORG"), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSXDIR"), acUCS, acWorld, 0), _
                            .Utility.TranslateCoordinates(.GetVariable("UCSYDIR"), acUCS, acWorld, 0), _
                            "OriginalUCS")
End With