I want to be able to change the item numbers of specific parts using a macro. I have been able to record this macro. So before running it, I neet to select the BOM on the drawing sheet first. And it works for the first item number change. But as soon as I run this sub a second time inside the main code, it won't work because the selection of the BOM is lost. How do I keep the BOM selected? Or is there another way?
Thank you in advance!
This was recorded by selecting the BOM and then double-clicking the respective item number I wanted to change and entering a random number. Then I modified it to have a PublicSub.
Public Sub ChangePOS(Row As Integer, NEW_POS As Integer)
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim BOM As Object
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set BOM = swModel.SelectionManager.GetSelectedObject6(1, -1)
'changes the existing item number (1st value = row, 2nd value = column)
BOM.Text(Row, 0) = NEW_POS