AnsweredAssumed Answered

Macro to grab a part number after a unique character.

Question asked by Justin Lund on Oct 28, 2015
Latest reply on Oct 29, 2015 by 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?