How To Modify Reference Value For Constraint Dimension In Sketch By Catia VBA

[NHI]

I would like to change reference value (driven or driving mode) for constraint dimension in sketch by vba catia.

Usually, we want to change reference value two method without automatic:

1. Double click constrains dimension.
2. Click right mouse and choose definition
And then the Constraint definition Box appears and select "Reference".

Now, I want to write Macro when i select the constraint dimension and run macro, it will be change the reference value.

Thanks for any help