[VBA函数]：vba怎么在模型空间中用ucs？

mlr_nj

请教各位大侠，如果在图纸空间中用到ucs来平移、旋转局部坐标，怎么实现？

雪山飞狐(lzh)

把UCS坐标转换到WCS中再处理

mlr_nj

虽然这样是可以确定坐标值的，但是，在标注的时候就有问题了，文字的方向、文字位于标注线的哪一侧，不好控制啊？要是能使用ucs就可以给标注的文字相对位置和方向定位了。vba中有没有ucs相关的函数和命令？

雪山飞狐(lzh)

VBA里的坐标是在WCS下的，UCS坐标在VBA中无法直接调用
用下面的函数转换坐标：
将点从一个坐标系转换到另一个坐标系。

See Also | 示例

语法

RetVal = object.TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal])

Object

Utility
使用该方法的对象。

OriginalPoint

Variant[变体] (三元素双精度数组); 仅用于输入
指定要转换的源坐标的三维 WCS 坐标。该参数可被看为一个点或相对于 Disp 值的位移矢量。

From

AcCoordinateSystem 常数; 仅用于输入
点的源坐标系。

acWorld

acUCS

acOCS

acDisplayDCS

acPaperSpaceDCS

To

AcCoordinateSystem 常数; 仅用于输入
点将被转换到的坐标系。

acWorld

acUCS

acOCS

acDisplayDCS

acPaperSpaceDCS

Disp

Integer[整数]; 仅用于输入
位移矢量标记

TRUE: OriginalPoint 作为位移矢量。

FALSE: OriginalPoint 作为一个点。

OCSNormal

Variant[变体] (三元素双精度数组); 仅用于输入;可选项
OCS 的法线。

RetVal

Variant[变体] (三元素双精度数组)
转化后的三维坐标。

说明

用户不能直接将坐标从一个 OCS 转换到另一个 OCS。首先将一个坐标从一个 OCS 转换为中间坐标系(如 WCS)，然后将其坐标转换为第二个 OCS 。

将 Polyline 或 LightWeightPolyline 上的点从 OCS 转换到 WCS：

1. 从 Coordinate 或 Coordinates 属性中获得 OCS 点的 X 和 Y 坐标。

2. 通过 Elevation 属性获得 OCS 点的 Z 坐标。

3. 从 Normal 属性中获得样条曲线的法线。

4. 用 X, Y, Z 坐标及 Normal 调用 TranslateCoordinates 。