MacroFeature to create new bodies in a part
MacroFeature to create new bodies in a part
(OP)
The following macro copies a body in a part and it works fine. But when I add these lines of code into the rebuild function of a MacroFeature, the solidbody "Extrude6" is selected but it is not copied, so the last line does not work. I would apprecitate any help to make this work inside the MacroFeature.
Sub copy_body()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
swModel.Extension.SelectByID2 "Extrude6", "SOLIDBODY", 0, 0, 0, True, 1, Nothing, 0
swModel.FeatureManager.InsertMoveCopyBody2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, True, 1
End Sub
Sub copy_body()
Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.ActiveDoc
swModel.Extension.SelectByID2 "Extrude6", "SOLIDBODY", 0, 0, 0, True, 1, Nothing, 0
swModel.FeatureManager.InsertMoveCopyBody2 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, True, 1
End Sub





