change quantity on separate components in the part - ilogic-

[Matteo Cappelli dis.CAD]

Hi.
do you know how to automate with ilogic the setting on the separate quantity part so as to switch from "each" to fx value parameters and unit change?
Thank you.

 

[Zac69]

I don't say I have the solution, but for now only questions. exists a rule for which this rule should only be applied on some components and on others not? what distinguishes the components to be calculated in meters compared to others?

 

[Matteo Cappelli dis.CAD]

Hi.
must replace to qnt 1 piece of the separate table 2d, the length of the transmission chain chosen.
I can currently write on the variable called "lh" within the fx parameters of the part.ipt chain, the formula that determines the length.
But I have to manually open the "document settings" page, click on the tab "different components" and select the "lh" and "m" items (see previous post image)
Thank you.

 

[Catafratto]

Vba code slightly adapted, from my tests it seems to work.
myparameter is the name of your parameter, the measuring unit if the lap automatically.

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]

I had not noticed the different measuring unit. . .

    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]

Hi.
First of all thank you for the time you are dedicating......
I take advantage of it, I attach the file, I launch your command as an ilogic rule but it gives me a mistake.
If you can look at us as soon as you have some time
thanks from now on

 

[Cast16]

works by me (iv2020)

 

[Catafratto]

I think the problem was that it is a user parameter and that it serves to "dig" a little more, to me goes (but also before, then crosses fingers

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]

Bullshit. . .
does not work (inventor 2018)

 

[Catafratto]

i use 2019.. .

try to remove the <public main()="" sub=""> and <end sub="">;
or here is the vba version from which i adapted that ilogic
</end></public>

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]

try also to set vba code in the options, maybe it is that...ilogic improves continuously but i always prefer vba editor and debugger, to spartano that it is

 

[Matteo Cappelli dis.CAD]

try also to set vba code in the options, maybe it is that...ilogic improves continuously but i always prefer vba editor and debugger, to spartano that it is

it works through vb!

thank you