Aller au contenu

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


lepetitrossi

Messages recommandés

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.

Lien vers le commentaire
Partager sur d’autres sites

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

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

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 :rolleyes: .

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

Bonjour,

 

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

 

Merci.

 

Christian

Formateur, Consultant Expert AutoCAD, REVIT MEP, INVENTOR, télécharger , des Outils AutoCAD...

cad123 @ wanadoo.fr (enlever les espaces de part et d'autre de @)

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité