Create 3D Bounding Box for Cut List Item Example (VB.NET)
This example shows how to create a 3D bounding box for a cut list
item in a weldment part.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open: install_dir\samples\tutorial\api\weldment_box3.sldprt.
' 2. Right-click the Cut list folder and select Update.
'
' Postconditions:
' 1. Expand the Cut-List-Item5 folder.
' 2. Select Bounding-Box_Cut-List-Item5.
' 3. Observe the sketch of the bounding box in the graphics area.
'
' NOTE: Because the model is used elsewhere, do not save changes when
closing it.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
modDocExt As
ModelDocExtension
Dim
boolstatus As
Boolean
Sub
main()
Part = swApp.ActiveDoc
modDocExt = Part.Extension
boolstatus = modDocExt.SelectByID2("Cut-List-Item5",
"SUBWELDFOLDER",
0, 0, 0, False,
0, Nothing,
0)
modDocExt.Create3DBoundingBox()
End
Sub
Public
swApp As
SldWorks
End
Class