VBA做规则格网

馨馨

已经读取txt文本中的坐标值，比较了X和Y的最大最小值，设置了每个网格的尺寸，但是没有画出格网来，不知道哪里出错了，求各位大神指导

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

Dim L As Integer<br /> Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double<br /> Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double<br /> 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 = 0: Xmin = 0<br />     Ymax = 0: Ymin = 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