I cant set swModel = swApp.ActiveDoc
Here is the code;
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.swpublished
Public Class Macro
Public Sub [command1]()
Dim CList_100 As String
Dim Ccount_100 As Integer
Dim nComponents As Integer
Dim nStart As Single
Dim bRet As Boolean
Dim swApp As SldWorks = CreateObject("Sldworks.application")
Dim swModel As SolidWorks.Interop.sldworks.ModelDoc2
Dim swAssy As SolidWorks.Interop.sldworks.AssemblyDoc
Dim swConf As SolidWorks.Interop.sldworks.Configuration
Dim swRootComp As SolidWorks.Interop.sldworks.Component2
swModel = swApp.ActivateDoc
swConf = swModel.GetActiveConfiguration
swRootComp = swConf.GetRootComponent3(True)
Debug.Print("File = " & swModel.GetTitle)
TraverseComponent swRootComp, 1
Debug.Print("Finished!")
End Sub
End Class
Here is the error message;
BC30455 Argument not specified for parameter âNameâ of 'Function ActivateDoc(Name As String) As Object