sujet Re: Inventor : Numéro de feuille automatique dans la mise en plan dans Inventor - Forum Français

Inventor : Numéro de feuille automatique dans la mise en plan

modelinEGJXB — Wed, 29 May 2024 08:19:00 GMT

Bonjour à tous,

Je souhaiterais récupérer le numéro de révision et le numéro de pièce de ma pièce afin de l'inclure dans le numéro de ma feuille de mise en plan

Voici mon fonctionnement actuel :

Lorsque je créé une pièce, je remplis un formulaire iLogic dans lequel j'entre (s'il y a) un numéro de révision et un numéro de pièce :

Ceux-ci sont liés avec "Numéro de révision" et "Numéro de pièce" dans les iPropriétés :

Lorsque j'ouvre ma mise en plan, les numéros sont automatiquement renseignés dans le cartouche :

Par la suite je renomme manuellement mon nom de feuille :

Serait-il possible de faire une règle iLogic pour remplir automatiquement chaque nom de feuille en fonction du numéro de pièce et du numéro de révision de chaque pièces ?

Merci d'avance pour vos propositions et bonne jounée,

Mathieu

Re: Inventor : Numéro de feuille automatique dans la mise en plan

modelinEGJXB — Wed, 29 May 2024 10:05:08 GMT

Dim oDrawDoc As Inventor.DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument
   

Dim oSheet As Sheet
oSheet = oDrawdoc.ActiveSheet

oSheet.Name = iProperties.Value("Project", "Part Number")

Voilà où j'en suis, j'arrive à changer le nom de la feuille avec le numéro de pièce de la mise en plan, mais je n'arrive toujours pas à récupérer le numéro de pièce propre à chaque feuille (Celui qui est inscrit dans mon cartouche...)

Re: Inventor : Numéro de feuille automatique dans la mise en plan

gmassart — Wed, 29 May 2024 11:42:47 GMT

La stratégie c'est de :

boucler sur toutes les feuilles (for each oSheet in ActiveDocument.sheets)
Chopper la première vue
Récupérer les informations du modèle lié à la première vue dont ton numéro de pièce et sa révision
Renommer la feuille (oSheet.Name = ...)

Re: Inventor : Numéro de feuille automatique dans la mise en plan

modelinEGJXB — Wed, 29 May 2024 13:12:43 GMT

Voilà après de longues conversation avec ChatGPT, le code permettant de numéroter les feuilles en fonction de leur numéro de pièce et de leur révision :

' Obtenez la référence au document actif Dim oDoc As Document oDoc = ThisApplication.ActiveDocument ' Vérifiez que le document actif est une mise en plan (DrawingDocument) If oDoc.DocumentType <> kDrawingDocumentObject Then MessageBox.Show("Ce script doit être exécuté sur un document de mise en plan (Drawing).", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If ' Obtenez la référence au document de mise en plan actif Dim oDrawingDoc As DrawingDocument oDrawingDoc = oDoc ' Itérez à travers chaque feuille de la mise en plan For Each oSheet As Sheet In oDrawingDoc.Sheets ' Itérez à travers chaque vue sur la feuille Dim sheetRenamed As Boolean sheetRenamed = False For Each oView As DrawingView In oSheet.DrawingViews ' Vérifiez si la vue a un document référencé If Not oView.ReferencedDocumentDescriptor Is Nothing Then ' Obtenez le modèle de document (part ou assembly) associé à la vue Dim oModelDoc As Document On Error Resume Next ' Pour éviter les erreurs lors de l'accès au document référencé oModelDoc = oView.ReferencedDocumentDescriptor.ReferencedDocument On Error GoTo 0 If Not oModelDoc Is Nothing Then ' Obtenez les iProperties du document modèle Dim oPropSet As PropertySet On Error Resume Next ' Pour éviter les erreurs lors de l'accès aux iProperties oPropSet = oModelDoc.PropertySets.Item("Design Tracking Properties") On Error GoTo 0 If Not oPropSet Is Nothing Then ' Récupérez la valeur de la propriété "Numéro de pièce" (Part Number) Dim partNumber As String On Error Resume Next ' Pour éviter les erreurs si la propriété n'existe pas partNumber = oPropSet.Item("Part Number").Value On Error GoTo 0 ' Récupérez la valeur de la propriété "Numéro de révision" (Revision Number) Dim revisionNumber As String revisionNumber = "" ' Essayez de récupérer la propriété "Numéro de révision" depuis les propriétés sommaires (Summary Information) Dim oSummaryPropSet As PropertySet On Error Resume Next oSummaryPropSet = oModelDoc.PropertySets.Item("Inventor Summary Information") If Not oSummaryPropSet Is Nothing Then On Error Resume Next revisionNumber = oSummaryPropSet.Item("Revision Number").Value On Error GoTo 0 End If ' Si la propriété de révision n'est toujours pas trouvée, utilisez une alternative If revisionNumber = "" Then On Error Resume Next revisionNumber = oPropSet.Item("Revision Number").Value On Error GoTo 0 End If ' Récupérez le nom du document modèle Dim modelDocName As String modelDocName = oModelDoc.DisplayName ' Affichez le numéro de pièce, le numéro de révision et le nom du document modèle ' MessageBox.Show("Feuille : " & oSheet.Name & vbCrLf & _ ' "Vue : " & oView.Name & vbCrLf & _ ' "Numéro de pièce : " & partNumber & vbCrLf & _ ' "Numéro de révision : " & revisionNumber & vbCrLf & _ ' "Nom du document modèle : " & modelDocName, _ ' "Informations de la vue", MessageBoxButtons.OK, MessageBoxIcon.Information) ' Renommez la feuille en utilisant le numéro de pièce If Not sheetRenamed And Not String.IsNullOrEmpty(partNumber) Then If String.IsNullOrEmpty(revisionNumber) Then oSheet.Name = partNumber sheetRenamed = True Else oSheet.Name = partNumber & "_" & revisionNumber sheetRenamed = True End If End If ' Quittez la boucle si la feuille a été renommée If sheetRenamed Then Exit For End If End If End If End If Next Next

Re: Inventor : Numéro de feuille automatique dans la mise en plan

gmassart — Wed, 29 May 2024 13:43:29 GMT

Ca a l'air correct mais à voir à l'exécution ce que ça donne.

Re: Inventor : Numéro de feuille automatique dans la mise en plan

gmassart — Wed, 29 May 2024 13:50:38 GMT

Dans le code tu as un "Exit Sub" ça sous entend que tu es dans un Sub (une instruction) qui n'apparaît pas dans le code

Donc rajoute au début un truc du genre : Sub fRenameSheet()

et à la fin : End Sub

Re: Inventor : Numéro de feuille automatique dans la mise en plan

ThomasB44 — Thu, 30 May 2024 07:18:01 GMT

Salut @modelinEGJXB

Le code retourné par ChatGPT est plutôt propre.

Puisque tu es dans l'environnement iLogic, il suffit de remplacer "Exit Sub" par "Return"

Une règle est déjà considérée comme une sorte de Function, que l'on peut également appeler.

En revanche, on ne peut pas utiliser "Exit Sub" sans "Sub xxx"

Comme ceci par exemple :

Re: Inventor : Numéro de feuille automatique dans la mise en plan

modelinEGJXB — Thu, 30 May 2024 09:12:12 GMT

Merci pour vos retours !

Exit sub a été remplacé par Return, et ça fonctionne,

Bonne journée !