多义线顶点个数能不能设置为变量？

ry888

为什么Coordinates(A)不能设置为变量？
一定要设置为常数Coordinates(10)
有办法解决吗？

王咣生

设置为变量没有问题啊:

    Dim i As Integer
    i = 1
    Dim coord As Variant
    coord = plineObj.Coordinate(i)

你是用Coordinate还是用Coordinates?

ry888

我用的是Coordinates，不可以吗？

ry888

hs = xlApp.WorksheetFunction.Count(Columns(1))

    Dim Coordinates(hs - 1) As Double
 

        For i = 1 To hs
           Coordinates(i - 1) = Cells(i, 1)
        Next i
 Set acadpline = mspace.AddLightWeightPolyline(Coordinates)
acadpline.Update

提示编译错误：要求参数表达式

王咣生

将Dim Coordinates(hs - 1) As Double改为:

ReDim Coordinates(hs - 1) As Double试一下.