Need to assign X, Y, X offset (0.000) and apply ground constraint

[RoyWickrama_RWEI]

In my skelton modelling assemblies, for all possible parts and assemblies, I assign X, Y and Z offsets zero and then ground - from within Occurance tab of iProperties tool pallet. I like to do the same with an iLogic for which I request help.

Autodesk Inventor - 2014

Thanks.

Best Regards.

[adam.nagy · Accepted solution]

Hi,

If I understand you correctly then this should help:
http://adndevblog.typepad.com/manufacturing/2014/10/set-the-offset-of-components-to-zero-and-ground-...

Cheers,

[RoyWickrama_RWEI · Accepted solution]

Hi Adam Nagi,

Dim doc As AssemblyDocument
doc = ThisApplication.ActiveDocument

Dim tr As TransientGeometry
tr = ThisApplication.TransientGeometry

Dim occ As ComponentOccurrence
For Each occ In doc.ComponentDefinition.Occurrences
    ' If it's suppressed we cannot do
    ' anything with it
    If Not occ.Suppressed Then
        Call occ.SetTransformWithoutConstraints(tr.CreateMatrix())
        occ.Grounded = True
    End If
Next

Shown above is the code (as is) per your guidance. Thanks a lot. That is 100% what I need currently. It is working so nice and is definitely a great help on my huge-assembly skeleton modelling.

Best Regads;

Roy Wickrama

Autodesk Inventor - 2014 & Vault Basic 2014