Degrees of Freedom - Macro

[Anonymous]

Hello Team,

Greetings!

Can anybody help me with a macro / or the method on how to get into the Degrees of Freedom.

I would like take the count of Translation and Rotation counts

Thanks in Advance!

Alex

[bradeneuropeArthur · Accepted solution]

Hi,

Yes this is possible:

Public Sub ComponentsWithDegreesOfFreedom()
        Dim oActiveAssDoc As AssemblyDocument
        Set oActiveAssDoc = ThisApplication.ActiveDocument
        
        Dim oTranslationCount As Long
        Dim oTranslationVector As ObjectsEnumerator
        Dim oRotationCount As Long
        Dim oRotationVector As ObjectsEnumerator
        Dim oCenterPoint As Point

        Dim oComponentOccurence As ComponentOccurrence

        For Each oComponentOccurence In oActiveAssDoc.ComponentDefinition.Occurrences
            oComponentOccurence.GetDegreesOfFreedom oTranslationCount, oTranslationVector, oRotationCount, oRotationVector, oCenterPoint
            
            MsgBox oTranslationCount
            MsgBox oTranslationVector.Count
            MsgBox oRotationCount
            MsgBox oRotationVector.Count
            MsgBox oCenterPoint.x
            MsgBox oCenterPoint.Y
            MsgBox oCenterPoint.Z

            'Optional ground components
            If oComponentOccurence.Grounded = False Then
                    oComponentOccurence.Grounded = True
            End If
        Next
    End Sub

[Anonymous]

Hi,

Thanks a lot. Now I understand the mistake what I was doing wrong..

I was adding the Bracket here all the time, as I am not aware.

    oComponentOccurence.GetDegreesOfFreedom (oTranslationCount, oTranslationVector, oRotationCount, oRotationVector, oCenterPoint)
            
Where my code was always failing at this line. I couldn't understand the method while reading some API and documents related to it.       

Basically I am not a programmer, new bee to this VB as well, I am managing a CAD team, and thought of doing some automation, so started in own interest.

But it was quite fun doing Automation with Inventor.

Thanks a lot for saving my time

Regards

Alex

[Curtis_Waguespack]

just adding an ilogic version of this that lists the DOF for under constrained components, in case it helps someone else in the future:

Dim oActiveAssDoc As AssemblyDocument
oActiveAssDoc = ThisApplication.ActiveDocument

Dim oTranslationCount As Long
Dim oTranslationVector As ObjectsEnumerator
Dim oRotationCount As Long
Dim oRotationVector As ObjectsEnumerator
Dim oCenterPoint As Point
Dim MyArrayList As New ArrayList

Dim oComponentOccurence As ComponentOccurrence

For Each oComponentOccurence In oActiveAssDoc.ComponentDefinition.Occurrences
    oComponentOccurence.GetDegreesOfFreedom _
	(oTranslationCount, oTranslationVector, oRotationCount, oRotationVector, oCenterPoint)
    
	If oTranslationCount > 0 Or oRotationCount > 0 Then
		
		MyArrayList.add(oComponentOccurence.Name _
		& " :   (" & oTranslationCount + oRotationCount & ") degrees of freedom remaining")

	End If

Next

InputListBox("Displaying components with one or more degrees of freedom", _
MyArrayList, "", "ilogic", "Free moving components")

[basile.sciaudeau]

Good afternoon everyone,

I'm very interested about this topic but I don't want to count the number of Degree Of Freedom.

My goal is to know which axes or which rotation are degree of freedom.

Is someone can help me ?

Thank you in advance.