tubolare iLogic "strani risultati"

Matteo Cappelli dis.CAD

Utente Standard
Professione: disegnatore
Software: Inventor / autocad
Regione: Emilia romagna
ciao
ho realizzato un piccolo iLogic su una parte, non capisco il motivo, ma l'aggiornamento dei dati avviene solo per alcuni paramentri... non capisco ! Chiedo gentilmente aiuto

aprire il file 3d, attivare il menù ilogic, cliccare su Modulo1 e selezionare i vari spessori
Cliccando su aggiorna, si attiva la regola "up_tubolare" ed i raccordi vengono aggiornati
Ma con mio stupore, solo gli spessori 2-4-5-8-10(in verde) vengono interpretati dall'ilogic e quindi aggiornano i raccordi

Mi potete aiutare ?

Grazie


tubolare iLogic2.jpg
 

Allegati

Catafratto

Utente Standard
Professione: Disegnatore/progettista
Software: Inventor 2020
Regione: Veneto
No, non so perché così funziona...
Il select case era il primo tentativo ma non cambiava niente, poi ho provato con questo doubleforequals ed è andata. Immagino arrotondamenti interni... ci guarderò.

Ciao!


Codice:
'RAPPORTO  SPESSORE  RAGGIATURE             
                        
'    SPESSORE        R.EST        R.INT   
                        
'    1,5                3        1,5   
'    2                3        1   
'    3                5        2   
'    4                6        2   
'    5                8        3   
'    6                8        2   
'    8                12        4   
'    10                15        5

Dim mySpessore As DoubleForEquals
mySpessore = Parameter.ValueForEquals("TI")


'MessageBox.Show(Parameter("TI"), "valore spessore")

Select Case mySpessore
    Case 1.5
        Parameter("RE") = 3 mm
        Parameter("RI") = 1.5 mm
    Case 2
        Parameter("RE") = 3 mm
        Parameter("RI") = 1 mm
    Case 3
        Parameter("RE") = 5 mm
        Parameter("RI") = 2 mm
    Case 4
         Parameter("RE") = 6 mm
        Parameter("RI") = 2 mm
    Case 5
        Parameter("RE") = 8 mm
        Parameter("RI") = 3 mm
    Case 6
        Parameter("RE") = 8 mm
        Parameter("RI") = 2 mm
    Case 8
        Parameter("RE") = 12 mm
        Parameter("RI") = 4 mm
    Case 10
        Parameter("RE") = 15 mm
        Parameter("RI") = 5 mm
    Case Else
End Select
'MessageBox.Show(Parameter("RE"),"valore RE")
'MessageBox.Show(Parameter("RI"), "valore RI")
    

MATERIALE_SCELTO = Parameter("MCCAD_MATERIALE")
iProperties.Material = MATERIALE_SCELTO

iProperties.Value("Custom", "MATERIALE") = "=<MATERIAL>" 'MATERIALE_SCELTO
ThisApplication.ActiveView.Update()
InventorVb.DocumentUpdate()
 

Matteo Cappelli dis.CAD

Utente Standard
Professione: disegnatore
Software: Inventor / autocad
Regione: Emilia romagna
Perfetto Grazie !
Avevo utilizzato "Select Case" ma gli facevo leggere direttamente Parameter("TI") senza "appoggiarlo alla variabile, preso da disperazione ho tentato la strada "IF"

Sei un mito, grazie per il link autodesk