52okok 发表于 2006-5-30 20:44:00

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

怎样将利用代码将当前坐标系转为世界坐标系，我下面的代码不行
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 发表于 2006-5-31 08:12:00

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

52okok 发表于 2006-5-31 10:22:00

谢谢xinghesnak , 不过我还想知道除了用sendcommand命令外还又没有没有其他更好的方法;
实际上我认为我上面列的代码可能行,就是不知道为什么在括号里加world不行,加*world*也不行！应该怎么改写才可以？

xinghesnak 发表于 2006-5-31 16:25:00

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

52okok 发表于 2006-6-5 22:36:00

No more better suggestion?

52okok 发表于 2006-6-15 20:46:00

，自己顶一下
页: [1]
查看完整版本: [求助]新手上来跟大家打个招呼，顺便问个低级问题，