添加组件到装配体
该示例演示了使用SOLIDWORKS API将组件添加到装配体树中的两种不同方法(单个组件添加或批量添加) labels: [添加组件, 装配体, 示例, solidworks api] redirect-from:
- /2018/03/solidworks-api-assembly-add-components.html
- /solidworks-api/document/assembly/add-components
该示例演示了使用SOLIDWORKS API将组件添加到装配体树中的两种不同方法。
- 传统的方式是通过SOLIDWORKS API的AddComponentX来添加组件。这种方式要求将模型加载到内存中,否则操作将失败。
- 更高级的方式是使用SOLIDWORKS API的AddComponents。该方法允许在不事先打开模型的情况下批量插入不同的组件。
Dim swApp As SldWorks.SldWorks
Dim swMathUtils As SldWorks.MathUtility
Dim swAssy As SldWorks.AssemblyDoc
Sub main()
Set swApp = Application.SldWorks
Set swMathUtils = swApp.GetMathUtility
Set swAssy = swApp.ActiveDoc
If Not swAssy Is Nothing Then
Dim comp1Path As String
Dim comp2Path As String
comp1Path = swApp.GetCurrentMacroPathFolder() & "\Part1.sldprt"
comp2Path = swApp.GetCurrentMacroPathFolder() & "\Part2.sldprt"
Dim swComp As SldWorks.Component2
'以下API调用将失败,因为需要将模型加载到内存中
Set swComp = swAssy.AddComponent4(comp1Path, "", 0, 0, 0)
Debug.Assert Not swComp Is Nothing
'以不可见方式加载模型
swApp.DocumentVisible False, swDocumentTypes_e.swDocPART
swApp.OpenDoc6 comp1Path, swDocumentTypes_e.swDocPART, swOpenDocOptions_e.swOpenDocOptions_Silent, "", 0, 0
swApp.DocumentVisible True, swDocumentTypes_e.swDocPART
'现在此API调用成功了
Set swComp = swAssy.AddComponent4(comp1Path, "", 0, 0, 0)
Debug.Assert Not swComp Is Nothing
Dim strCompNames(0) As String
Dim vTransformData As Variant
Dim vComps As Variant
strCompNames(0) = comp2Path
vTransformData = swMathUtils.CreateTransform(Empty).ArrayData
'如果使用此方法,则不需要将文档加载到内存中
vComps = swAssy.AddComponents(strCompNames, vTransformData)
Debug.Assert UBound(vComps) <> 1
Else
MsgBox "请打开或创建装配体"
End If
End Sub