I've recently been given a code by Bobvdd on this forum,thanks again
The code works perfectly, I just went on with making my test installation plan of ceiling tiles and would like to know whether the following can be done.
I want to place the panels in an assy and then in the BOM change the part numbers.
The number consists of three digits - two digits.(700-22)
Now I want the part number,700-22, being taken automatically in the browser name and the first three digits to stock number.
So the reverse of the previously received code.
If part numbers are the same they can givven a following number, 700-22.1,700-22.2 and so on.
Prevous code:
doc = ThisDoc.Document
Dim occ As Object
For Each occ In doc.ComponentDefinition.Occurrences
browsername = Split(occ.Name,":")
iProperties.Value(occ.Name, "Project", "Part Number") = browsername(0)
iProperties.Value(occ.Name,"Project", "Stock Number") = Mid(browsername(0),1,3)
Next occ