VBA开发，刚学请多指教

vbcad

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
    Xmax = 0 '初始值
    Ymax=0
    Xmin=0
    Ymin=0       
    Open "E:\demdata.txt" For Input As #1  '打开文件
    Do While Not EOF(1) '文件读取循环
    L = L + 1 '个数加1
    Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    if Xmax<X(L) then Xmax=X(L)'x找最大
    if Ymax<Y(L) then Ymax=Y(L)'y找最大
    if Xmin>X(L) then Xmin=X(L)'x找最小
    if Ymin>Y(L) then Ymin=Y(L)'y找最小
    Loop '文件读取循环
    Close #1 '关闭文件
debug.print "x最大：";Xmax
debug.print "y最大：";Ymax
End Sub

馨馨

vbcad 发表于 2016-4-27 19:49
Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Doub ...

谢谢，我想用求出的最大最小值画一个格网，写的代码指画出一个框，不知道大神会不会，非常感谢

2. Sub txt_read()
   
3. Dim txtname As String
   
4. Dim L As Integer
   
5. 
   
6.   '读取文件
   
7.     L = 0 '初始值
   
8.     Open "E:\demdata.txt" For Input As #1  '打开文件
   
9.     Xmax = X(0): Xmin = X(0)
   
10.     Ymax = Y(0): Ymin = Y(0)
    
11.     Do While Not EOF(1) '文件读取循环
    
12.     If X(L) >= Xmax Then
    
13.     Xmax = X(L)
    
14.     End If
    
15.     If Y(L) >= Ymax Then
    
16.     Ymax = Y(L)
    
17.     End If
    
18.     If X(L) <= Xmin Then
    
19.     Xmin = X(L)
    
20.     End If
    
21.     If Y(L) <= Ymin Then
    
22.     Ymin = Y(L)
    
23.     End If
    
24.     L = L + 1 '个数加1
    
25.     Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
    
26.     Loop '文件读取循环
    
27.     Close #1 '关闭文件
    
28.    
    
29. '绘制格网
    
30. Dim plineObj As AcadLWPolyline
    
31. Dim points(0 To 11) As Double
    
32. Dim M As Integer  '行数
    
33. Dim N As Integer  '列数
    
34. Dim Dx As Double  '每个网格x值
    
35. Dim Dy As Double  '每个网格y值
    
36. ' 定义多段线的点
    
37.     Dx = 14.5
    
38.     Dy = 15.6
    
39.     M = (Xmax - Xmin) / Dx '求出行数
    
40.     N = (Ymax - Ymin) / Dy '求出列数
    
41.     points(0) = Xmin: points(1) = Ymin: points(2) = 0
    
42.     points(3) = Xmin: points(4) = Ymax: points(5) = 0
    
43.     points(6) = Xmax: points(7) = Ymax: points(8) = 0
    
44.     points(9) = Xmax: points(10) = Ymin: points(11) = 0
    
45.     '在模型空间中创建一个多段线对象
    
46.     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
47.     ZoomAll
    
48. End Sub

Sub txt_read()<br /> Dim txtname As String<br /> Dim L As Integer<br /> <br />   '读取文件<br />     L = 0 '初始值<br />     Open "E:\demdata.txt" For Input As #1  '打开文件<br />     Xmax = X(0): Xmin = X(0)<br />     Ymax = Y(0): Ymin = Y(0)<br />     Do While Not EOF(1) '文件读取循环<br />     If X(L) >= Xmax Then<br />     Xmax = X(L)<br />     End If<br />     If Y(L) >= Ymax Then<br />     Ymax = Y(L)<br />     End If<br />     If X(L) <= Xmin Then<br />     Xmin = X(L)<br />     End If<br />     If Y(L) <= Ymin Then<br />     Ymin = Y(L)<br />     End If<br />     L = L + 1 '个数加1<br />     Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标<br />     Loop '文件读取循环<br />     Close #1 '关闭文件<br />     <br /> '绘制格网<br /> Dim plineObj As AcadLWPolyline<br /> Dim points(0 To 11) As Double<br /> Dim M As Integer  '行数<br /> Dim N As Integer  '列数<br /> Dim Dx As Double  '每个网格x值<br /> Dim Dy As Double  '每个网格y值<br /> ' 定义多段线的点<br />     Dx = 14.5<br />     Dy = 15.6<br />     M = (Xmax - Xmin) / Dx '求出行数<br />     N = (Ymax - Ymin) / Dy '求出列数<br />     points(0) = Xmin: points(1) = Ymin: points(2) = 0<br />     points(3) = Xmin: points(4) = Ymax: points(5) = 0<br />     points(6) = Xmax: points(7) = Ymax: points(8) = 0<br />     points(9) = Xmax: points(10) = Ymin: points(11) = 0<br />     '在模型空间中创建一个多段线对象<br />     Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br />     ZoomAll<br /> End Sub