Flexible/Rigid Sub-Assembly - CATIA VBA

[Jegsaran]

I'm working on a macro which copy/paste a product into a new product document and constrain it.
Whenever I paste the product in an assembly in new product document it changes the sub-assy into flexible sub-assembly.

I tried Catia.StartCommand("Flexible/Rigid Sub-Assembly"). But if the sub-assy is rigid, it changes to flexible.
All I want is to check whether the sub-assy flexibe/rigid. If flexible want to change as rigid.

 

[romaleee]

You could check it with something like this::

Dim constraints1 As Constraints
Set constraints1 = oProd.ReferenceProduct.Connections("CATIAConstraints")
Dim constraints2 As Constraints
Set constraints2 = oProd.Connections("CATIAConstraints")
Dim constraint1 As Constraint
Dim constraint2 As Constraint
Set constraint1 = constraints1.Item(1)
Set constraint2 = constraints2.Item(1)
If constraint1.Name = constraint2.Name Then
    'rigid
Else
    'flexible
End If

It's true that all your Assemblies need constraints for upper code to work, but I belive that they do have them.

 

[Jegsaran]

Before applying the constraint I need to change the assembly as Rigid,
else the sub-assy would be in a wrong location.

 

[romaleee]

The idea is to check the name of first constraint inside newly inserted subassembly. If the product is flexible, all the constraint names inside it get index ".1". Ergo if a constraint name inside certain product instance is different from the name of the same constraint inside given referenceproduct, then the product instance is flexible.

edit:

If you don't have any constraints inside inserted subassembly, you can always create one (fix first part inside subassembly) and delete it after "check".