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

带变量的VBA样条

你好
 
我正在开发一个自动绘制曲线的程序。通常,您将使用样条命令并将点放置在您希望的位置。
现在的问题是点数可能会有所不同。我使用了以下代码:
 
'定义拉伸路径(样条线对象)
暗色样条线
将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

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

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

 
例如,一旦fpCount已知,则:
 

fpCountBound = (fpCount * 3) - 1
RedimfitPoints(fpCountBound)

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

谢谢!我马上试试。。
页: [1]
查看完整版本: 带变量的VBA样条