I want to insert a part in a part - without replace the material (normal i need to deselect two boxes).

I can write a macro to insert the part from a dir - but I want to make the position (mate etc). I need to find out how to open the move dialog.

'MultiPart
'Choose part to add
'Part is selecetet - ready to move

Option Explicit

Public swApp As SldWorks.SldWorks
Public swModel As SldWorks.ModelDoc2

Sub main()

Dim Filter As String
Dim fileName As String
Dim fileConfig As String
Dim fileDispName As String
Dim fileOptions As Long

Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim myFeature As Object

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

Filter = "SOLIDWORKS Files (*.sldprt)|*.sldprt|All Files (*.*)|*.*|"
fileName = swApp.GetOpenFileName("File to Attach", "", Filter, fileOptions, fileConfig, fileDispName)
'MsgBox fileName
Set myFeature = swModel.InsertPart3(fileName, 65673, "Default")
 
boolstatus = swModel.Extension.SelectByID2(swModel.FeatureByPositionReverse(0).Name, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

End Sub