Display Temporary Body Example (VBA)

This example shows how to display a temporary body.

 

'-------------------------------------------------

'

' Preconditions: Assembly is open that contains

'                a component called Box-1@Assem.

'

' Postconditions: Temporary body of the component

'                is displayed.

'

'-------------------------------------------------

Option Explicit

 

Sub main()

 

    Dim swApp As SldWorks.SldWorks

    Dim Part As SldWorks.ModelDoc2

    Dim Body As SldWorks.body2

    Dim BodyCopy As SldWorks.body2

    Dim PartDoc As SldWorks.PartDoc

    Dim boolstatus As Boolean

    Dim Component As SldWorks.Component2

    Dim MathUtility As SldWorks.MathUtility

    Dim MathXform As SldWorks.MathTransform

    Dim Xform(15) As Double

    Dim vXform As Variant

    Dim retval As Long

    

    Xform(0) = 1#

    Xform(1) = 0#

    Xform(2) = 0#

    

    Xform(3) = 0#

    Xform(4) = 1#

    Xform(5) = 0#

    

    Xform(6) = 0#

    Xform(7) = 0#

    Xform(8) = 1#

    

    Xform(9) = 0.15

    Xform(10) = 0#

    Xform(11) = 0#

    

    Xform(12) = 1#

    

    Xform(13) = 0#

    Xform(14) = 0#

    Xform(15) = 0#

    

    vXform = Xform

    

    Set swApp = Application.SldWorks

    Set Part = swApp.ActiveDoc

    Set MathUtility = swApp.GetMathUtility

    Set MathXform = MathUtility.CreateTransform(vXform)

    

    boolstatus = Part.Extension.SelectByID2("Box-1@Assem", "COMPONENT", 0, 0, 0, False, 0, Nothing, swSelectOptionDefault)

    Set Component = Part.SelectionManager.GetSelectedObjectsComponent3(1, 0)

    Set Body = Component.GetBody

    Set BodyCopy = Body.Copy

    BodyCopy.ApplyTransform MathXform

    

    retval = BodyCopy.Display3(Component, 255, swTempBodySelectable)

    Debug.Print retval

    

    Stop

 

End Sub