Uživatel odpovídá na příspěvek #3137:
objekt Product není problém. Problém je, pokud mám objekt Inertia z Body a tento objekt Inertia mi dává polohu těžiště k nule Partu. Jde mi o to, jak zjistit polohu těžiště Body v souřadnému systému Sestavy? Ev. polohu těžiště Partu vzhledem k sestavě? Zatím umím určit inertia pouze z Productu a z Body a Inertia z Body je vzhledem k středu Partu :o(

   Public Function GetProductInertia(ByVal iProdukt As Product) As Inertia

        'If successful, this Function will Return an Inertia object of Product

        'Otherwise, Nothing is returned (you should check the Return value)

        'Function For Product measuring - from website: http://v5vb.wordpress.com/2010/10/27/measuring-mass-inertia/

        'Mass, density, center of gravity, etc. can be obtained from Inertia object

        Dim objInertia As Inertia



        Try

            objInertia = CType(iProdukt.ReferenceProduct.GetTechnologicalObject("Inertia"), Inertia)

            Return (objInertia)

        Catch ex As Exception

            Return (Nothing)

        End Try

    End Function 'GetProductInertia



    Public Function GetBodyInertiaMeasure(ByVal iPart As Part, ByVal iBody As Body) As Inertia

        'If Function is successfully proceeded, this Function will Return an inertia object

        'Otherwise, Nothing is returned (you should check the Return value)

        'Function For body measuring - from website: http://v5vb.wordpress.com/2010/10/27/measuring-mass-inertia/

        'Mass, density, center of gravity, etc. can be obtained from Inertia object

        Dim objSPAWorkbench As SPAWorkbench

        Dim objInertia As Inertia



        Try

            objSPAWorkbench = CType(iPart.Parent.GetWorkbench("SPAWorkbench"), SPAWorkbench)

            objInertia = CType(objSPAWorkbench.Inertias.Add(iBody), Inertia)

            Return (objInertia)

        Catch ex As Exception

            Return (Nothing)

        End Try



    End Function 'GetBodyInertiaMeasure

Uživatel odpovídá na příspěvek #3139:
Jak zjistit polohu Partu v sestavě?

Uživatel odpovídá na příspěvek #3144:

Tak zakopaný pes je v tom, že pokud provedu přetypování z Product na Part a potom zpět na Product z Part, tak ztrácím informace o poloze. Takže tady mám problém. Jinak zde je moje pidi funkcička na určení polohy objektu Product, kopie z Helpu:

    Public Function ProductPosition(ByVal iProduct As Product) As Double()

         '' x axis components

        'iAxisComponentsArray(0) = 1.0

        'iAxisComponentsArray(1) = 0

        'iAxisComponentsArray(2) = 0.707

        '' y axis components

        'iAxisComponentsArray(3) = 0

        'iAxisComponentsArray(4) = 0

        'iAxisComponentsArray(5) = 0.707

        '' z axis components

        'iAxisComponentsArray(6) = 0

        'iAxisComponentsArray(7) = -0.707

        'iAxisComponentsArray(8) = 0.707

        '' origin point coordinates

        'iAxisComponentsArray(9) = 1.0

        'iAxisComponentsArray(10) = 2.0

        'iAxisComponentsArray(11) = 3.0



        Dim dblAxisComp(11) As Double

        Dim locAxisComponentsArray(11) As Object

        iProduct.Position.GetComponents(locAxisComponentsArray)

        For i As Integer = 0 To 11

            dblAxisComp(i) = CType(locAxisComponentsArray(i), Double)

        Next i

        Return (dblAxisComp)

    End Function 'ProductPosition