Comment inserrer un block décomposé en VBA

[eagle4]

Bonsoir à tous

 

Comment peut-on inserrer un block décomposé en VBA

 

Merci de vos réponse

 

 

Eagle4

 

:question:

[didier]

Bonsoir,

Tu ne vas pas l'insérer décomposé,

mais le décomposer à postériori

comme ceci

Dim Resultat As Variant

Resultat = ObjetBlocRef.Explode

 

Bon Week End à Toi, et tous les membres de CadXp

 

amicalement

[eagle4]

Merci Didier mais j'ai encore un chti pb

 

voici mon code :

 

Dim RetVal As Variant

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(corner2, "B-PDG.dwg", 1#, 1#, 1#, 0)

RetVal = blockRefObj.Explode

 

et je retrouve dans mon dessin le block "B-PDG" décomposé et superposé à celui-ci le même block mais lui n'est pas décomposé .

 

Je ne vois pas ou est le bug !!!!!

 

Eagle4

 

:(

[eagle4]

Re bonsoir

 

J'ai trouvé une solution mais est-ce la bonne ou du moins la plus élégante ?

 

Dim Resultat As Variant

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(corner2, "B-PDG.dwg", 1#, 1#, 1#, 0)

Resultat = blockRefObj.Explode

 

j'ai ajouté la ligne de code suivante

blockRefObj.Delete

 

 

Eagle 4

 

 

:yltype: