|
|
一般而言，激活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 |
|
置顶卡
