Macro création d'une présentation à partir d'un gabarit

[lepetitrossi]

Bonjour à vous tous,

 

Je vous contacte car je galère un peu à trouver une réponse. Je ne suis pas un grand expert du VBA sous Autocad.

 

Voici mon problème:

J'ai une liste de plan de supportage qui est créée sous Excel.

D'après cette liste, je voudrais pouvoir automatiser la création de mes présentations d'après un gabarit donné(sur le même fichier autocad) en les numérotant d'après ma liste.

 

Ce que je recherche exactement, c'est le bout de code qui me permet de créer une présentation à partir d'un gabarit et de la nommer. Le reste devrait rouler.

 

Auriez vous une idée?

 

je vous remercie par avance.

[rebcao]

Bonjour,

 

Plutôt que de t'embêter avec le VBA, tu peux créer un SCRIPT à partir de ton fichier EXCEL qui va créer tes présentations…

 

Tu peux publier ton fichier EXCEL pour voir un peu la structure ?

 

Je te remercie.

 

Christian

[lepetitrossi]

Bonjour,

 

Merci de ta réponse. Niveau Script j'y connais rien du tout. Mais pourquoi pas.

 

Je met le lien ci-dessous pour l'accès au fichier, mais les macros ne sont pas jointes (fichier déporter pour faciliter le travail collaboratif).

Cliquez ici

 

L'idée c'est que dans Tampon, je récupère des infos temporaires issues d'un fichier extraction de données. D'après des règles, le résume les infos dans l'onglet collecte et après j'en fais plusieurs mises en pages différentes en fonction du besoin.

 

En l’occurrence, pour le cas qui m'intéresse, je génère un onglet par numéro de support. Le contenu de cet onglet je le retranscrit sous forme de tableau sous Autocad sur la mise en plan portant le même nom (Fichier DWG regroupant tout les supports avec une présentation par numéro de support).

 

Ce que je veux automatiser c'est la création de la présentation sous autocad d'après les onglets générés sous Excel. (Une présentation = un onglet = un numéro de support).

 

J'espère que c'est français ce que je raconte .

[Curlygoth]

Importer un gabarit j'ai encore jamais fait..

Mais j'ai des codes pour insérer des blocs... et je créée des fenêtres dans mes blocs

 

je pense que démarrer avec une boucle ça pourrait être bien :

 

Voici un exemple : [NON TESTE]

 

'Le classique pour declarer autocad
   Dim acadApp As AcadApplication
   On Error Resume Next
   ' Essaie de se connecter à une instance d'AutoCAD en cours d'exécution
   Set acadApp = GetObject(, "AutoCAD.Application")
   If Err Then
       Err.Clear
       ' Pas d'AutoCAD en cours d'exécution, on en démarre un
       Set acadApp = CreateObject("AutoCAD.Application")
       If Err Then
           MsgBox Err.Description
           Exit Sub
       End If
   End If
   On Error GoTo 0

derlligne = Range("A" & Rows.Count).End(xlUp).Row

NOMFEUILLE = ActiveSheet.name
BLOCPRESENTATION = 'NOM_DU BLOC PRESENTATION peut etre un chemin vers un wbloc

For i = 1 to derlligne 

'Ajoute ton onglet
NOM_ONGLET = Sheets(NOMFEUILLE).range("A" & i)
Set lyt = acadApp.ThisDrawing.Layouts.Add(NOM_ONGLET)

'Insertion du BLOCPRESENTATION
Point0(0) = 0: Point0(1) = 0: Point0(2) = 0
Set blockRefObj = acadApp.ThisDrawing.PaperSpace.InsertBlock _
(Point0, BLOCPRESENTATION, 1#, 1#, 1#, 0)

'Ppress : point centre de ta fenetre
LARGEUR_FEN = 410 'largeur fenetre 'Taille pour A3 marge 5
HAUTEUR_FEN = 287 'Hauteur fenetre 'Taille pour A3 marge 5

'la fenetre
Set Viewport = ThisDrawing.PaperSpace.AddPViewport(Ppres, LARGEUR_FEN, HAUTEUR_FEN)

Next i

 

Ensuite tu peux gerer le zoom/ l'orientation de ta vue dans le viewport... et/ou

les attributs de ton bloc propriété dynamique ou nom

[lepetitrossi]

Salut Curlygoth,

 

Merci pour ta réponse. Il faut que je regarde ce code car c'est la meilleur réponse que j'ai pour le moment.

 

Mais si nous aurions une solution plus simple cela m'intéresse.

[rebcao]

Bonjour,

 

Pourrais-tu donner un exemple de PRESENTATION avec le TABLEAU car dans ton tableau EXCEL il y a de nombreuses colonnes ?

 

Merci.

 

Christian

[dilack]

Salut,

Ah ben si tu veux je peux te fournir un fichier exemple, ça pourrais m'être utile comme script ! ????????

[Curlygoth]

Plus simple ?

 

ben j'ai plus simple : j'ai un bloc avec un attribut (ou plusieurs bloc)

 

le programme parcours tous les blocs et mets en nom d'onglets l'attribut avec un cartouche, un zoom et l'rientation de ton bloc ^^'

 

mais je ne passe pas par excel XD

[lepetitrossi]

Alors J'y suis arrivé en adaptant ce que Curlygoth proposait. Désolé j'ai mis du temps à répondre mais je travail sur plusieurs choses en même temps.

 

Encore merci à vous