AnsweredAssumed Answered

Selecting sketch segment from a user form

Question asked by Harold Black on Apr 20, 2018
Latest reply on Apr 24, 2018 by Harold Black

I have a user form where the user needs to select a sketch segment. Once selected, you click on accept and some calculations are performed. I'm having the hardest time figuring out the correct way to code this. Below is my first attempt taking some bits of code from a different example I found online.

 

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swModelDocExt               As SldWorks.ModelDocExtension

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swSketch                    As SldWorks.Sketch

    Dim seg_selection               As SldWorks.SketchSegment

 

    'Make classes to listen for events

    Dim WithEvents swDraw As SldWorks.DrawingDoc

    Dim WithEvents swPart As SldWorks.PartDoc

    Dim WithEvents swAssm As SldWorks.AssemblyDoc

 

 

Sub UserForm1_Initialize()

 

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swSketchMgr = swModel.SketchManager

    Set swSketch = swModel.SketchManager.ActiveSketch

    swModel.SetAddToDB True

   

    If Not swModel Is nothng Then

        Select Case swModel.GetType

            Case swDocumentTypes_e.swDocPART

                Set swPart = swModel

            Case swDocumentTypes_e.swDocASSEMBLY

                Set swAssm = swModel

            Case swDocumentTypes_e.swDocDRAWING

                Set swDraw = swModel

        End Select

        Set swSelMgr = swModel.SelectionManager

    Else

        MsgBox "Please open the document"

    End If

   

End Sub

 

Sub HandleSelection()

 

     While swSelMgr.GetSelectedObjectCount < 1

          DoEvents

     Wend

     Set seg_selection = swSelMgr.GetSelectedObject6(-1)

 

End Sub

    

Sub SomeCalcs( swSelSpline as SldWorks.SketchSegment)

 

     boolstatus=GetSplineEndPoints(swSelSpline)

     'rest of code in here is for calculations

 

End Sub

 

Function GetSplineEndPoints(segment as SldWorks.SketchSegment) as Boolean

     dim swCurve                                             as SldWorks.Curve

     set swCurve = segment.GetCurve         

End Function

 

I get an error saying

 

Object variable or With block variable not set, pointing to this line set swCurve = segment.GetCurve

I defined swCurve and segment is defined in the Function. Some how my code is not seeing my selection.

Outcomes