itérer un AcmPartList

[laurentM]

Salut,

Je suis nouveau sur ce site et dans la programmation pour autocad.

Je suis à la recherche d'une méthode en vba (ou facilement exploitable pour lire les éléments d'un nomenclature autocad méchanical V6.

 

LE mieux que j'ai pu faire est

Private Sub lireNom()

 

 

Dim elem As Object

For Each elem In ThisDrawing.ModelSpace

If elem.EntityName = "AcmPartList" Then

For Each valeur In elem.itemlist

For Each it In valeur.data

Debug.Print "it->" & it

Next

Next

End If

Next elem

 

 

End Sub

 

ce qui ne me permet pas de connaitre la dimension du tableau, est que je trouve très limité pour pouvoir extraire ce type de nomclature.

 

Si quelqu'un à une idée sur la manière d'itérer proprement ce genre de nomclature je l'en remerçie par avance.

 

A+