使用宏命令，将当前零件转为扣件。

' 主程序入口

Sub main()

  ' 获取当前运行的SolidWorks应用程序实例

  Set swApp = Application.SldWorks

   

  ' 获取当前激活的零件文档

  Set Part = swApp.ActiveDoc

   

  ' 获取当前文档的选择管理器，用于处理用户选择的对象

  Set sMgr = Part.SelectionManager

   

  ' 获取用户选择的第一个组件对象

  ' 参数1表示第一个选择的对象，-1表示不检查选择状态

  Set swComp = sMgr.GetSelectedObjectsComponent4(1, -1)

  ' 检查是否有选中的组件

  If swComp Is Nothing Then

    ' 没有选中组件时，获取当前激活的配置名称

    Configuration = Part.GetActiveConfiguration().Name

     

    ' 给当前配置添加自定义属性"IsFastener"，类型为数字，值为1

    ' 该属性通常用于标识此零件是否为紧固件

    Part.AddCustomInfo3 Configuration, "IsFastener", swCustomInfoNumber, 1

     

    ' 保存当前文档

    Part.Save

  Else

    ' 有选中组件时，获取该组件对应的模型文档

    Set swPartDoc = swComp.GetModelDoc2

     

    ' 获取该组件文档的当前激活配置名称

    swPartDocName = swPartDoc.GetActiveConfiguration().Name

     

    ' 给选中组件的当前配置添加自定义属性"IsFastener"，类型为数字，值为1

    swPartDoc.AddCustomInfo3 swPartDocName, "IsFastener", swCustomInfoNumber, 1

     

    ' 保存组件文档

    swPartDoc.Save

  End If

End Sub