Enlazar autocad con excel VBA
Publicado por Luis Miguel Guavita Rojas (2 intervenciones) el 12/01/2017 19:15:58
Buenos días resulta que soy muy nuevo en VBA y tengo el siguiente error, he tratado de todo pero no he logrado solucionarlo. Abro un documento en excel que tiene tres columnas de datos con 4070 filas y las leo en un supuesto arreglo llamados POINTS(), uso un ciclo para hacer toda esa lectura pero siempre al final me arroja el error que hay algo mal con los subindices, no entiendo qué es y les pido su ayuda.
El error siempre lo arroja en la linea POINTS(Z), si la elimino, va hacia la linea POINTS(Y), y si la elimino va hacia la linea POINTS(X), así que no entiendo qué sucede. Adjunto el código.
El error siempre lo arroja en la linea POINTS(Z), si la elimino, va hacia la linea POINTS(Y), y si la elimino va hacia la linea POINTS(X), así que no entiendo qué sucede. Adjunto el código.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub ANTPOLYLINE()
Dim archivo As String
archivo = "C:\PuntosANTS.xlsm"
If Dir(archivo) <> "" Then
Excel.Application.Workbooks.Open archivo
Excel.Application.Visible = True
Else
MsgBox "Este archivo no existe"End If
Dim ptox, ptoy, ptoz As Double
Dim points(1 To 4070) As Double
Dim ant As AcadLWPolyline
Dim i, j, k As Integer
Dim row_num As Integer
i = 1 j = 2 k = 3 For row_num = 1 To 4070ptox = Excel.Cells(row_num, 1).Value
ptoy = Excel.Cells(row_num, 2).Value
ptoz = Excel.Cells(row_num, 3).Value
points(i) = ptox
points(j) = ptoy
points(k) = ptoz
i = i + 3
j = j + 3
k = k + 3
Next row_num
Set ant = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
End Sub
Valora esta pregunta
0