社区 › VB › 多义线顶点个数能不能设置为变量？

ry888 发表于 2008-3-3 09:57:00

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

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

王咣生 发表于 2008-3-3 15:30:00

设置为变量没有问题啊:
    Dim i As Integer
    i = 1
    Dim coord As Variant
    coord = plineObj.Coordinate(i)
你是用Coordinate还是用Coordinates?

ry888 发表于 2008-3-3 16:48:00

我用的是Coordinates，不可以吗？

ry888 发表于 2008-3-3 17:19:00

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
提示编译错误：要求参数表达式

王咣生 发表于 2008-3-3 18:04:00

将Dim Coordinates(hs - 1) As Double改为:
ReDim Coordinates(hs - 1) As Double试一下.

查看完整版本: 多义线顶点个数能不能设置为变量？