geabus 发表于 2009-1-6 12:53:00

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

<div class="tpc_content" id="read_tpc">一般而言，激活UCS采用的方法是 .ActiveUCS=...<br/>但这样似乎会遇到一个问题<br/>我的代码过程如下：<br/><br/>do<br/>&nbsp;&nbsp;&nbsp;&nbsp; 函数：点的在UCS1中的坐标转换成UCS2中的坐标<br/>loop while 条件<br/><br/>函数：<br/>&nbsp;&nbsp;取得当前UCS0<br/><br/>&nbsp;&nbsp;激活UCS1<br/>&nbsp;&nbsp;&nbsp;&nbsp;点在UCS1中的坐标转换成WCS<br/>&nbsp;&nbsp;&nbsp;&nbsp;激活UCS2<br/>&nbsp;&nbsp;&nbsp;&nbsp;WCS转换成UCS2中的坐标<br/>&nbsp;&nbsp;<br/>&nbsp;&nbsp;恢复当前UCS0<br/><br/>在这样一个过程中，如果单步执行，没有一点问题，但是正式运行的时候，取得当前UCS总会失败，提示X,Y轴不垂直。我的取得当前UCS的代码是引用CAD例子文件里的，是通过取得系统变量，来获取当前UCS的X、Y轴向量以及原点坐标，在我另一个工程里运行时，非常成功。<br/><br/>是不是系统变量不能及时更新，导致得出这样的结果？<br/><br/>相关代码：<br/>With ThisDrawing<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set currUCS = .UserCoordinateSystems.Add( _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.GetVariable("UCSORG"), _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Utility.TranslateCoordinates(.GetVariable("UCSXDIR"), acUCS, acWorld, 0), _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Utility.TranslateCoordinates(.GetVariable("UCSYDIR"), acUCS, acWorld, 0), _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"OriginalUCS")<br/>End With</div>
页: [1]
查看完整版本: [讨论]VBA中关于UCS的及时更新问题