I am writing a macro to set a few properties of the cut list items.
Pre conditions : a few cut list items are selected.
Post conditions:
1. Boundary boxes are created.
2. Bounding Box Width and length are found
3. Description is set
SolidworksApi macrosOption Explicit
Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swCustPropMgr As SldWorks.CustomPropertyManager
Dim swFeat As SldWorks.Feature
Dim selComp As Component2
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim i As Integer
Dim iCount As Integer
Dim bool As Boolean
Dim valout As String
Dim strValue(7) As String
Dim Counter As Integer
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
iCount = swSelMgr.GetSelectedObjectCount2(-1)
For i = 0 To iCount - 1
Set selComp = swSelMgr.GetSelectedObjectsComponent4(i + 1, -1)
MsgBox (selComp.Name2)
bool = swModel.Extension.SelectByID2(selComp.Name2, "SUBWELDFOLDER", 0, 0, 0, False, 0, Nothing, 0)
swModel.Extension.Create3DBoundingBox
Counter = Counter + 1
Set swCustPropMgr = swFeat.CustomPropertyManager
swCustPropMgr.Get4 "Bounding Box Width", False, strValue(0), strValue(1)
swCustPropMgr.Get4 "Bounding Box Length", False, strValue(2), strValue(3)
swCustPropMgr.Set2 "Description", "Bar" & Counter
If strValue(0) <= 3.18 And strValue(0) >= 3.13 Then
MsgBox (strValue(0))
End If
Next i
End Sub