三视图+正轴测投影（图形学）-vb

最新推荐文章于 2021-05-25 22:56:03 发布

ilovepc001

最新推荐文章于 2021-05-25 22:56:03 发布

阅读量2.6k

点赞数

文章标签：图形 integer command c

本文链接：https://blog.csdn.net/ilovepc001/article/details/1369123

版权

这篇博客展示了如何使用VB编程实现三维图形的三视图（正视图、侧视图、俯视图）及正轴测投影。通过用户输入的数据，程序在Picture1画布上绘制红色线条表示正视图，绿色线条表示侧视图，蓝色线条表示俯视图，以及红色线条表示正轴测投影。用户可以清除画布并重新绘制。

摘要由CSDN通过智能技术生成

三视图+正轴测投影（图形学）-vb

Option Explicit
Dim x, y, z, s, e
Dim i As Integer
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer

Private Sub Command1_Click() '正视图
Label3.Visible = True
ax = Val(Text1.Text)
ay = Val(Text2.Text)
For i = 0 To 11
    x1 = x(s(i)): y1 = y(s(i))
    x2 = x(e(i)): y2 = y(e(i))
    Picture1.Line ((x1 + ax), (y1 + ay))-((x2 + ax), (y2 + ay)), vbRed
Next i
For i = 11 To 23
    x1 = x(s(i)): y1 = y(s(i))
    x2 = x(e(i)): y2 = y(e(i))
    Picture1.Line ((x1 + ax), (y1 + ay))-((x2 + ax), (y2 + ay)), vbRed
Next i
End Sub

Private Sub Command2_Click() '侧视图
Label4.Visible = True
bx = Val(Text3.Text)
by = Val(Text4.Text)