CATIA二次开发(VBA)——清除所有自定义属性

做产品设计过程中，需经需要对装配或零件添加自定义的属性，用于保存BOM表信息。

自定义属性可以通过手动在每个产品或零件的”属性“右键菜单中完成，也可以通过VBA等二次开发方式自动化生成，前述文章介绍了自动化批量创建属性的方式，链接如下：

CATIA二次开发(VBA)——用户自定义属性创建、删除、修改

CATIA零件或产品的自定义属性如下：

功能函数：

Sub ClearUserDefineProperties(Byval prd As Product)
  Dim prms As Parameters
  Set prms = prd.UserRefProperties
  Dim prmCount As Integer
  prmCount = prms.Count
  If vbYes = MsgBox("确实要删除这" & prmCount & "个参数吗", vbYesNo + vbQuestion) Then
    Dim evp As Integer
    For evp = prmCount To 1 Step -1
      prms.Remove evp
    Next
    MsgBox "执行完成，还剩" & prms.Count & "个参数未被删除", vbExclamation
  End If
End Sub

调用方法及运行效果如下：

Sub CATMain()
  Dim prtDoc As PartDocument
  Set prtDoc = CATIA.ActiveDocument
  Dim prd As Product
  Set prd = prtDoc.Product
  ClearUserDefineProperties prd
End Sub