Ilogic loop to excell

Ilogic loop to excell

Anonymous
Not applicable
495 Views
2 Replies
Message 1 of 3

Ilogic loop to excell

Anonymous
Not applicable

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. 

 

Hope someone can help 

0 Likes
Accepted solutions (1)
496 Views
2 Replies
Replies (2)
Message 2 of 3

andrewiv
Advisor
Advisor
Accepted solution

I modified your code to include an update before writing the mass to the "C" column and to also tell it to change the HoogteVolumePercent parameter to be the i value. This works for me

 

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

 

Andrew In’t Veld
Designer / CAD Administrator

Message 3 of 3

Anonymous
Not applicable

Thanks Andrew !

Your solution works perfect !

0 Likes