带变量的VBA样条
你好我正在开发一个自动绘制曲线的程序。通常,您将使用样条命令并将点放置在您希望的位置。
现在的问题是点数可能会有所不同。我使用了以下代码:
'定义拉伸路径(样条线对象)
暗色样条线
将startTan(0到2)变暗为双精度
Dim endTan(0到2)为双精度
Dim fitPoints(0到snggeg)为双精度
snggeg是我需要的分数。
在这部分之后,我开始将值放入拟合点中,然后绘制样条曲线。但他一直在说(关于snggeg):“编译错误:需要常量表达式。”
这是个问题!关于如何修复它有什么想法吗?我可以用if来做,然后从0到2,从0到5,从。。。唯一的问题是,我们有时可能需要500分。这就是500个假设,这对我来说一点都不有趣。。
请给我一个解决方案,因为我已经在这个问题上花了很多时间
提前感谢
沃特 未知量通常通过动态数组处理。
Dim fitPoints() As Double
Dim fpCount as Integer
Dim fpCountBound as Integer
例如,一旦fpCount已知,则:
fpCountBound = (fpCount * 3) - 1
RedimfitPoints(fpCountBound)
谢谢!我马上试试。。
页:
[1]