AnsweredAssumed Answered

What's wrong in this

Question asked by Vincent Pomerleau on Jan 14, 2016
Latest reply on Jan 15, 2016 by Vincent Pomerleau

Hello!

I'm not really good at vb, do anyone see the problem in this:

Sub main()

 

 

    Dim swApp As SldWorks.SldWorks

    Dim swModel As SldWorks.ModelDoc2

    Dim swSelMgr As SldWorks.SelectionMgr

    Dim swFeat As SldWorks.Feature

    Dim cwDoc As camworkslib.cwDoc

    Dim cwSelMgr As camworkslib.CWSelectionMgr

    Dim millOperation As camworkslib.CWMillOperation

    Dim setupselected As Object

    Dim setup As Object

    Dim mirrorAxis As Object

    Dim axisbl As Boolean

   

        Set swApp = Application.SldWorks

        Set swModel = swApp.ActiveDoc

        Set swSelMgr = swModel.SelectionManager

        Set cw = New camworkslib.CWApp

        Set cwDoc = cw.IGetActiveDoc

       

        'Method to get the selected setup

       

        Set cwSelMgr = cwDoc.IGetSelectionMgr

        Set setupselected = cwSelMgr.GetSelectionsOfType(7, 1)

        If setupselected Is Nothing Then

            MsgBox "Please select a setup"

        End If

       

        'Mirror selected operations

   

        Set setup = setupselected.Item(0)

        Set Operations = setup.IGetEnumOperations

           

            For k = 0 To Operations.Count - 1

                Set currentOp = Operations.Item(k)

                axisbl = swModel.Extension.SelectByID2("MIRROR", "AXIS", 0, 0, 0, False, 0, Nothing, 0)

                Set mirrorAxis = swSelMgr.GetSelectedObject(1)

                Call millOperation.SetMirrorToolpath(True, False, mirrorAxis, True, False, 0, 0)

            Next k

   

    End Sub

 

Camworks is an addin that also have the API

When I call millOperation.SetMirrorToolpath , the error say that my object (mirroraxis) is empty

Outcomes