solidworks vba 装配体中插入零件宏有问题

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

' Insert Component

Dim AssemblyTitle As String

AssemblyTitle = Part.GetTitle

Dim tmpObj As ModelDoc2

Dim errors As Long

Set tmpObj = swApp.OpenDoc6("D:\API\示例\另存示例\吊螺母.SLDPRT", 1, 32, "", errors, longwarnings)

Set Part = swApp.ActivateDoc3(AssemblyTitle, True, 0, errors)

Dim swInsertedComponent As Component2

Set swInsertedComponent = Part.AddComponent5("D:\API\示例\另存示例\吊螺母.SLDPRT", 0, "", False, "",

-1.08500732334742, -3.37566176370352E-03, 3.70858520507814)

swApp.CloseDoc "D:\API\示例\另存示例\吊螺母.SLDPRT"

Dim TransformData() As Double

ReDim TransformData(0 To 15) As Double

End Sub

执行到 Set swInsertedComponent = Part.AddComponent5 这一行时显示执行错误438 对象不支持该属性或方法？是少什么引用文件？这个宏是solidworks录制的，无修改！

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答

本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。

​​​​因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。