如何恢复UCS坐标系

兰州人

在文件中已经有定义好的aa(UCS坐标系)

lisp语句操作很简单

(command "ucs" "r" "aa")

我的思路是

dim aa As Acaducs

thisdrawing.activeucs.name = "aa"

但运行是空,

问题:用VBA如何编程我还需要加什么语句?

谢谢

wyj7485

ThisDrawing.ActiveUCS = ThisDrawing.UserCoordinateSystems.Item("aa")