编程论坛 → VB6论坛

VB输出 X Y Z 空间坐标

WalleEva6 发布于 2022-01-09 15:11， 1439 次点击

部分代码如下：
'理论廓线方程
x(i) = r0 * Sin(fai - Arcsin(L * Cos(fai1(i)) - a) / r0)
y(i) = r0 * Cos(fai - Arccos(L * Cos(fai1(i)) - a) / r0)
z(i) = L * Sin(fai1(i))
Next
'以下为数据保存程序
Dim k As Long
'凸轮理论廓线
Open "F:\temp1.csv" For Output As #2
Print #2, "x"; ","; "y"; ","; "z"
For k = 0 To DotNum
Print #2, x(k); ","; y(k); ","; z(k);
Next
Close #2
End Sub
最后得出的X Y Z排序不是我想要的,请高手解答，谢谢

只有本站会员才能查看附件，请登录

4 回复

#2

风吹过b2022-01-09 19:06

Print #2, "x"; ","; "y"; ","; "z"
For k = 0 To DotNum
Print #2, x(k); ","; y(k); ","; z(k);

因你图是贴了图的，有点看不懂。
是数据不换行的问题吗？
输出数据那行命令，最后多了一个分号，会导致不换行。

#3

WalleEva62022-01-09 19:29

回复 2楼风吹过b

感谢感谢,已经找到原因了

#4

独木星空2022-01-09 19:48

回复楼主 WalleEva6

不知道，楼主的用处？输出坐标？输出前是什么状态？

#5

WalleEva62022-01-09 20:05

回复 3楼 WalleEva6

VB编程，通过数学解析法得到空间凸轮坐标数据点,

1