兰州人 发表于 2006-10-10 16:30:00

如何恢复UCS坐标系

在文件中已经有定义好的aa(UCS坐标系)
lisp语句操作很简单
(command "ucs" "r" "aa")
我的思路是
dim aa As Acaducs
thisdrawing.activeucs.name = "aa"
但运行是空,
问题:用VBA如何编程我还需要加什么语句?
谢谢

wyj7485 发表于 2006-10-10 17:29:00

ThisDrawing.ActiveUCS = ThisDrawing.UserCoordinateSystems.Item("aa")
页: [1]
查看完整版本: 如何恢复UCS坐标系