2 Replies Latest reply on Dec 2, 2016 8:15 AM by Mike Bosscher

    How do I make a VBA script write to a file custom property?

    Mike Bosscher

      I'm trying to write a custom property that represents whether a file passed or failed a design checker task. I'd then be able to use this custom property to make a decision on whether to run the convert task and release the document, or reject it and send the user a notification.

      I'm trying to write the custom property at the file level, but so far I can only seem to write it to a configuration specific custom property (I'm relatively new at this whole macro thing....).

      Rather than get to involved in the whole design checker concept, I wanted to isolate this issue for the purpose of trouble shooting, so I put together a short macro whose only purpose was to write a custom property. Here's what I've got so far;


      ' Preconditions:
      ' 1. Open a part document.
      ' Postconditions:
      ' 1. Adds a date custom property to the part's configuration.

      Option Explicit

      Dim swApp As SldWorks.SldWorks
      Dim swModel As SldWorks.ModelDoc2
      Dim config As SldWorks.Configuration
      Dim cusPropMgr As Object
      Dim lRetVal As Long
      Sub main()

      Set swApp = Application.SldWorks

      Set swModel = swApp.ActiveDoc

      Set config = swModel.GetActiveConfiguration
      Set cusPropMgr = config.CustomPropertyManager


      lRetVal = cusPropMgr.Add3("DesignChecker", swCustomInfoType_e.swCustomInfoText, "Failed", swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)


      End Sub



      Any ideas? I'm sure it's relatively simple, but my brain's just not cooperating at the moment..