procedimiento recursivo

[ebu]

hola!
aqui os planteo otra duda haber si me la podeis solucionar.
he creado un procedimiento recursivo:

Public Sub TraverseComponent(swComp As SldWorks.Component2, nLevel As Long)
For i = 0 To nLevel - 1
sPadStr = sPadStr + " "
Next i
Range("C1").Select
vChild = swComp.GetChildren
For i = 0 To UBound(vChild)
Set swChildComp = vChild(i)
konfigMatrix = swModel.GetConfigurationNames
For j = 0 To UBound(konfigMatrix)
ActiveCell.FormulaR1C1 = konfigMatrix(j)
ActiveCell.Offset(0, 1).Select
Next j
Erase konfigMatrix
TraverseComponent swChildComp, nLevel + 1
Next i
End Sub

el caso es q el programa no termina o termina y me da un error 28. lo logico seria poner un if para q finalice el ciclo pero como ando con dos arrays dinamicos (vChild y konfigMatrix) desconozco sus longitudes x lo q no se q condicion poner en el if. alguien me puede ayudar?
gracias!

[David]

¿Para qué esta línea?:

Código vb:

TraverseComponent swChildComp, nLevel + 1
 

Estás ejecutando una y otra vez la función a cada paso del bucle, es es la razón por la que nunca termina.

[ebu]

con esa linea es con la q entra de nuevo en el procedimiento. lo q pasa q no entiendo muy bien para q sirve el nLevel+1.

For i = 0 To nLevel - 1
sPadStr = sPadStr + " "
Next i
se supone q este bucle es el encardo de parar el programa no?? pero tampoco la entiendo muy bien.
seria + facil meter un do until/loop para parar el bucle pero al no saber la longitud de los arrays...
gracias de todos modos! seguiré probando!

[David]

Yo no entiendo la razón de existir del parámetro nLevel, ni tampoco de ese primer bucle. Simplemente no hacen nada y no son utilizados en ninguna otra parte.

[ebu]

osea q si lo elimino igual igual.
ahora mi problema es como decirle al programa q cuanto carge los arrays por ultima vez y tenga todos los datos en excel q deje de repetir el procedimiento?

tendria q meter TraverseComponent swChildComp dentro del for i=... para q cuando termine el for termine de repetir. a mi otra opcion no se me ocurre.

[David]

No entendí la pregunta, y tampoco entendí por qué vuelves a llamar al procedimiento desde dentro del procedimiento si los parámetros no cambian y al final la acción es la misma, eso provocará que nunca termine el proceso, ya que se ejecuta y ejecuta vez tras vez. Simplemente quita la llamada al procedimiento y debería terminar correctamente.

[ebu]

ya, tienes razon. una ultima consulta: si hago erase nombre_vector borro el vector no? o lo dejo en blanco? sino para añadir datos tendre q usar el redim/redim preserve.
gracias x tu ayuda!

[David]

El comportamiento de Erase depende de cómo has definido el array. Si lo has definido con índices borra todos los datos de los índices, si lo has definido como dinámico, pierde todos los índices y tendrás que usar nuevamente ReDim para inicializarlo.

[ebu]

gracias x tu ayuda!

[ebu]

recuperando el tema, porq no me deja llamar de nuevo al procedimiento??? gracias!

Sub niños(swComp As object)

Dim vChildComp As Variant
Dim i As Integer
Dim ConfigName As String
Dim b As object
Dim swChildComp As object


vChildComp = swComp.GetChildren 'carga unos objetos en la matriz vChildComp


For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)

Set b = swChildComp.GetModelDoc
deitura b 'llama a otro procedimiento

umeak swChildComp ' yo creo q aqui esta el fallo, no me lo reconoce!!lo q hace es ignorar la rellamada al procedimiento y solo ejecuta el for.
Next i

End Sub

[David]

¿Qué hay dentro de la función "umeak"?

[ebu]

sorry, me he confundido.

Sub niños(swComp As object)

Dim vChildComp As Variant
Dim i As Integer
Dim ConfigName As String
Dim b As object
Dim swChildComp As object


vChildComp = swComp.GetChildren 'carga unos objetos en la matriz vChildComp


For i = 0 To UBound(vChildComp)
Set swChildComp = vChildComp(i)

Set b = swChildComp.GetModelDoc
deitura b 'llama a otro procedimiento

niños swChildComp ' yo creo q aqui esta el fallo, no me lo reconoce!!lo q hace es ignorar la rellamada al procedimiento y solo ejecuta el for.
Next i

End Sub

[David]

Creo que no, lo que sí puede estar pasando es que al volver a llamar al procedimiento se ejecuta nuevamente el bucle for, y nuevamente... no termina.

[ebu]

sabes de alguna posible solucion. ami lo unico q se me ocurre es en vez de hacer un procedimiento recursivo hacer un bucle anidado. meter un for dentro de otro y asi pero esq no se hasta cuantas veces lo tendria q hacer...estoy perdida!

[David]

Es que yo nunca trabajé con eso de SdlWorks, ni siquiera sé de qué va. Así que no sé cuál sería el mejor método, tal vez si revisas el manual de ese componente...

[ebu]

ok, tranquilo!
gracias x tu ayuda!