部品内の別々のコンポーネントの数量変更 - ilogic-

[Matteo Cappelli dis.CAD]

ciao
sapete come automatizzare con ilogic la impostazione sulla parte di distinta quantità in modo da passare da "ciascuno" a valore di fx parametri e cambio unità?



grazie

 

[Zac69]

non dico di avere la soluzione, ma per ora solo domande. esiste una regola per cui questa regola va applicata solo su alcuni componenti e su altri no? cosa distingue i componenti da calcolare in metri rispetto agli altri?

 

[Matteo Cappelli dis.CAD]

ciao
deve sostituire a qnt 1 pezzo della distinta tavola 2d, la lunghezza della catena di trasmissione scelta.
attualmente riesco a fare scrivere sulla variabile chiamata "lh" all'interno dei fx parametri della parte.ipt catena, la formula che determina la lunghezza .
devo però manualmente aprire la pagina di "impostazioni documento", cliccare sulla linguetta "distinta componenti" e selezionare le voci "lh" e unita "m" (vedi immagine post precedente)
grazie

 

[Catafratto]

codice vba leggermente adattato, dai miei test sembra funzionare.
myparameter è il nome del tuo parametro, l'unità di misura se la piglia in automatico.

dim opart as partdocument
opart = thisapplication.activedocument

dim oparameters as parameters
oparameters = opart.componentdefinition.parameters

dim omyparam as parameter
omyparam = oparameters.item("myparameter")
'omyparam.value = 200

call opart.componentdefinition.bomquantity.setbasequantity(kparameterbomquantity, omyparam)

 

[Catafratto]

non avevo notato l'unità di misura diversa...

    dim opart as partdocument
    opart = thisapplication.activedocument
    
    dim oparameters as parameters
    oparameters = opart.componentdefinition.parameters
    
    dim omyparam as parameter
    omyparam = oparameters.item("myparameter")
    'omyparam.value = 200
    
    call opart.componentdefinition.bomquantity.setbasequantity(kparameterbomquantity, omyparam)
    opart.componentdefinition.bomquantity.baseunits = "m"

 

[Matteo Cappelli dis.CAD]

ciao
innanzitutto grazie per il tempo che mi stai dedicando......
ne approfitto, ti allego il file, ho lanciato il tuo comando come regola ilogic ma , mi da un errore.
se puoi guardarci appena hai un po' di tempo
grazie sin da ora

 

[Cast16]

funziona da me (iv2020)

 

[Catafratto]

penso il problema fosse che si tratta di un parametro utente e che serve "scavare" un po' di più, a me va (ma anche prima, quindi incrocia le dita )

public sub main()
    dim opart as partdocument
    opart = thisapplication.activedocument
        
    dim oparameters as parameters = opart.componentdefinition.parameters
    dim omyuserparam as userparameter = oparameters.userparameters.item("lh")
    
    call opart.componentdefinition.bomquantity.setbasequantity(kparameterbomquantity, omyuserparam)
    opart.componentdefinition.bomquantity.baseunits = "m"

end sub

 

[Matteo Cappelli dis.CAD]

cavoli...
non funziona (inventor 2018)

 

[Catafratto]

io uso 2019...

prova a togliere i <public sub main()> e <end sub>;
oppure ecco la versione vba da cui ho adattato quella ilogic

public sub testbom()
    dim opart as partdocument
    set opart = thisapplication.activeeditobject
    
    dim oparameters as parameters
    set oparameters = opart.componentdefinition.parameters
    
    dim omyparam as parameter
    'set omyparam = oparameters.item("myparameter")
    'omyparam.value = 200
    dim ouserparameters as userparameters
    dim omyuserparam as userparameter
    
    set ouserparameters = oparameters.userparameters
    set omyuserparam = ouserparameters.item("lh")
    
    call opart.componentdefinition.bomquantity.setbasequantity(kparameterbomquantity, omyuserparam)
    opart.componentdefinition.bomquantity.baseunits = "m"

end sub

 

[Catafratto]

prova anche a settare codice vba nelle opzioni, magari è quello...ilogic migliora continuamente ma preferisco sempre l'editor ed il debugger di vba, per spartano che sia

 

[Matteo Cappelli dis.CAD]

prova anche a settare codice vba nelle opzioni, magari è quello...ilogic migliora continuamente ma preferisco sempre l'editor ed il debugger di vba, per spartano che sia

grande ! tramite vb funziona !

grazie 1000