Ik heb een code die ervoor zorgt dat de browser name overgenomen word in de BOM onder part number en stock number.

Nu wil ik graag dat als ik de partnumber in vul in de BOM over genomen word in de browser name.

Op het moment dat er een zelfde browser name word geplaatst, wat niet word geaccepteerd in Inventor, zou er een volgnummer toegevoegd dienen te worden bv 200-22.1/700-22.2 enz.

<!--[if gte mso 9]> fficeDocumentSettings> fficeDocumentSettings> Normal 0 21 unctuationKerning /> false false false oNotPromoteQF /> NL X-NONE X-NONE ontGrowAutofit /> ontFlipMirrorIndents /> verrideTableStyleHps />

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

Ik weet niet waar de rare tussen text vandaan komt maar die hoort er niet bij

<!--[if gte mso 9]> fficeDocumentSettings> fficeDocumentSettings> Normal 0 21 unctuationKerning /> false false false oNotPromoteQF /> NL X-NONE X-NONE ontGrowAutofit /> ontFlipMirrorIndents /> verrideTableStyleHps />