VBA编程

馨馨 · 发表于 2016-4-26 09:45:00

用VBA编程实现用这些点X和Y的最大最小值画出方格网，求大神，谢谢

4x0d2ijc5cv.PNG

vbcad · 发表于 2016-4-26 17:26:00

如果你每一个问题都需要别人来写代码，那你就学不到什么东西了。
建议你自己先摸索做一下，或者请教别人思路，碰到难题在发贴求教关键的。

馨馨 · 发表于 2016-4-26 19:42:00

自己写了，运行没有错误没有画出线来

馨馨 · 发表于 2016-4-26 19:43:00

自己写了，运行没有错误，就是画不出线段

bbkcylh · 发表于 2016-4-27 06:09:00

说的不清楚，是画一个外框，还是规则格网？

浪迹天涯追月 · 发表于 2016-4-27 08:31:00

你读文本的时候为什么就不比较下大小，记录好呢？然后就可以组合出外围框的四角坐标了呀

mikewolf2k · 发表于 2016-4-27 08:49:00

发来让大家诊断下？

馨馨 · 发表于 2016-4-27 08:51:00

规则格网，我先进行的比较，不过比较这块我还不熟，这是我读文本的时候的代码，

copy


Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
    L = 0 '初始值
    Open "E:\demdata.txt" For Input As #1  '打开文件
    Do While Not EOF(1) '文件读取循环
    If X(L + 1) > X(L) Then
    Xmax = X(L + 1)
    ElseIf Y(L + 1) > Y(L) Then
    Ymax = Y(L + 1)
    Else
    Xmin = X(L + 1)
    Ymin = Y(L + 1)
    End If
    L = L + 1 '个数加1
    Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    Loop '文件读取循环
    Close #1 '关闭文件
End Sub

馨馨 · 发表于 2016-4-27 08:53:00

对我是想这样做的，但是我刚学没多久，对比较这块不熟，这是我的代码，比较这块不对的地方，希望能帮忙指正，谢谢啦

copy


Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
    L = 0 '初始值
    Open "E:\demdata.txt" For Input As #1  '打开文件
    Do While Not EOF(1) '文件读取循环
    If X(L + 1) > X(L) Then
    Xmax = X(L + 1)
    ElseIf Y(L + 1) > Y(L) Then
    Ymax = Y(L + 1)
    Else
    Xmin = X(L + 1)
    Ymin = Y(L + 1)
    End If
    L = L + 1 '个数加1
    Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    Loop '文件读取循环
    Close #1 '关闭文件
End Sub

馨馨 · 发表于 2016-4-27 08:54:00

谢谢

copy


Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
    L = 0 '初始值
    Open "E:\demdata.txt" For Input As #1  '打开文件
    Do While Not EOF(1) '文件读取循环
    If X(L + 1) > X(L) Then
    Xmax = X(L + 1)
    ElseIf Y(L + 1) > Y(L) Then
    Ymax = Y(L + 1)
    Else
    Xmin = X(L + 1)
    Ymin = Y(L + 1)
    End If
    L = L + 1 '个数加1
    Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    Loop '文件读取循环
    Close #1 '关闭文件
End Sub

VBA编程

发表回复

精选推荐

浏览过的版块