Guest fabdu91630 Posted May 28, 2011 Report Share Posted May 28, 2011 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 !!!!! Quote Link to post Share on other sites
Curlygoth 3 Posted March 19 Report Share Posted March 19 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 Quote Mon site Web (en cours de construction) : Site Le site de @(gile) : https://gilecad.azurewebsites.net/Tutorials.aspx Le site de @didier : https://www.da-code.fr/ Link to post Share on other sites
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.