[求助]：如何回到WCS？

liuyu49

用vba新建了用户坐标系UCS，并设为当前坐标系后，如何才能把坐标系换回道WCS？
谢谢

雪山飞狐(lzh)

帮助里不是有麽？
Sub Example_ActiveUCS()
    ' This example returns the current UCS
    ' and then sets a new UCS.
    ' Finally, it returns the UCS to the previous setting.
   
    Dim newUCS As AcadUCS
    Dim currUCS As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxis(0 To 2) As Double
    Dim yAxis(0 To 2) As Double
   
    ' Return current UCS of active document
    Set currUCS = ThisDrawing.ActiveUCS
    MsgBox "The current UCS is " & currUCS.Name, vbInformation, "ActiveUCS Example"
   
    ' Create a UCS and makes it current
    origin(0) = 0: origin(1) = 0: origin(2) = 0
    xAxis(0) = 1: xAxis(1) = 1: xAxis(2) = 0
    yAxis(0) = -1: yAxis(1) = 1: yAxis(2) = 0
    Set newUCS = ThisDrawing.UserCoordinateSystems.Add(origin, xAxis, yAxis, "_TestUCS")
    ThisDrawing.ActiveUCS = newUCS
    MsgBox "The new UCS is " & newUCS.Name, vbInformation, "ActiveUCS Example"
   
    ' Reset the UCS to its previous setting
    ThisDrawing.ActiveUCS = currUCS
    MsgBox "The UCS is reset to " & currUCS.Name, vbInformation, "ActiveUCS Example"
End Sub

liuyu49

好像不行呀，空对象ID
因为根本没有UCS呀，只有WCS
怎么才能回到WCS呀？