自定义属性宏程序

宏程序包含：窗体代码＋模块代码

窗体代码：执行不同的命令

模块代码：显示窗体，也就是UI界面

  1.程序运行效果：

 2.程序窗体代码：

Private Sub cmdNewModel_Click()
  Dim swApp As SldWorks.SldWorks
  Dim swModel As SldWorks.ModelDoc2
  
  Set swApp = Application.SldWorks
  Set swModel = swApp.ActiveDoc
  ' Check to see if a document is loaded
  If swModel Is Nothing Then
    swApp.SendMsgToUser2 "请打开一个零件/装配体/工程图", swMbStop, swMbOk
    Exit Sub
  End If

 If 自定义属性.Value = True Then
    Dim retval As Long

  ' retval = swModel.Extension.CustomPropertyManager("").Add3("MyInfo", swCustomInfoText, "MyData", swCustomPropertyDeleteAndAdd)

    Dim custPropMan As CustomPropertyManager
      

    Set custPropMan = swModel.Extension.CustomPropertyManager("")
    retval = custPropMan.Add3("名称", swCustomInfoText, "$PRP:""SW-File Name""", swCustomPropertyDeleteAndAdd)           '自定义内容
    retval = custPropMan.Add3("图号", swCustomInfoText, "YF001-01-101", swCustomPropertyDeleteAndAdd)     '自定义内容
    retval = custPropMan.Add3("材料", swCustomInfoText, "Al6061", swCustomPropertyDeleteAndAdd)           '自定义内容
    retval = custPropMan.Add3("表面处理", swCustomInfoText, "亮银喷砂氧化", swCustomPropertyDeleteAndAdd) '自定义内容
    retval = custPropMan.Add3("尺寸", swCustomInfoText, "100x100x12", swCustomPropertyDeleteAndAdd)       '自定义内容
    retval = custPropMan.Add3("质量", swCustomInfoText, """SW-Mass@@默认@$PRP:""SW-File Name"".SLDPRT""", swCustomPropertyDeleteAndAdd)    '自定义内容
  End If
End Sub