Lesson 5.1 start code

Files

Associated model(s) Lesson 5.1 start code

Code

Option Explicit
    
Public Const strCompPath As String = "C:UsersKeithDesktopdrawer frontknob.SLDPRT"
Public swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2
Public swAssy As SldWorks.AssemblyDoc
Public swSelMgr As SldWorks.SelectionMgr
Public swFace As SldWorks.Face2
Public swDrawer As SldWorks.Component2
Public swKnob As SldWorks.Component2
Public swKnobFace As SldWorks.Entity
Public swDrawerFace As SldWorks.Entity
Public swDrawerEdge As SldWorks.Entity
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    Set swSelMgr = swModel.SelectionManager
    
    If swSelMgr.GetSelectedObjectType3(1, -1) <> swSelFACES Then
        MsgBox "Please select a face."
        End
    End If
    
    'Add the component
    
    'Get the drawer face
    
    'Get the full circle edge(s) from drawer face
    
    'Get the cylindrical face(s) from knob(s)
    
    'Add mates
        
End Sub