[求助]：CAD的VBA中“指定新原点”

黄玉宏

各位朋友，请部怎样用VBA实现在模型空间中指定新坐标原点的代码。假设将当前坐标原点移到(140,50,0)，求助VBA代码。
黄玉宏　2005.5.11

雪山飞狐(lzh)

图形中所有用户坐标系(UCS)的集合。

VBA 类名:
AcadUCSs

创建方法:
N/A

访问途径:
Document.UserCoordinateSystems


要向集合中添加成员，可使用 Add 方法。要选择特定的UCS对象，可使用 Item方法。要删除指定的UCS对象，可使用所找到有UCS对象的Delete 方法。

尽管UCSs对象集合继承了Delete(删除)方法，实际上你也不能删除这个对象集合。试图删除UCSs对象集合将引发一个错误。Delete(删除)方法的说明已从该对象集合的说明文档中删除了。

在图形中建立UCS的数目没有限制。但是，只能有一个UCSs对象集合的实例。每个图形都预定义了一个UCSs对象集合。你可以使用UserCoordinateSystems属性建立UCSs对象集合的多个参照副本，一旦完成操作，参照副本将被自动释放。