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

  • aiuto su tubolare.zip
    101.4 KB · Views : 2

Catafratto

Utente Standard
professione: Disegnatore/progettista
software: Inventor 2024
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
 

Statistiche forum

Discussioni
59,343
Messaggi
506,807
Utenti registrati
111,663
Ultimo utente registrato
GEOSCAN

Utenti online

Top