Hide Table of Contents

Set Components and Transforms for Interference Detection Example (VB.NET)

This example shows how to:

  • move an assembly component to an interfering position by replacing its transform.
  • detect interference.

This example also shows how to apply absolute transforms to all components in order to multiply by identity transforms, which results in the components remaining in their current positions during interference detection.

' Preconditions:
' 1. Verify that the specified assembly exists.
' 2. Copy and paste Main into SolidWorksMacro.vb of your macro.
' 3. Click Project > Add Class and copy and paste Class into Class1.vb.
' 4. Open the Immediate window.
' Postconditions:
' 1. Opens the specified assembly.
' 2. Gets the components of the assembly and their transforms.
' 3. Creates a new transform for Part1^AssemInterferenceDetection-2.
' 4. Sets the components and their transforms, using the existing
'    rotation and the translation from the assembly origin.
'    a. Gets the number of interferences.
'    b. Examine the graphics area at the Stop statement to visually 
'       verify the interferences, then press F5.
'    c. Programmatically verifies that the number of interferences
'       is as expected.
'    d. Gets whether:
'       * each returned interference is correct.
'       * the components remained in their starting positions during
'         interference detection.
'       * the components are at their starting positions.
' 5. Examine the Immediate window and graphics area.
' NOTE: Because the assembly is used elsewhere, do not save changes.
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
Partial Class SolidWorksMacro
    Dim colStartingPositions As Collection
    Public Sub main()
        Dim Class1 As New Class1
        Class1 = New Class1
        Dim expectedNumberofInterferences As Integer
        expectedNumberofInterferences = 2
        Dim expectedInterferenceVolumes As Collection
        expectedInterferenceVolumes = New Collection


        Dim expectedNumberOfInterferenceComps As Collection
        expectedNumberOfInterferenceComps = New Collection


        Dim bResult As Boolean
        bResult = True

        Dim swAssem As AssemblyDoc
        swAssem = OpenAssembly()

        Dim swInfrMgr As InterferenceDetectionMgr
        swInfrMgr = swAssem.InterferenceDetectionManager

        swInfrMgr.UseTransform = True
        Dim swComps(0 To 2) As Component2
        swComps(0) = swAssem.GetComponentByName("Part1^AssemInterferenceDetection-1")
        swComps(1) = swAssem.GetComponentByName("Part1^AssemInterferenceDetection-2")
        swComps(2) = swAssem.GetComponentByName("Part1^AssemInterferenceDetection-3")
        Dim swXfms(0 To 2) As MathTransform
        swXfms(0) = swComps(0).Transform2
        swXfms(1) = swComps(1).Transform2
        swXfms(2) = swComps(2).Transform2

        ' Replacement transform for Part1^AssemInterferenceDetection-2
        Dim dXfm(0 To 15) As Double

        ' Use existing rotation
        Dim vXfmCurrent As Object

        vXfmCurrent = swXfms(1).ArrayData
        dXfm(0) = vXfmCurrent(0) : dXfm(1) = vXfmCurrent(1) : dXfm(2) = vXfmCurrent(2)
        dXfm(3) = vXfmCurrent(3) : dXfm(4) = vXfmCurrent(4) : dXfm(5) = vXfmCurrent(5)
        dXfm(6) = vXfmCurrent(6) : dXfm(7) = vXfmCurrent(7) : dXfm(8) = vXfmCurrent(8)

        ' Translation from assembly origin
        dXfm(9) = 0.9 : dXfm(10) = 0.1 : dXfm(11) = 0
        dXfm(12) = 1
        dXfm(13) = 0 : dXfm(14) = 0 : dXfm(15) = 0 : dXfm(1) = 0 : dXfm(2) = 0

        Dim swMath As MathUtility
        swMath = swApp.GetMathUtility
        swXfms(1) = swMath.CreateTransform(dXfm)

        Dim lResult As Integer
        lResult = swInfrMgr.SetComponentsAndTransforms(swComps, swXfms)
        Debug.Print("Transforms applied:")
        If lResult = swSetComponentsAndTransformsStatus_e.swSetComponentsAndTransforms_Succeeded Then
            Debug.Print("  True")
            Debug.Print("  False: " & lResult & " vs. " & swSetComponentsAndTransformsStatus_e.swSetComponentsAndTransforms_Succeeded)
            bResult = False
        End If

        Dim actualNumberOfInterferences As Integer
        actualNumberOfInterferences = swInfrMgr.GetInterferenceCount
        Debug.Print("Number of interferences: ")
        Debug.Print("  " & actualNumberOfInterferences)

        ' Examine the graphics area to verify
        ' the interferences, then press F5    

        Dim bCorrectNumberofInterferences As Boolean
        bCorrectNumberofInterferences = expectedNumberofInterferences = actualNumberOfInterferences
        Debug.Print("Correct number of interferences:")
        If bCorrectNumberofInterferences Then
            Debug.Print("  True")
            Debug.Print("  False: " & actualNumberOfInterferences & " vs. " & expectedNumberofInterferences)
            bResult = False
        End If

        Dim bCorrectInterferences As Boolean
        bCorrectInterferences = VerifyInterferencesAgainstExpectation(swInfrMgr.GetInterferences, expectedInterferenceVolumes, expectedNumberOfInterferenceComps)
        Debug.Print("Correct interferences:")
        If bCorrectInterferences Then
            Debug.Print("  True")
            Debug.Print("  False")
            bResult = False
        End If


        Dim bBackToStartingPositions As Boolean
        bBackToStartingPositions = VerifyFinishingPositions()
        Debug.Print("Components back at starting positions:")
        If bBackToStartingPositions Then
            Debug.Print("  True")
            Debug.Print("  False")
            bResult = False
        End If
    End Sub

    Public Function OpenAssembly() As AssemblyDoc
        Dim docspec As DocumentSpecification
        Dim assemblyFile As String
        assemblyFile = "C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\samples\tutorial\api\AssemInterferenceDetection.sldasm"
        docspec = swApp.GetOpenDocSpec(assemblyFile)
        Dim swModel As ModelDoc2
        swModel = swApp.ActiveDoc
        swModel = swApp.OpenDoc7(docspec)
        OpenAssembly = swModel
    End Function

    Public Shared Function EqualWithinTolerance(ByVal A As DoubleByVal B As DoubleAs Boolean
        Const tolerance As Double = 0.00001
        Dim difference As Double
        difference = Math.Abs(A - B)
        EqualWithinTolerance = difference < tolerance
    End Function

    Public Sub RecordStartingPositions(ByVal swAssem As AssemblyDoc)
        colStartingPositions = New Collection
        Dim vComponents As Object
        vComponents = swAssem.GetComponents(True)
        If Not IsNothing(vComponents) Then
            Dim vComp As Object
            For Each vComp In vComponents
                Dim swComp As Component2
                swComp = vComp
                Dim position As Class1
                position = New Class1
        End If
    End Sub

    Public Function VerifyFinishingPositions() As Boolean
        Dim bResult As Boolean
        bResult = True
        Dim position As Class1 
        Debug.Print("Position of: ")
        For Each position In colStartingPositions
            If position.IsAtReferencePosition() Then
                Debug.Print("  " & position.Name & " has not moved")
                Debug.Print("  " & position.Name & " has moved")
                bResult = False
            End If
        VerifyFinishingPositions = bResult
    End Function

    Public Function VerifyInterferencesAgainstExpectation(ByVal vInterferences As ObjectByVal expectedVolumes As CollectionByVal expectedCompCounts As CollectionAs Boolean
        Dim bResult As Boolean
        bResult = True
        If IsNothing(vInterferences) Then
            Debug.Print("IInterferenceDetectionMgr::GetInterferences returned:")
            If expectedVolumes.Count = 0 Then
                Debug.Print("  Nothing as expected")
                Debug.Print("  Nothing unexpectedly")
                bResult = False
            End If
            Dim numInterferences As Integer
            numInterferences = UBound(vInterferences) - LBound(vInterferences) + 1
            If numInterferences <> expectedVolumes.Count Then
                Debug.Print("IInterferenceDetectionMgr::GetInterferences returned unexpected number of interferences: " & numInterferences & " vs. " & expectedVolumes.Count)
                bResult = False
            End If
            ' Cannot assume the same order
            ' Try to find matches for each returned interference
            Dim i As Integer 
            Debug.Print("Match found for calculated interference:")
            For i = LBound(vInterferences) To UBound(vInterferences)
                Dim swInterference As Interference
                swInterference = vInterferences(i)
                Dim volume As Double
                volume = swInterference.Volume
                Dim compCount As Integer
                compCount = swInterference.GetComponentCount
                Dim bFoundMatch As Boolean
                bFoundMatch = False
                Dim j As Integer
                For j = 1 To expectedVolumes.Count
                    If EqualWithinTolerance(expectedVolumes(j), volume) And (expectedCompCounts(j) = compCount) Then
                        bFoundMatch = True
                        Exit For
                    End If
                If bFoundMatch Then
                    Debug.Print("  " & i & ": Volume = " & Format(volume, "0.000000") & " & Component count = " & compCount)
                    Debug.Print("  " & i & ": Volume = " & Format(volume, "0.000000") & " & Component count = " & compCount)
                    bResult = False
                End If
            Dim k As Integer
            If expectedVolumes.Count > 0 Then
                For k = 1 To expectedVolumes.Count
                    Debug.Print("No match found for expected interference: Volume = " & Format(expectedVolumes(k), "0.000000") & " & Component count = " & expectedCompCounts(k))
            End If
        End If
        VerifyInterferencesAgainstExpectation = bResult
    End Function

    Public Sub SelectAllComponents(ByVal swAssem As AssemblyDoc)
        Dim swModel As ModelDoc2
        swModel = swAssem
        Dim vComponents As Object
        vComponents = swAssem.GetComponents(True)
        If Not IsNothing(vComponents) Then
            Dim vComp As Object
            For Each vComp In vComponents
                Dim swComp As Component2
                swComp = vComp
        End If
    End Sub 
    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks 
End Class
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports Macro1VBNET.vbproj.SolidWorksMacro
Public Class Class1
    Private swComp As Component2
    Private swReferenceTransform As MathTransform

    Public Sub RecordReferencePosition(ByVal swComponent As Component2)
        swComp = swComponent
        swReferenceTransform = swComp.Transform2
    End Sub

    Public Function IsAtReferencePosition() As Boolean
        Dim swCurrentTransform As MathTransform
        swCurrentTransform = swComp.Transform2
        Dim swProduct As MathTransform
        swProduct = swReferenceTransform.Multiply(swCurrentTransform.Inverse)
        Dim vProduct As Object
        vProduct = swProduct.ArrayData
        ' Require identity transform
        Dim bResult As Boolean
        bResult = EqualWithinTolerance(vProduct(0), 1)
        bResult = EqualWithinTolerance(vProduct(1), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(2), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(3), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(4), 1) And bResult
        bResult = EqualWithinTolerance(vProduct(5), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(6), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(7), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(8), 1) And bResult
        bResult = EqualWithinTolerance(vProduct(9), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(10), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(11), 0) And bResult
        bResult = EqualWithinTolerance(vProduct(12), 1) And bResult
        If Not bResult Then
            Debug.Print(Name & ":")
            Debug.Print(Format(vProduct(0), "0.000000") & vbTab & Format(vProduct(1), "0.000000") & vbTab & Format(vProduct(2), "0.000000"))
            Debug.Print(Format(vProduct(3), "0.000000") & vbTab & Format(vProduct(4), "0.000000") & vbTab & Format(vProduct(5), "0.000000"))
            Debug.Print(Format(vProduct(6), "0.000000") & vbTab & Format(vProduct(7), "0.000000") & vbTab & Format(vProduct(8), "0.000000"))
            Debug.Print(Format(vProduct(9), "0.000000") & vbTab & Format(vProduct(10), "0.000000") & vbTab & Format(vProduct(11), "0.000000"))
            Debug.Print(Format(vProduct(12), "0.000000"))
        End If
        IsAtReferencePosition = bResult
    End Function

    Public ReadOnly Property Name() As String
            Name = swComp.Name2
        End Get
    End Property
End Class

Back to top


Provide feedback on this topic

SOLIDWORKS welcomes your feedback concerning the presentation, accuracy, and thoroughness of the documentation. Use the form below to send your comments and suggestions about this topic directly to our documentation team. The documentation team cannot answer technical support questions. Click here for information about technical support.

* Required

Subject:   Feedback on Help Topics
Page:   Set Components and Transforms for Interference Detection Example (VB.NET)
*   I acknowledge I have read and I hereby accept the privacy policy under which my Personal Data will be used by Dassault Systèmes

Print Topic

Select the scope of content to print:


We have detected you are using a browser version older than Internet Explorer 7. For optimized display, we suggest upgrading your browser to Internet Explorer 7 or newer.

 Never show this message again

Web Help Content Version: API Help (English only) 2016 SP05

To disable Web help from within SOLIDWORKS and use local help instead, click Help > Use SOLIDWORKS Web Help.

To report problems encountered with the Web help interface and search, contact your local support representative. To provide feedback on individual help topics, use the “Feedback on this topic” link on the individual topic page.