Change parameter depending of view

[atomic.lex]

Hello there and happy new year !

I've tryied to change a parameter depending of view, unfortunately unsuccessful. Any ideas?

Dim oAsmCompDef As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition
Dim oCompOcc As Inventor.ComponentOccurrence 

oAsmCompDef.RepresentationsManager.DesignViewRepresentations.Item("min").activate
	Distance_A = 10
oAsmCompDef.RepresentationsManager.DesignViewRepresentations.Item("max").activate
	Distance_A = 15

All the best for you

Alex

[dgreatice]

Hi,

I'm try you code and work.

Can you provide screenshot?

and better all of you code insert to here.