Inventor : Renommer les paramètres

Inventor : Renommer les paramètres

Sébastien_G
Advocate Advocate
550 Visites
3 Réponses
Message 1 sur 4

Inventor : Renommer les paramètres

Sébastien_G
Advocate
Advocate

Bonjour à tous,

Ma question concerne Inventor, plus précisément Paramètres (fx).

À la fin d'une conception, les paramètres du modèle sont non consécutifs et ne commencent pas par d1.

Voir ma pièce jointe, dans mon cas, je commence à d14 pour finir à d849.

Paramètres.png

 

Existe-t-il un moyen de renommer les paramètres de modèle en commençant par d1 et en incrémentant de 1 ?

Je suis à votre écoute.

Sébastien

 

0 J'aime
Solutions acceptées (2)
551 Visites
3 Réponses
Replies (3)
Message 2 sur 4

ThomasB44
Mentor
Mentor

Salut @Sébastien_G 

Je ne connais pas de méthode prévue et automatique sur ce sujet.

Le seul moyen à mon sens est une petite routine iLogic.


Thomas
Mechanical Designer / Inventor Professional 2025
Inventor Professional EESignature

0 J'aime
Message 3 sur 4

gmassart
Advisor
Advisor
Solution acceptée

en VBA tu peux renommer les paramètres :

Dim oDoc as PartDocument
oDoc = ThisApplication.ActiveDocument
Dim oParameter As Parameter
For Each oParameter In oDoc.ComponentDefinition.Parameters
    If oParameter.Name = "d0" Then
        oParameter.Name = "test"
    End If
Next

Il faut dans la boucle initialiser valeur à 0 pour une variable et ensuite construire les "dxxx". Par contre je ne sais pas si l'ordre va être le bon.

Je suis curieux de comprendre l'intérêt par contre

Guillaume MASSART
AFFIVAL SAS
Inventor Pro 2022
EESignature

0 J'aime
Message 4 sur 4

Sébastien_G
Advocate
Advocate
Solution acceptée

Bonjour Guillaume,

En m'appuyant sur ton programme, voilà ce que j'ai mis en place dans mes gabarits *.ipt.

Sub Renommer_les_Paramètres_fx_à_partir_de_d0_et_incrémenter_de_1()
Dim oDoc As PartDocument
Dim oParameter As Parameter
Dim i As Long
    Set oDoc = ThisApplication.ActiveDocument
    i = 0
    For Each oParameter In oDoc.ComponentDefinition.Parameters
        If Left(oParameter.Name, 1) = "d" Then
            oParameter.Name = "d" + CStr(i)
            i = i + 1
        End If
    Next
End Sub

Et pour répondre à ta question, je travaille avec des nuages de points généré dans Excel que j'inserts dans un schéma de conception.

Ce qui a pour conséquences de créer des paramètres au-delà de d1000. 

Par la suite, j'utilise les paramètres pour créer mes pièces.

Donc, pour éviter de chercher dans une liste très longue et non consécutif, je préfère des paramètres clairs et qui se suivent.

Merci pour ta contribution.

Sébastien