Sub Main() CreateDrawingsFromAssembly(ThisDoc.Document) ' Appelle la fonction CreateDrawingsFromAssembly avec le document actuel en paramètre End Sub Private Sub CreateDrawingsFromAssembly(ByVal oDoc As Inventor.Document) Dim oDrawingDoc As DrawingDocument ' Document de dessin Dim oSheet As Sheet ' Feuille de dessin Dim oBaseView As DrawingView ' Vue de base Dim oView2 As DrawingView ' Deuxième vue projetée Dim oView3 As DrawingView ' Troisième vue projetée Dim ViewScale As Double = 1 / 10 ' Échelle de la vue dwgQuery = MsgBox("Souhaitez-vous créer des dessins à partir de cet assemblage ?", vbYesNo, "Sélection de dessin") If dwgQuery = vbYes Then End If Dim oAssy As AssemblyDocument ' Document d'assemblage Dim oComp As ComponentOccurrence ' Occurrence de composant Dim oSubDoc As Document ' Sous-document ' Chemin du template IDW oAssy = CType(oDoc, AssemblyDocument) ' Convertit le document en tant que document d'assemblage oDrawingDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, "C:\3DIME\PROJET INVENTOR\DESIGNS\TEMPLATE 2023\INVENTOR\dessin.idw", True) ' Crée un nouveau document de dessin à partir du template IDW oSheet = oDrawingDoc.Sheets.Item(1) ' Sélectionne la première feuille du document de dessin Dim i As Integer = 0 ' Compteur pour placer les vues sur la feuille For Each refDoc As Document In oAssy.AllReferencedDocuments ' Parcourt tous les documents référencés dans l'assemblage If refDoc.FullFileName.Contains("Content Center") Then Continue For ' Ignore les documents provenant du Content Center ' Définit les points de coin inférieur gauche pour les quatre vues Dim oPoint1 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(11 + i * 30, 11) ' Coin inférieur gauche pour la vue de base Dim oPoint2 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(28 + i * 30, 11) ' Coin inférieur gauche pour la deuxième vue projetée Dim oPoint3 As Point2d = ThisApplication.TransientGeometry.CreatePoint2d(11 + i * 30, 20) ' Coin inférieur gauche pour la troisième vue projetée ' Les styles de vue peuvent être : ' DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle ' DrawingViewStyleEnum.kHiddenLineDrawingViewStyle ' DrawingViewStyleEnum.kShadedDrawingViewStyle ' DrawingViewStyleEnum.kShadedHiddenLineDrawingViewStyle ' DrawingViewStyleEnum.kFromBaseDrawingViewStyle ' Crée la vue de base avec le style ShadedDrawingViewStyle oBaseView = oSheet.DrawingViews.AddBaseView(refDoc, oPoint1, ViewScale, kFrontViewOrientation, DrawingViewStyleEnum.kShadedDrawingViewStyle) ' Crée une vue projetée avec le style FromBaseDrawingViewStyle et l'affiche à droite de la vue de base oView2 = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint2, DrawingViewStyleEnum.kFromBaseDrawingViewStyle, ViewScale) ' Crée une autre vue projetée avec le style FromBaseDrawingViewStyle et l'affiche au-dessus de la vue de base oView3 = oSheet.DrawingViews.AddProjectedView(oBaseView, oPoint3, DrawingViewStyleEnum.kFromBaseDrawingViewStyle, ViewScale) i += 1 ' Incrémente le compteur pour la vue Next End Sub

Visual Basic