Ilogic loop to excell problem

[nomé]

Hi InventorWizardz, 

I have a problem with the folowing script: 

Ivolume = iProperties.Volume/1000 '(in cm^3)GoExcel.CellValue("3rd Party:Embedding 2", "Blad1", "A2") = Ivolume
Parameter("HoogteVolumePercent") = 1
i = 1
If Parameter("HoogteVolumePercent") < 100 Then
    While (Parameter("HoogteVolumePercent") < 100)
        GoExcel.CellValue("3rd Party:Embedding 2", "Blad1", "C"&i) = Ivolume
        i = i + 1
        If i = 100 Then
            
            Exit While
        End If
    End While
End If
iLogicVb.UpdateWhenDone = True 

The purpose is to export the value of Ivolume at a certain percentage to an embedded Excel. But the when running this rule every cell has the same value.

I think Ilogic is writing the value after the completion of the rule. But I can't figue it out to get it to work.

In Attachements you can find a screenshot and the part (made in IV2013). 

Hope someone can help 

[VdVeek]

The problem you have is that the Parameter is not changing the part and updating it while runing the rule. When you begin your rule with:

Parameter.UpdateAfterChange = True

the parameter is updated after a change.

Rob.

[Dennisvercauteren]

Hi Rob, 

Before I posted my question, I also posted on the Autodesk General Discussions forum. My mistake 😉

Andrewiv rewrote the code, and used another solution. He declares the property Ivolume again.

This solution works perfect for me.  

Thanks for your suggestion !! 

Greeting Dennis 

http://forums.autodesk.com/t5/Inventor-General-Discussion/Ilogic-loop-to-excell/td-p/5210879

Ivolume = iProperties.Volume/1000 '(in cm^3)
GoExcel.CellValue("3rd Party:Embedding 2", "Blad1", "A2") = Ivolume

i = 1
If Parameter("HoogteVolumePercent") < 100 Then
	While (Parameter("HoogteVolumePercent") < 100)
		Parameter("HoogteVolumePercent") = i
		InventorVb.DocumentUpdate()
		Ivolume = iProperties.Volume/1000 '(in cm^3)
		GoExcel.CellValue("3rd Party:Embedding 2", "Blad1", "C"&i) = Ivolume
		i = i + 1
		If i = 100 Then
			
			Exit While
		End If
	End While
End If
iLogicVb.UpdateWhenDone = True

[philippe.leefsma]

Hi Dennis,

I'm glad that you solved it, please flag as solved as well.

Thanks,

Philippe.