如何读取相对坐标？

yg545france

Cad命令行中用UCS命令自定义了一个点为用户坐标原点。
用VBA读取了多义线的各个点的坐标，但都是WCS的世界坐标值，为了读取到相对坐标值，用来下面的方法，但是读取不出来，说是类型不匹配，错在哪里了啊？

' 部分代码         
Dim ptWcs As Variant
           ptWcs(0) = Poly.Coordinates(0)   'x值
           ptWcs(1) = Poly.Coordinates(1)  'y值
           ptWcs(2) = 100  'z值
myUcs = PtWcs2Ucs(ptWcs)
ttt = myUcs(0)

' 将点的WCS坐标转化到UCS坐标
Private Function PtWcs2Ucs(ptWcs As Variant) As Variant
    PtWcs2Ucs = ThisDrawing.Utility.TranslateCoordinates(ptWcs, acWorld, acUCS, False)
End Function

geabus

Dim ptWcs As Variant
            ptWcs(0) = Poly.Coordinates(0)   'x值
类型定义不一致呀

yg545france

Poly.Coordinates(0) 返回多义线的第一个点的x值,是个数值，这个数值赋值给ptWcs（0）有什么不妥吗？
如何解决呢？

yg545france

试了一下，还是不行啊，
试图将整个数组指定给另一个数组。例如，假如 Arr1 是一个数组，Arr2 是另一个数组，则下列两个赋值都是无效的：
Arr1 = Arr2    ' 无效的赋值。
Arr1() = Arr2()    ' 无效的赋值。

想要将一个数组赋值给另一个数组，确定在左侧的是大小可以调节的数组，且类型匹配。


注意 可以将整个数组放在一个 Variant 中，使一个 variant 变量包含整个数组：

Dim MyArr As Variant
MyVar = Arr2()

您可以使用与正常数组相同的下标，来引用在 variant 中的数组元素，例如：

MyVar(3) = MyVar(1) + MyVar(5)