I have a macro that goes through the cut list and saves each body as a new part. I am trying to figure out a way to rename the solid body in the cutlist to the name i used for the new parts.
Here is my code:
SolidworksApi macrosDim swApp As Object
Dim Part As Object
Dim Part1 As SldWorks.PartDoc
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim bret As Boolean
Dim i As String
Dim fname As String
Sub main()
Response = MsgBox("You must rename the 'Structural Member' feature to 'Flume' for this macro to work correctly. Continue?", vbYesNo, "Feature Name Check")
If Response = vbYes Then ' User chose Yes.
GoTo Start
Else ' User chose No.
End
End If
Start:
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
i = 1
boolstatus = True
While boolstatus = True
boolstatus = Part.Extension.SelectByID2("Flume[" + i + "]", "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0)
Set Part = swApp.ActiveDoc
Set Part1 = Part
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 21
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
fname = i + ".sldprt"
bret = Part1.SaveToFile2(fname, 1, 1, 0)
swApp.CloseDoc fname
i = i + 1
boolstatus = Part.Extension.SelectByID2("Flume[" + i + "]", "SOLIDBODY", 0, 0, 0, False, 0, Nothing, 0)
Wend
End Sub