我有一个VBA程序，我用它来选择一个块，然后我想将UCS移动到该块的插入点，并将X轴设置为与块的旋转角度平行。
-
- TempPt1(0) = brefobj.InsertionPoint(0)
- TempPt1(1) = brefobj.InsertionPoint(1)
- TempPt1(2) = brefobj.InsertionPoint(2)
- AcActDoc.ActiveUCS.Origin = TempPt1
使用上面的代码，我可以移动当前UCS的原点。我尝试了各种不同的方法来旋转UCS，但没有成功。
如有任何见解，将不胜感激。
拍打 | 
置顶卡
