Allows access to slicing tool data.
.NET Syntax
Visual Basic (Declaration) | |
---|
Public Interface ISlicingData |
C# | |
---|
public interface ISlicingData |
C++/CLI | |
---|
public interface class ISlicingData |
Example
'VBA
'Preconditions:
' 1. Open Public_Documents\SOLIDWORKS\SOLIDWORKS 2020\samples\tutorial\api\cube.sldprt.
' 2. Change units to MKS.
' 3. Open the Immediate window.
'Postconditions:
' 1. Selects Front Plane as the first slicing plane.
' 2. Gets the default slicing parameters.
' 3. Specifies new slicing parameters.
' 4. Performs slicing and adds Slice1 to the FeatureManager design tree.
' 5. Inspect the graphics area and the Immediate window.
' NOTE: Because the model is used elsewhere, do not save changes to it.
'===================================================
Dim swApp As SldWorks.SldWorks
Dim modDoc As SldWorks.ModelDoc2
Dim swFeatMgr As SldWorks.FeatureManager
Dim sliceData As SldWorks.SlicingData
Dim boolstatus As Boolean
Dim errors As Long
Dim vars As Variant
Option Explicit
Sub main()
Set swApp = Application.SldWorks
Set modDoc = swApp.ActiveDoc
Set swFeatMgr = modDoc.FeatureManager
' Select the first slicing plane
boolstatus = modDoc.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
' Get default slicing parameters
Set sliceData = swFeatMgr.GetSlicingData()
Debug.Print "Default slicing values:"
Debug.Print ""
Debug.Print "Bounding box direction 1: " & sliceData.GetBoundingBoxDirection1
Debug.Print "Bounding box direction 2: " & sliceData.GetBoundingBoxDirection2
Debug.Print "Bounding box direction 3: " & sliceData.GetBoundingBoxDirection3
Debug.Print "Bounding box direction 4: " & sliceData.GetBoundingBoxDirection4
Debug.Print "Reverse direction? " & sliceData.ReverseDirection
Debug.Print "Number of slices: " & sliceData.NumberOfPlanes
Debug.Print "Distance between slices: " & sliceData.Offset
Debug.Print "Type of slicing as defined in swSlicingTypes_e: " & sliceData.SlicesToGenerate
Debug.Print "Add slicing planes and sketches to folder? " & sliceData.AddSlicingPlanesAndSketchesToFolder
sliceData.ReverseDirection = False
boolstatus = sliceData.SetBoundingBoxDirection1(0.1397)
boolstatus = sliceData.SetBoundingBoxDirection2(0.1397)
boolstatus = sliceData.SetBoundingBoxDirection3(-0.1397)
boolstatus = sliceData.SetBoundingBoxDirection4(-0.1397)
sliceData.NumberOfPlanes = 6
sliceData.Offset = 0.01
sliceData.SlicesToGenerate = swSlicingTypes_Rectangle
sliceData.AddSlicingPlanesAndSketchesToFolder = True
Debug.Print ""
Debug.Print "New values:"
Debug.Print ""
Debug.Print "Bounding box direction 1: " & sliceData.GetBoundingBoxDirection1
Debug.Print "Bounding box direction 2: " & sliceData.GetBoundingBoxDirection2
Debug.Print "Bounding box direction 3: " & sliceData.GetBoundingBoxDirection3
Debug.Print "Bounding box direction 4: " & sliceData.GetBoundingBoxDirection4
Debug.Print "Reverse direction? " & sliceData.ReverseDirection
Debug.Print "Number of slices: " & sliceData.NumberOfPlanes
Debug.Print "Distance between slices: " & sliceData.Offset
Debug.Print "Type of slicing as defined in swSlicingTypes_e: " & sliceData.SlicesToGenerate
Debug.Print "Add slicing planes and sketches to folder? " & sliceData.AddSlicingPlanesAndSketchesToFolder
vars = swFeatMgr.InsertSlicing(sliceData, errors)
Debug.Print ""
Debug.Print "Slicing error code as defined in swInsertSlicingError_e: " & errors
End Sub
Example
Remarks
Accessors
Access Diagram
See Also