Bonjour à tous,
J’ai récupéré sur le net une macro qui permet, à partir d’un Part, de créer la mise en plan automatique avec toute la cotation.
J’ai fait quelques modifications (chemin des templates, adaptation de certaines fonctions, …) mais j’ai un loup quelque part et je n’arrive pas à trouver la faille.
Si quelqu’un peut m’aider, ce serait super :-).
PS: nous avons uniquement la licence Standard donc pas accès à certains outils. D’où l’idée de macro ;-).
Merci d’avance, passez une bonne journée.
Sébastien
Mise en plan auto.swp (57 Ko)
Quel est le loup?
Si pas plus d’explication difficile de savoir ou cela coince lorsque tu exécute ton code.
L’as tu lancer au pas par pas pour le debugué?
Pour le pas par pas, dans l’éditeur de macro puis f8 pour avancé ligne par ligne jusqu’à ce que cela coince ou bien bug.
Edit: Et aussi code d’origine pour essayer de comprendre ensuite le bug.
3 « J'aime »
Après un essai rapide cela fonctionne très bien si tu nommes bien tes vues.
Au lieu de *Front tente avec *Face par exemple si ton template a bien une vue nommée à la française comme moi
Set swViewFront = swDrawing.CreateDrawViewFromModelView3(partPath, "*Face", 0, 0, 0)
1 « J'aime »
Bien c’était bien ça :-).
Par contre, j’ai continué le déroulé de la macro et il y a un bug lors du repositionnement des vues.
L’idéal aurait été d’aligner les vues projetées avec la vue de base.
Je n’avais pas de vue qui s’affichait.
Et oui j’avais essayé avec F8 pour trouver mon problème.
Si tu veux créer toute les vues en 1 fois:
Create1stAngleViews2
Et au moins elles sont déjà aligné.
Ou suivant préférence
Create3rdAngleViews2
1 « J'aime »
