2 Replies Latest reply on Oct 29, 2015 11:46 AM by Justin Lund

    Macro to grab a part number after a unique character.

    Justin Lund

      We have this great macro to grab the part number from a longer part name. It looks like this:




      Dim swApp As SldWorks.SldWorks


      Dim swModel As ModelDoc2




      Sub main()




          Set swApp = Application.SldWorks


          Set swModel = swApp.ActiveDoc




           swModel.DeleteCustomInfo ("PrtDashNumber")



           swModel.AddCustomInfo2 "PrtDashNumber", swCustomInfoText, Mid(swModel.GetTitle, 18, 4)




      End Sub




      We use it with a library feature to engrave a part. However, for each different job we have to change the two blue values shown above.


      The part number always appears after the first "-" dash in a part name. For example "XX15232_XX032-8888_XXXXXXXX XXXXXX_xxxx"


      It is also feasible that we could set a standard that all part numbers will have four digits.


      So, I am trying to make the macro grab the first four digits after the first occurrence of a "-".


      It seems like this is doable and I have found a few things that are close but not quite right.


      Any suggestions?