Saltar al contenido

Bienvenido a Auxcad.com

Regístrate ahora para obtener el acceso a todas nuestras secciones y características. Una vez registrado y conectado podrás crear temas, contribuir con tus respuestas a resolver discusiones existentes, puedes añadir amigos, disfrutar de mensajería privada obtener acceso a nuestro centro multimedia, descargas y muchas posibilidades más...Si ya tienes una cuenta entra aquí- si aún no la tienes crea una cuenta gratis hoy mismo !!!


Nava

Nava

Registrado: 31 ene 2013
OFFLINE Última actividad: sep 23 2015 11:59
-----

¿Cómo elimino todas las posiciones de un array?

24 enero 2014 - 02:10

Hola buenas!

 

Estoy trabajando en una macro para eliminar todas las user properties que tienen los parts incluídas en un product.

 

El problema viene cuando al querer acceder de forma recursiva a Params donde tengo las propiedades no consigo borrarlas todas.


Dim i As Integer
Dim InputObj(99) As Variant
Dim j As Integer
Dim k As Integer
Dim ww As Integer
Dim Params As Variant
Dim zz As Integer
    
   For i = 1 To iCount

   Set InputObj(i) = ObjSel.Item2(i).Value
   Set Params = InputObj(i).ReferenceProduct.UserRefProperties
        For k = 1 To 99
        Params.Remove k
        Next
   Next

MsgBox (" Todos los Parts cambiados!!!")

End Sub

¡Espero que me podaís echa una manilla!, Si queda algo mal explicado preguntame

 

Gracias!