[求助]新手上来跟大家打个招呼，顺便问个低级问题，

52okok

怎样将利用代码将当前坐标系转为世界坐标系，我下面的代码不行

Public Sub Reset_WCS()

    Dim objUCS As AcadUCS
    
    Set objUCS = ThisDrawing.UserCoordinateSystems.Item("World")
    ThisDrawing.ActiveUCS = objUCS
    Debug.Print "activeUCS ---- " & objUCS.Name
End Sub

xinghesnak

ThisDrawing.Application.ActiveDocument.SendCommand "_ucs" & vbCr & vbCr

52okok

谢谢  xinghesnak , 不过我还想知道除了用sendcommand命令外还又没有没有其他更好的方法;

实际上我认为我上面列的代码可能行,就是不知道为什么在括号里加world不行,加*world*也不行！应该怎么改写才可以？

xinghesnak

我也想知道你原来的方法为什么不行，可是你监视一下就能发现他的坐标系集合里根本就没有叫什么" world " 或者 " *world* "的成员。真的很奇怪。。。。

52okok

No more better suggestion?

52okok

，自己顶一下