在装配体下插入零件宏程序

1.程序运行效果：

2.程序代码-窗体：代码放入新装配体框内进行执行

'装配体文档
Private Sub 新装配体_Click()
Dim swApp As SldWorks.SldWorks
  Set swApp = Application.SldWorks
  Dim fileerror As Long
  Dim filewarning As Long
  swApp.OpenDoc6 "D:\11111\YF001-03-304.SLDPRT", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning '打开YF001-03-304零件
  Dim swModel As SldWorks.ModelDoc2
  Set swModel = swApp.NewDocument("D:\UT规范\UT模板\模板\UT模型模板\装配体.asmdot", 0, 0#, 0#) '新建装配体，装配体模板路径，在设置-文件模板可知

Dim swAssy As SldWorks.AssemblyDoc
  Set swAssy = swModel
If 插入零件.Value = True Then
  swAssy.AddComponent5 "D:\11111\YF001-03-304.SLDPRT", swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0, 0, 0 '插入打开的零件YF001-03-304
End If
End Sub

3.程序代码-UI界面显示代码：点击宏程序让界面显示出来

Sub main()

连接新文件.Show '窗体命名.show
End Sub