Jump to content

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


Guest fabdu91630

Recommended Posts

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 !!!!!

Link to post
Share on other sites
  • 9 years later...

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

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...