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

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试一下.

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

发表回复

精选推荐

浏览过的版块