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?

Outcomes