SOLIDWORKS宏以更改模式中组件的配置特定属性
此宏示例演示了如何使用SOLIDWORKS API更改以下配置特定属性。
- 使用与模式种子组件相同的配置
- 使用命名配置
IAssemblyDoc::CompConfigProperties5 SOLIDWORKS API用于一次修改所选组件的多个属性。
在模式的实例组件中(例如,驱动模式驱动模式)
Enum SeedCompConfigOpts_e
UseSameConfigAsPatternSeed
UseNamedConfiguration
End Enum
Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc
Sub main()
Set swApp = Application.SldWorks
Set swAssy = swApp.ActiveDoc
Dim swComp As SldWorks.Component2
Set swComp = swAssy.SelectionManager.GetSelectedObject6(1, -1)
If Not swComp Is Nothing Then
'将使用命名配置设置为“Config1”
SetConfigSpecProps swComp, SeedCompConfigOpts_e.UseNamedConfiguration, "Config1"
Stop
'将使用与模式种子组件相同的配置
SetConfigSpecProps swComp, SeedCompConfigOpts_e.UseSameConfigAsPatternSeed
Else
MsgBox "请选择组件"
End If
End Sub
Sub SetConfigSpecProps(comp As SldWorks.Component2, opts As SeedCompConfigOpts_e, Optional namedConf As String = "")
comp.Select4 False, Nothing, False
Dim suppOpts As Long
Dim solveOpts As Long
Dim isVisible As Boolean
Dim exlFromBom As Boolean
Dim isEnv As Boolean
Dim useNamedConf As Boolean
Dim refConfName As String
suppOpts = comp.GetSuppression()
solveOpts = comp.Solving
If solveOpts = -1 Then
'注意:对于零件组件,这将是-1,但如果传递-1,CompConfigProperties5将失败
solveOpts = swComponentSolvingOption_e.swComponentRigidSolving
End If
isVisible = comp.Visible
exlFromBom = comp.ExcludeFromBOM
isEnv = comp.isEnvelope
Select Case opts
Case SeedCompConfigOpts_e.UseSameConfigAsPatternSeed
useNamedConf = False
Case SeedCompConfigOpts_e.UseNamedConfiguration
useNamedConf = True
refConfName = namedConf
End Select
swAssy.CompConfigProperties5 suppOpts, solveOpts, isVisible, useNamedConf, refConfName, exlFromBom, isEnv
End Sub