如何读取相对坐标？
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
Dim ptWcs As Variant
ptWcs(0) = Poly.Coordinates(0) 'x值
类型定义不一致呀 本帖最后由 yg545france 于 2011-12-19 15:51 编辑
Poly.Coordinates(0) 返回多义线的第一个点的x值,是个数值，这个数值赋值给ptWcs（0）有什么不妥吗？
如何解决呢？ 试了一下，还是不行啊，
试图将整个数组指定给另一个数组。例如，假如 Arr1 是一个数组，Arr2 是另一个数组，则下列两个赋值都是无效的：
Arr1 = Arr2 ' 无效的赋值。
Arr1() = Arr2() ' 无效的赋值。
想要将一个数组赋值给另一个数组，确定在左侧的是大小可以调节的数组，且类型匹配。
注意 可以将整个数组放在一个 Variant 中，使一个 variant 变量包含整个数组：
Dim MyArr As Variant
MyVar = Arr2()
您可以使用与正常数组相同的下标，来引用在 variant 中的数组元素，例如：
MyVar(3) = MyVar(1) + MyVar(5)
页:
[1]