Insertion d\'une reference externe plan dwg avec macro vba

[Guest fabdu91630]

Bonjour,

 

Je suis novice dans la programmation VBA et j'ai besoin d'aide :

 

J'ai besoin de créer une macro en VBA qui me permettrai de insérer une référence externe plan.dwg.

 

exemple :

 

J'ai un plan de détection du niveau 1 ouvert.

En exécutant la macro, je veux qu'il insert en référence externe le "planmmur.dwg" du niveau qui lui correspond, sachant que j'ai 8 niveaux se trouvant dans un dossier de mon Ordi..

 

 

Bien que je suppose que le début est :

 

Sub Insertion plan ()

 

et la fin :

 

End sub

 

Je suis bloqué

 

A l'aide !!!!!

[Curlygoth 3]

Sub Insertion plan ()

et la fin :

End sub

 

Je doute que tu répondras post de 2011 m'enfin...

en tout cas jusque la c'est effectivement juste !

 

Sub IMPORT_XREF()
Dim P(0 to 2) as double 'point d'insertion
dim CHEMIN as string 'chemin absolu de ta Xref ou relatif... enfin un chemin valide
dim Fichier as string 'nom de ton fichier a mettre en reference
Dim NOM_XREF as string ' nom de ta Xref
Dim Ex, Ey, Ez, R as double 'E et Rotation
DIM O as Boolean
O = True 'Méthode d'insertion : Association(prend les xref des xrefs) ou Superposition (ignore les xref de la xerf)

'...
'Tes calculs et tes valeurs dans les variables
'...
Set XREF = ThisDrawing.ModelSpace.AttachExternalReference(CHEMIN & "\" & FICHIER, NOM_XREF, P, Ex, Ey, Ez, R, O)
xref.update

end sub