带变量的VBA样条

woutervddn · 发表于 2022-7-6 22:56:45

你好

我正在开发一个自动绘制曲线的程序。通常，您将使用样条命令并将点放置在您希望的位置。
现在的问题是点数可能会有所不同。我使用了以下代码：

'定义拉伸路径（样条线对象）
暗色样条线
将startTan（0到2）变暗为双精度
Dim endTan（0到2）为双精度
Dim fitPoints（0到snggeg）为双精度

snggeg是我需要的分数。

在这部分之后，我开始将值放入拟合点中，然后绘制样条曲线。但他一直在说（关于snggeg）：“编译错误：需要常量表达式。”

这是个问题！关于如何修复它有什么想法吗？我可以用if来做，然后从0到2，从0到5，从。。。唯一的问题是，我们有时可能需要500分。这就是500个假设，这对我来说一点都不有趣。。

请给我一个解决方案，因为我已经在这个问题上花了很多时间

提前感谢

沃特

SEANT · 发表于 2022-7-6 23:34:02

未知量通常通过动态数组处理。

copy

 
Dim fitPoints() As Double
Dim fpCount as Integer
Dim fpCountBound as Integer

例如，一旦fpCount已知，则：

copy

 
fpCountBound = (fpCount * 3) - 1
Redim  fitPoints(fpCountBound)

woutervddn · 发表于 2022-7-7 00:07:30

谢谢！我马上试试。。

[编程交流] 带变量的VBA样条

发表回复

精选推荐